欢迎光临

<%@ Language=VBScript %> <% response.buffer=true Response.Expires=0 Set rs9 = Server.CreateObject("ADODB.Recordset") sql9 ="SELECT * From about Order By id DESC" RS9.open sql9,Conn,3,3 %> <% dim rs dim sql dim page Set rs = Server.CreateObject("ADODB.Recordset") sql = "Select * FROM enet Order By dateandtime Desc" rs.open sql,conn,1,1 IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then page=1 Else Page=Int(Abs(Request("page"))) End if rs.pagesize = 8' total = rs.RecordCount mypagesize = rs.pagesize rs.absolutepage = page %> 欢迎光临

您的名字：
来自何方：
电子邮件：
OICQ号码：
主页地址：
附加码：

<% dim i i=1 do while not rs.eof and mypagesize>0 id=rs("gbookid") name=rs("name") email=rs("email") homepage=rs("homepage") oicq=rs("oicq") head=rs("head") content=rs("content") content=Autolink(content) dateandtime=rs("dateandtime") reply=rs("reply") sex=rs("sex") %>

.gif>
<%=name%>
	的主页>我的主页
	发信>写信给我
	<%=rs("oicq")%>

<%=name%> 发表于： <%=dateandtime%>	第 <%=i+(page-1)*rs.pagesize%> 条留言
<% 'if len(trim(rs("content")))>15 then 'response.write " " 'end if %> <%'=replace(replace(rs("content")," ",vbcrlf)," ",chr(32)&chr(32))%> <%=content%> <%if reply<>"没有" then%> 【版主回复】：<%=reply%> <% end if %>
来自： <%=rs("come")%>　　　的IP地址是：　<%=rs("ip")%>>[访客IP]　回复留言删除留言

<% mypagesize=mypagesize-1 i=i+1 rs.movenext loop %>

共 <%=rs.pagecount%> 页当前第 <%=page%> 页留言分页： <% if page>1 then%> 上一页 <% end if %> <% if rs.pagecount <= 10 then for j=1 to rs.pagecount response.write "["&j&"]" next else for j=1 to 10 response.write "["&j&"] " next response.write "[>>]" end if %> <% if page 下一页 <% end if %> 留言总数:<%=total%>

<% rs.close set rs=nothing conn.close set conn=nothing %>