这个东东叫<掌中无限>的WAP整站程序,但是用不鸟的.. 如果你们可以.改良 ..改良...弄好它..就好啦!

				
								  if session("admin")="" then
				  response.redirect "admin.asp"
				  else
					if session("flag")>3 then
						response.write "您没有操作的权限"
						response.end
					end if
				  end if
				
				%>
				
				
				 
				
				
				
				
				
				
				
				
				
								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.QueryString("Page") = "" or Request.QueryString("Page") 				Page = 1
				Else
				Page = CINT(Request.QueryString("Page"))
				End If
				rs.pagesize =1
				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 %>  
				
				
				
				跳到第：页，跳吧