<% @language="vbscript" %> <% response.buffer=true Response.Expires=0 id=request.querystring("id") if id=496 or id=419 or id=1288 then Response.End end if Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("data/guoxue999.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/guoxue999.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%>
    【关闭窗口】  

国学网站,版权专有;引用转载,注明出处;肆意盗用,即为侵权。
web@guoxue.com 010-68900123

<%rs9.close%>