UT

<%session("guestbookver") = "cn"%> UT

cellspacing="0" cellpadding="3" align="center" class="p9">

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

border="0" align="center" cellpadding="2" cellspacing="1" class="pc1" bgcolor="<%=main_color%>">

>查看留言

<%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 %> align=center border=0 class="p9">

共有留言<%=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 %>