|
|
|
 |
| |
<%
db="../database/www_howfine_com_cn.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath(""&db&"")
conn.Open connstr
sql="select * from 02 where id="&request("id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,2,2
if rs is nothing then
response.write"数据库连接失败！"
response.end
end if
if rs.eof or rs.bof then
response.write"此记录已被删除！"
response.end
end if
%>
| 新 闻 标 题 ：
<%=rs("title")%> |
<= 返回 |
| 发布日期：<%=rs("creatdate")%> 查看次数：<%=rs("hits")%>
|
<%
rs("hits")=rs("hits")+1
rs.update
rs.close
%>
|
|
|
