<% const MaxPerPage=10 dim totalPut dim CurrentPage dim TotalPages dim a,j if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if if request.cookies("key")="super" then aaas=1 set urs=server.createobject("adodb.recordset") sql="select * from admin where username='"&Request.cookies("username")&"'" urs.open sql,conn,1,3 if urs.bof or urs.eof then aaas=0 end if IF Request.cookies("passwd")<>urs("passwd") THEN aaas=0 END IF urs.close set urs=nothing end if %> 留言本_<%=jjgn%>
      栏目导航  网站首页>>雁过留声>>查看留言
我要留言 | 刷新
<% set rs=server.createobject("adodb.recordset") sql="select * from review where newsid is null order by reviewid desc" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "

还 没 有 任 何 留 言

" else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage=totalPut \ MaxPerPage else currentpage=totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage totalput,MaxPerPage,"guestbook.asp" else if (currentPage-1)*MaxPerPage
 
"" then%><%=rs("face")%><%else%>Image1.gif<%end if%>">

身份:<%if rs("shengfen")<>"" then%> <%=rs("shengfen")%> <%else%> 保密 <%end if%>
姓名:<%=rs("author")%>
<% if rs("from")<>"" then %> 来自:<%=rs("from")%> <%end if%>
<%if aaas=1 then %> IP:<%=rs("reviewip")%> <%end if%>
  <%if rs("email")<>"" then %> "> <%end if %>   <%if rs("homepage")<>"" then%> " target="_blank"> <%end if%>   <% if rs("oicq")<>"" then%> " > <%end if%> "> <%if aaas=1 then %> "> "> <%end if%> <%if rs("newsid")<>"" then%> "> <%end if%>  
  <%=rs("title")%>

留言内容:
<% response.write rs("content") %>

<%if rs("reply")<>"" then %>

 站长回复:
<%=rs("reply")%>

<%end if%>
  发表于:<%=rs("updatetime")%>  
<% a=a+1 if a>=MaxPerPage then exit do rs.movenext loop end sub %>
我要留言 | 刷新 <% function showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n=totalnumber \ maxperpage else n=totalnumber \ maxperpage + 1 end if response.write "
" response.write "

 " if CurrentPage<2 then response.write "首页 上一页 " else response.write "首页 " response.write "上一页 " end if if n-currentpage<1 then response.write "下一页 尾页" else response.write "下一页 " response.write "尾页" end if response.write ""&totalnumber&"条留言 "&maxperpage&" 条留言/页 " response.write "转到:" response.write "

" end function %>