<% Dim SQL,rs,recordcountnum,page,i,j SQL="select * from gb order by id desc" set rs=server.createobject("adodb.recordset") rs.open SQL,conn,1,1 If rs.eof and rs.bof Then Response.Write ( "

暂无留言。

" ) Else recordcountnum=Rs.recordcount Rs.pagesize = listnum page =request.querystring("page") If page="" or page<1 Then page=1 End If If (page-Rs.pagecount) > 0 Then page=Rs.pagecount End If Rs.absolutepage=page j=rs.recordcount j=j-(page-1)*listnum i=0 Do While Not rs.Eof and i

 

NO.<%=id%>：<%= left(htmlencode(title1),25) %>「<%=time1%>」 [ <%if qq<>"" then%>QQ:<%=qq%> <%end if%> <%If Session("admin_gb")="admin_gbok" Then%>IP:<%=ip2%> <%else%>IP:<%=ip1%> <%end if%> <%if email<>"" then%>邮箱:<%=email%> <%end if%> <%if homepage<>"" then%>个人网站:<%=homepage%> <%end if%>] 留言
<%if sex=1 then response.Write("Male") else response.Write("Female") end if %>
<%=htmlencode(name1)%>
<% If Session("admin_gb")="admin_gbok" Then content=ubbcode(htmlencode(content)) response.write content elseif qiaoqiaohua=1 then response.write "此为悄悄话，仅站长可以浏览。" else content=ubbcode(htmlencode(content)) response.write content end if %> <%If Session("admin_gb")="admin_gbok" Then%>
[ " target="_self" style="color:red"> 回复 | " style="color:red">删除 ] <%End If%>
<%if repcontent<>"暂无回复" then%>
 站长回复：<%= UBBCode(repcontent) %> <%end if%>
<% i = i+1 rs.movenext loop End If Dim filename filename="index.asp?" %>
当前页：<%=page%> 总页数：<%=Rs.pagecount%> 每页：<%= listnum %> 总记录：<%=Rs.recordcount%> | 首页  <% if page<>1 then %> 上一页  <%end if%> <% if Rs.pagecount-page <> 0 then %> 下一页  <%End If%> 尾页  <% response.write "
页码：" for ii=1 to rs.pagecount if ii=Rs.absolutepage-1 then response.write "["&ii&"]" else response.write "["&ii&"]" end if next %>
<% rs.close set rs=nothing conn.close set conn=nothing %>
您是第 位访客！