response.write "</tr>"
if rsobj("username")=session("user") then
response.write "<tr>"
response.write "<td>"
session("id1")=rsobj("id")
response.write "<td>"
response.write "<a href=inde1.asp?id1="&rsobj("id")&">删除</a>"
response.write "</td>"
end if
RSobj.MoveNext
If RSobj.EOF Then Exit For
Next
Response.Write "</TABLE></CENTER>"
End Sub
%>
<% SQL = "Select * From guset order by time desc"%>
<%Set ConnObj = Server.CreateObject("ADODB.Connection")
DbPath= Server.MapPath("db.mdb")
ConnObj.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
Set RSobj =Server.CreateObject ("ADODB.Recordset")
RSobj.Open SQL,ConnObj,adOpenStatic
%>
<hr>
<%
RecNum=RSobj.recordCount
pSize=5
if pSize=0 then
pSize=session("pSize")
end if
RSobj.PageSize=pSize
session("pSize")=pSize
response.write "<Center>共有留言信息 "&RecNum&" 条，"&" 分"&RSobj.PageCount&"页显示<br>"
Page=request("Page")
If Request("Page") = "" Then
Page=1
else
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > RSobj.PageCount Then Page = RSobj.PageCount
End If
DispPage RSobj, Page
%>
<%
If Page <> 1 Then
Response.Write "<A href=inde1.asp?Page=1& >第一页</A> "
Response.Write "<A href=inde1.asp?Page="&(Page-1)&">上一页</A> "
End If
If Page <> RSobj.PageCount Then
Response.Write "<A href=inde1.asp?Page="&(Page+1)&">下一页</A> "
Response.Write "<A href=inde1.asp?Page=" & RSobj.PageCount & ">最后一页</A> "
End If
%>
页数： <%=Page%>/ <%=RSobj.PageCount%>
我开始运行的时候还能显示.,不知再次运行的时候,.就不能显示了.