|
[签写留言]
[返回首页]
|
<%
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 = 6'
total = rs.RecordCount
mypagesize = rs.pagesize
rs.absolutepage = page
%>
| |
| 作者信息 |
留言内容（留言总数：<%=total%>）
|
|
<%
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")
%>
<%
mypagesize=mypagesize-1
i=i+1
rs.movenext
loop
%>
|
页数：
<%
if page>1 then%>
上一页
<%
end if
%>
<%
if rs.pagecount <= 8 then
for j=1 to rs.pagecount
response.write "["&j&"]"
next
else
for j=1 to 8
response.write "["&j&"] "
next
response.write "[>>]"
end if
%>
<%
if page
下一页
<%
end if
%>
|
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
发表于：<%=dateandtime%>
<%=content%>
<%
if reply<>"没有" then
%>
IP
回复
删除
