浏览信息

<%@ language=VBScript %> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''' on error resume next '找不到留言资料时忽略错误 Set Rs1 = Server.CreateObject("ADODB.Recordset") sql1="select * from admin" 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 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 %> 浏览信息

您的位置：永嘉机筛 >> 信息反馈首页 >> 浏览信息

现在时间：

搜索关键字：合计：<%=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)&".*.*" %>

width=32>

姓名： <%=Rs("username")%>
来自： ><%=ip%>
邮件：发信> 邮件
主页：的主页> 主页

[NO.<%=Rs.recordcount-Rs.pagesize*(page-1)-i+1%>]

> 发表于:<%=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.movenext loop Rss.close set Rss = nothing %>

发信>

邮件 target=_blank title=访问<%=Rs("username")%>的主页>

主页

的QQ号码:<%=Rs("qq")%> src=images/qq.gif> <%=Rs("qq")%> <%=Rs("username")%

的IP地址是:<%=ip%> border=0 src=images/ip.gif> ><%=ip%> title=回复该留言>

回复 title=删除该留言>

删除

<% Rs.movenext loop %>

总计留言<%=Rs.recordcount%>条共有<%=page%>/<%=Rs.pagecount%>页跳到第 <% for go=1 to Rs.pagecount %> ><%=go%> <%next%>页 <% if page=1 then %> <%else%>>上一页 <%end if%><% if Rs.pagecount-page <> 0 then %>>下一页 <%else%> <%end if%>


	Copy Right © 2002-2004 jishai.Com.cn All Right Reserved 版权所有 © 2004-2006 永嘉机筛制造有限责任公司