<% end if messageRs.MoveNext if messageRs.EOF then exit for next %> <% end if %>
<% if session("adminLogin") = true then %> <% else %> <% end if %>
  书写留言 
  密码变更 
  退出管理 
  管理留言 

站点首页 --> 访客留言
关键字：
<% dim messageRs, messageSql set messageRs = Server.CreateObject("adodb.recordset") 'messageSql = "select * from message_info order by messageId desc" messageSql = "select * from message_info where 1=1 " key =request("key") title=request("title") if title=0 then messageSql = messageSql&" and guestName like '%"&key&"%'" elseif title=1 then messageSql = messageSql&" and messageTitle like '%"&key&"%'" elseif title=2 then messageSql = messageSql&" and messageDetail like '%"&key&"%'" end if messageSql=messageSql&" order by messageId desc" messageRs.Open messageSql,conn,1,3 dim replyRs, replySql set replyRs = Server.CreateObject("adodb.recordset") if messageRs.EOF or messageRs.BOF then else messageRs.PageSize = conPageSize page = cint(request("page")) if page < 1 then page = 1 if page > messageRs.PageCount then page = messageRs.PageCount messageRs.AbsolutePage = page for iPage = 1 to messageRs.PageSize %> <% else %>
<% if messageRs("messagePrivate") = true and session("adminLogin") <> true then %>

此留言作者选择保密，仅管理员可以查看

.gif" border="0" align="absmiddle"><%=trim(messageRs("messageTitle"))%>
<%=UBBCode(trim(messageRs("messageDetail")))%> <% replySql = "select * from reply_info where messageId =" & messageRs("messageId") replyRs.Open replySql,conn if replyRs.EOF or replyRs.BOF then else %>

<%=UBBCode(trim(replyRs("replyDetail")))%>
<%=trim(replyRs("adminName"))%> 回复于 <%=replyRs("replyDate")%>
<% end if replyRs.Close %>
  留言人：<%=trim(messageRs("guestName"))%>  " title="<%=trim(messageRs("guestName"))%>的邮件地址是<%=trim(messageRs("guestEmail"))%>">  " title="点击这里访问<%=trim(messageRs("guestName"))%>的主页" target="_blank">   <%=messageRs("messageDate")%> <% if session("adminLogin") = true then %>  这条留言作者当时的ip地址是<%=trim(messageRs(" WIDTH="18" HEIGHT="18">  这条留言作者的工作单位是<%=trim(messageRs(" WIDTH="18" HEIGHT="18">  这条留言作者的联系电话是<%=trim(messageRs( - <%=trim(messageRs("guestTelNo"))%>" WIDTH="18" HEIGHT="18">  ">回复这条留言  &page=<%=page%>">删除这条留言 <% end if %>
分页：共 <%=messageRs.PageCount%> 页，第 <%=page%> 页 <% if page > 1 then %> 首页  <% end if sPage = page - 2 if sPage < 1 then sPage = 1 ePage = page + 2 if ePage > messageRs.PageCount then ePage = messageRs.PageCount for iPage = sPage to ePage %>  <%if page=iPage then%><%end if%><%=iPage%>  <% next if page < messageRs.PageCount then %> 尾页  <% end if %>