║填写留言║版主管理║回 首 页║

>查看留言

<%sqlstr="select * from t_guestbook_main where me_version='cn' order by mydate desc,hf_date desc" set myrs=server.CreateObject("adodb.recordset") myrs.Open sqlstr,conn,1,1 if myrs.RecordCount>0 then myrs.PageSize=10'每页显示的记录数 total_page=myrs.PageCount total_red=myrs.RecordCount current_page=Request("me_page") if current_page="" then current_page=1 elseif not isnumeric(current_page) then current_page=1 else current_page=cint(current_page) end if if current_page>total_page then current_page=total_page elseif current_page<1 then current_page=1 end if myrs.AbsolutePage=current_page %>

共有留言<%=total_red%>条 显示第<%=current_page%>页/总<%=total_page%>页	<%call showpage%> 转到第 class=p9 size=3 style="border: 1px solid rgb(200,200,200)" maxlength=3> 页
<%for j=1 to myrs.PageSize%> <%if myrs("hf_content")<>"" then%> <%end if%>  发表人 <%=myrs("title")%> "> <%if myrs("hf_content")<>"" then%> <%else%> <%end if%>  <%=myrs("g_name")%>  表情:"> <%if myrs("email")<>"" then%> ">" border=0> <%end if%> <%if myrs("url")<>"" then%> " target="_blank">" border=0> <%end if%> 发表于:<%=formatdatetime(myrs("mydate"),2) & " " & formatdatetime(myrs("mydate"),4)%> <%=myrs("content")%>  版主回复 回复于:<%=formatdatetime(myrs("hf_date"),2) & " " & formatdatetime(myrs("hf_date"),4)%> <%=htmlencode2(myrs("hf_content"))%> <%myrs.MoveNext if myrs.EOF then exit for next %>
共有留言<%=total_red%>条 显示第<%=current_page%>页/总<%=total_page%>页	<%call showpage%> 转到第 class=p9 size=3 style="border: 1px solid rgb(200,200,200)" maxlength=3> 页

<%else Response.Write "

对不起!没有任何留言!返回

" end if myrs.Close set myrs=nothing %>