<%if session("admin")<>"" then%> Delete Non Activated Record <%end if%>
<% set rs=server.createobject("adodb.recordset") page=request.querystring("page") if session("admin")<>"" then sql="select * from book order by up desc,id desc" else sql="select * from book where activate=Yes order by up desc,id desc" end if rs.open sql,conn,1,1 on error resume next maxjilu=rs.recordcount perpage=500 '每页锟斤拷示锟斤拷录锟斤拷 t=page*perpage rs.absoluteposition=t+1 f=t+perpage tt=page*perpage if page<0 then page=0 end if if tt>=maxjilu then ttt=page-1 end if if maxjilu-tt <% ww=0 for i=t+1 to f ww=ww+1 %> bgcolor="#F8F8FA"<%end if%> > <% rs.movenext if rs.eof then exit for rs.close set rs=nothing end if next set conn=nothing %>
锟斤拷<%=maxjilu%>锟斤拷锟斤拷锟斤拷 Page <% =(request("page")+1)%>  | 锟斤拷页-锟斤拷页-锟斤拷页-末页 <% if ttt<=5 then uu=0 while uu <%=(uu+1)%> <%uu=uu+1 wend else%> [<%=(ttt-5)%>] [<%=(ttt-4)%>] [<%=(ttt-3)%>] [<%=(ttt-2)%>] [<%=(ttt-1)%>] [<%=(ttt)%>] [<%=(ttt+1)%>] <%end if%> [Old Messages]


<% if rs("zt")<>"" then%> <% end if %> <%if session("admin")<>"" then%>

<%end if%>
<%if rs("image")<>"" then%> "> <%else%>锟斤拷<%end if%> <%=txt(rs("zz"))%>  <%=rs("sj")%>   <% if rs("email")<>"" then %>"> <% end if %>   <% if rs("homepage")<>"" then %> " target=_blank> <% end if %> <%if session("admin")<>"" then %>IP: <%=rs("ip")%> <%else myStr = Split(rs("ip"), ".") %> IP: <%=myStr(0)%>.<%=myStr(1)%>.*.* <%end if%>
锟斤拷<%=txt(rs("zt"))%>锟斤拷
<%if rs("up")=1 then%> 锟斤拷锟斤拷 <%end if%> <%if rs("yes")=0 then%> <%=rs("guestbook_type")%>:

<%=txt(rs("nr"))%>

<%else%> 锟斤拷锟斤拷锟皆诧拷锟斤拷锟斤拷

<%end if%>
<% response.write "Status =" & rs("activate") %> " onClick="window.open(this.href,'','left=100,top=200,width=900,height=700,scrollbars=yes,resizable=yes');return false;"> " onClick="window.open(this.href,'','left=100,top=200,width=950,height=800,scrollbars=yes,resizable=yes');return false;"> " onClick='javascript: return confirm("锟斤拷锟芥!锟斤拷锟斤拷删锟斤拷???锟斤拷锟斤拷锟斤拷删锟斤拷") '> ">Activate
<%if rs("re")<>"" then%>
<%=txt(rs("re"))%>
锟斤拷锟斤拷员--<%=rs("reply_by")%> 锟截革拷   锟截革拷时锟戒:<%=rs("resj")%>
<%end if%>

锟斤拷<%=maxjilu%>锟斤拷锟斤拷锟斤拷 Page <% =(request("page")+1)%>  | 锟斤拷页-锟斤拷页-锟斤拷页-末页 <% if ttt<=5 then uu=0 while uu <%=(uu+1)%> <%uu=uu+1 wend else%> [<%=(ttt-5)%>] [<%=(ttt-4)%>] [<%=(ttt-3)%>] [<%=(ttt-2)%>] [<%=(ttt-1)%>] [<%=(ttt)%>] [<%=(ttt+1)%>] <%end if%>

锟斤拷
锟斤拷
Cheap oakley sunglasses