用户留言管理

<%OPTION EXPLICIT%> 用户留言管理 <% dim GuPage,GuPageSize,GuPageTotal,GuPageCount,GuPageStart GuPageSize=GuestbookPageSize GuPageTotal=1 GuPage=Trim(Request.QueryString("GuPage")) if GuPage<>"" then GuPage=Cint(GuPage) else GuPage=1 end if dim rsGB1 set rsGB1=Server.CreateObject("Adodb.RecordSet") GuSQL="select GB_ID,GB_Type,GB_Username,GB_UserQQ,GB_UserEmail,GB_Content,GB_GuResourceID,GB_GuResourceName,GB_GuResourceNameColor,GB_UserIP,GB_DateTime from "&GuTablePrefix&"_GuestBook order by GB_ID desc" rsGB1.open GuSQL,GuConn,1,1 GuPageCount=rsGB1.RecordCount if GuPageCount mod GuPageSize=0 then GuPageTotal=GuPageCount\GuPageSize else GuPageTotal=GuPageCount\GuPageSize+1 end if if GuPage<1 then GuPage=1 end if if GuPage>GuPageTotal then GuPage=GuPageTotal end if %> "> <% if rsGB1.bof and rsGB1.eof then Response.write "" else dim GuPagei:GuPagei=1 GuPageStart=(GuPage-1)*GuPageSize do while not rsGB1.eof if GuPagei>GuPageStart then %> <% end if GuPagei=GuPagei+1 if GuPagei>GuPageStart+GuPageSize then exit do end if rsGB1.movenext loop %> <%end if%>

网友送出的祝福列表

没有找到相关数据

<%=rsGB1("GB_ID")%>

[<%=rsGB1("GB_GuResourceName")%>]恭祝[<%=rsGB1("GB_Username")%>]：<%=rsGB1("GB_Content")%> (发表于:<%=rsGB1("GB_DateTime")%>)

<% if GuPage>1 then Response.write "『首页』" Response.write "『上页』" else Response.write "『首页』『上页』" end if if GuPage『下页』" Response.write "『尾页』" else Response.write "『下页』『尾页』" end if Response.write " " Response.write " 共有"&GuPageCount&"条祝福 "&GuPageSize&"条祝福/页" Response.write " 页次:"&GuPage&"/"&GuPageTotal&"" Response.write " 转到:" Response.write "" %>

<% rsGB1.close set rsGB1=nothing %> <%CloseDatabase%>