网友留言簿

<% do while not (rs.eof or err) %>

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

<% if rs("fromwhere")<>"" then %> <% end if if rs("email")<>"" then %> <% end if if rs("homepage")<>"" and rs("homepage")<>"http://" then %> <% end if %> <% if rs("content")<>"" then %> <% end if if rs("anser")<>"" then%> <%sss=cstr(rs("id"))+"abc"%> <%end if%>

大名	<% if rs("sex")<>"不想说" then name=rs("name") & "(" & rs("sex") & ")" else name=rs("name") end if Response.Write name %>
来自	<% display rs("fromwhere") %>
邮箱	"><% display rs("email") %>
主页	" target="_blank"><% display rs("homepage") %>
时间	<% =rs("dateandtime") %>
留言	<% display rs("content") ' Response.Write rs("content") %>
回复留言	[<%Response.Write rs("ansertime")%>] <% display rs("anser") 'Response.Write rs("anser") %>

<% i=i+1 if i>=MaxPerPage then exit do '循环时如果到尾部则先退出，如果记录达到页最大显示数，也退出 rs.movenext loop end sub sub showpages() %>