<%Response.Buffer=true response.expires=0 application.lock myname=Session("myname") myid=Session("myid") call get_guests guestadmin=false set rsparam=conn.execute("select * from param") if myname="" or myid="" then login=false logstr="(secret=false)" elseif myname<>guests(myid,0) or Session("mytemp")<>guests(myid,1) then login=false logstr="(secret=false)" else login=true if guests(myid,4)-rsparam("ldelnote")>=0 then logstr="(1=1)" guestadmin=true else logstr="(secret=false or who='"&myname&"' or towho='"&myname&"')" end if end if application.unlock dim rootRs Set rootRs=Server.CreateObject("ADODB.RecordSet") sql="select * from guestbook where "&logstr findkey=trdb(request("findkey")) if findkey<>"" then sql=sql&"and (who like '%"&findkey&"%' or towho like '%"&findkey&"%' or text_title like '%"&findkey&"%')" end if sql=sql&" ORDER BY ID DESC" pagesize=20 rootRs.Open sql,conn,1,1 If rootRs.Bof OR rootRs.Eof Then call echoerr("没有找到有效的留言！","write.asp") response.end end if%> 留言本
<%if not login then%>你尚为登录，所以你不能看到与你有关的私人留言。<%else%>欢迎〖<%=myname%>〗的到来，以下是与你有关的留言。<%end if%> <%rootRs.pagesize=pagesize page=Request("page") if not IsNumeric(page) or page="" then page=1 if (page-1)<0 then page=rootRs.pagecount elseif (page-rootRs.pagecount)>0 then page=1 end if rootRs.AbsolutePage=page RowCount =rootRs.pagesize%>

第<%=page%>页　共<%=rootRs.pagecount%>页　上一页　下一页　写留言　刷新浏览

<%Do While Not rootRs.Eof AND RowCount>0 if rootRs("secret") then secret="1" else secret="" end if if myname=rootRs("who") or (rootRs("secret") and myname=rootRs("towho")) or guestadmin then kill="1" else kill="" end if if not rootRs("secret") or myname=rootRs("who") or myname=rootRs("towho") then text_body=rootRs("text_body") else text_body="他人私人留言你无权观看！" end if who_str=trstr(rootRs("who")) if guestadmin then who_str=who_str&"["&rootRs("ip")&"]" end if response.write "" rootRs.MoveNext RowCount=RowCount-1 Loop If rootRs.pagecount>1 then%>

分页： <%For i=1 to rootRs.pagecount if (i-page)<>0 then%>[<%=i%>] <%else%>(<%=i%>) <%end if Next end if rootRs.close Set rootRs=nothing conn.close Set conn=nothing%>