% @language="vbscript" %>
<%
response.buffer=true
Response.Expires=0
id=request.querystring("id")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("data/news.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs9 = Server.CreateObject("ADODB.Recordset")
sql9 ="SELECT * From system Order By id DESC"
RS9.open sql9,Conn,3,3
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From news where id="&id, conn,3,3
nCounter=rs("counter")
rs.close
rs.Open "Select * From news where id="&id, conn,3,3
rs("counter")=rs("counter")+1
rs.update
nCounter=rs("counter")
rs.close
id=request.querystring("id")
'response.write id
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("data/news.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From news where id="&id, conn,3,3
%>
<%=rs("biaoti")%>
|
<%=rs("biaoti")%>
作者:<%=rs("dizhi")%> [<%=rs("shijian")%>]
|
<%
if not isnull(rs("img")) and rs("img")<> "" then
response.write "  + ") "
end if
%>
<%=rs("neirong")%> |
作者:<%=rs("dizhi")%> [<%=rs("shijian")%>]
|
|
|
本条消息被浏览了[<%=rs("Counter")%>]回
|
把本页介绍给你的朋友
|
<%rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from news where id="&request("id")-1
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%> >>上篇信息:已经没有了 <%else%>
◎上篇信息:"><%=rs("biaoti")%>
<%end if%>
<% rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from news where id="&request("id")+1
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>>>下篇信息:已经没有了 <%else%> ◎下篇信息:"><%=rs("biaoti")%>
<%end if%> |
|
|
|
本站论文搜索
|
|
<%rs9.close%>