7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。

				
				 
				
				
				 
				
				
				
				 
				
				
				
				
				
				
				
				填写留言
				
				
				
				
				
				
								Set rs=server.createobject("ADODB.RECORDSET")
				sql="SELECT * FROM guest ORDER BY ID DESC"
				rs.open sql,conn,3,3 
				if rs.eof and rs.bof then
				response.write "还没有任何留言!"
				else
				If Request("page") ="" or Request("page")				Page = 1
				Else
				Page = CINT(Request.QueryString("Page"))
				End If
				rs.pagesize =5
				total  = rs.RecordCount
				rs.absolutepage=page
				mypagesize = rs.pagesize
				%>
				共条留言
									   	i=1 
					do while not rs.eof and i  
				------------
				：()
				联系方法:
				
				------------
				回复:()
				时间:
				
								[删除]
				[回复]
				
								i=i+1
				rs.movenext
				loop
				%>
								if page>1 then%>   
				上页
								end if
				%>
								if page
				下页
								end if
				%>
				(/)   
				------------
				按页搜索
				填写留言
				我的留言
				网站首页
								session("page")=page %>  
				
				
				
				跳到第：页，跳吧