<%@ language=VBScript %> <% on error resume next Set Rs1 = Server.CreateObject("ADODB.Recordset") sql1="select * from admin where id="&userid Rs1.open sql,conn,3,2 if date <> today_time then Rs1("today_count") = 0 end if Rs1("today_time") = date Rs1.update Rs1.close set Rs1 = nothing sql="select * from gbook where userid="&userid&" order by id desc" set Rs = Server.CreateObject("ADODB.Recordset") Rs.open sql,conn,1,1 Rs.pagesize=pagesize page=Request("page") if (page-Rs.pagecount) > 0 then page=Rs.pagecount elseif page = "" or page < 1 then page = 1 end if Rs.absolutepage=page %> <% sql = "select * from news where userid="&userid&" order by id desc" set srs = Server.CreateObject("ADODB.Recordset") srs.open sql,conn,1,1 do while not srs.eof news=news&""""&srs("news")&" ["&srs("date")&"]"",""""," srs.movenext loop srs.close set srs = nothing %> <%=gbook_name%>
<%=gbook_name%>
当前位置:><%=name%> - >留言首页 - 浏览留言 进入时间:<%=time%>
共<%=Rs.recordcount%>条留言 其中<%=today_count%>条是今天的
<% do while not Rs.eof i = i + 1 if i > Rs.pagesize then exit do end if ips=split(rs("ip"),".") ip=""&ips(0)&"."&ips(1)&".*.*" %>
">
  网友大名:<%=Rs("username")%>
  腾讯OICQ:<%if Rs("qq") <> "" then%><%=Rs("qq")%><%else%>没有OICQ<%end if%>
第 <%=Rs.recordcount-Rs.pagesize*(page-1)-i+1%> 条留言 是 <%=Rs("username")%> 在 <%=Rs("addtime")%> 发表的
"> <%=Rs("body")%> <% sql = "select * from reply where replyid="& Rs("id") &" order by id desc" set Rss = Server.CreateObject("ADODB.Recordset") Rss.open sql,conn,1,1 do while not Rss.eof %>
站长回复:<%=Rss("reply")%>
回复时间:(<%=Rss("replytime")%>)
<% Rss.movenext loop Rss.close set Rss = nothing %>
<%if Rs("email") <> "" then%>的邮件地址是：<%=Rs("email")%>">电子邮件<%else%>没有信箱<%end if%> 个人主页 <%if Rs("qq") <> "" then%>的QQ号码是：<%if Rs("qq") <> "" then%><%=Rs("qq")%><%else%>没有OICQ<%end if%>">腾讯OICQ<%else%>没有OICQ<%end if%> 　 &userid=<%=userid%>>查IP &userid=<%=userid%>>回复 &userid=<%=userid%>>删除
<% Rs.movenext loop for i=1 to count if i<>1 and (i-1)/6=int((i-1)/6) then guest=guest&"" end if guest=guest&" 留言客"&i&"号" next if count/6<>int(i/6) then for j=1 to (int(count/6)+1)*6-count guest=guest&"　" next end if %>
目前留言本共有<%=count%>人在线
<%=guest%>
共有<%=Rs.pagecount%>页 你正在浏览第<%=page%>页 跳到第<%for go=1 to Rs.pagecount%> &userid=<%=userid%>><%=go%> <%next%>页<% if page<>1 then %> &userid=<%=userid%>>上一页<%end if%><% if Rs.pagecount-page <> 0 then %> &userid=<%=userid%>>下一页<%end if%>
<% call htmlend() %>