<%@ 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%>
	的主頁>我的主頁
	發(fā)信>寫信給我
	<%=rs("oicq")%>

<%=name%> 發(fā)表于： <%=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 %> 留言總數(shù):<%=total%>

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