<%=lybtitle%>

<% 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 len(notetitle)>0 then %> <%=notetitle%> [<%=admin_name%>](<%=notedate%>) <%else%> 当前没有公告 [<%=admin_name%>]<%end if%>

<% sql="select * from guest where tongguo<>0 order by id desc" set rs=server.createobject("adodb.recordset") 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)*listnum>totalput then if (totalPut mod listnum)=0 then currentpage=totalPut \ listnum else currentpage=totalPut \ listnum + 1 end if end if if currentPage=1 then showContent showpage totalput,listnum,"index.asp" else if (currentPage-1)*listnum

<% if rs("contenttop")<>"" then if rs("guestcontent")<>"" then contop=rs("contenttop") Response.Write contop else contop=rs("contenttop") & "(无内容)" Response.Write contop end if else contop=rs("guestname") & "留言说(无主题)" Response.Write contop end if %>

<% if rs("email")<>"" then %> <% end if if rs("homepage")<>"" and rs("homepage")<>"http://" then %> <% end if %> <% if rs("guestreply")<>"" then%> <% end if %>

姓名	<% if rs("sex")<>"不想说" then guestname=rs("guestname") & "(" & rs("sex") & ")" else guesname=rs("guestname") end if Response.Write guestname %>
来自	<%=rs("from")%>
邮箱	"><%=rs("email") %>
网址	" target="_blank"><% =rs("homepage") %>
时间	<% =rs("guestdate")%>
留言	<% =rs("guestcontent") %>
回复留言	<% =rs("guestreply") %>

<% a=a+1 if a>=listnum then exit do rs.movenext loop end sub function showpage(totalnumber,listnum,filename) dim n if totalnumber mod listnum=0 then n=totalnumber \ listnum else n=totalnumber \ listnum + 1 end if response.write "" end function %>