|
 |
<%
Sub LiuYanList(picpath,addurl)
page=request.querystring("page")
if page="" or Not IsNumeric(page) then page=1
sql="select * from GuestBook where chk=2 Order by id desc"
set rs=Server.CreateObject("ADodb.RecordSet")
rs.Open sql,conn,1,1
rs.PageSize=5
if rs.bof and rs.eof then
response.write("暂无信息")
else
rs.AbsolutePage=page
%>
<%
i=0
while not rs.eof and i
<%
i=i+1
rs.MoveNext
wend
end if
%>
| <%
Call FenYe("?",rs.PageCount,rs.recordCount,page,"")
rs.close
set rs=nothing
%> |
<%end Sub%>
<%
'添加留言
'url为要提交的地址
'
Sub LiuYanAdd(url)%>
<%
End Sub
%>
<%
Call LiuYanAdd("savely.asp")
%> |
|
|
|
：