<% snr=Request("snr") stype=Request("stype") IF Request("del")<>"" and Session("PRO"&LogPWD&"ADMIN")=True Then Sql = "Delete From gb Where id="&Request("del") Conn.Execute(Sql) End IF %> <% GetCookie if notice<>"" then BzNotice SqlType IF Not Rs.Eof Then IF Request("s")="" Then ShowNum=Showlynum Else ShowNum=Request("s") End IF rs.pagesize=Showlynum maxpage=rs.pagecount totally=rs.recordcount requestpage=clng(request("p")) if requestpage="" or requestpage<1 then requestpage=1 end if if requestpage>maxpage then requestpage=maxpage end if if not requestpage=1 then rs.move (requestpage-1)*rs.pagesize end if for i=1 to rs.pagesize and not rs.bof if ubbcode="1" then cont=ubb(rs("content")) else cont=rs("content") end if LyType=Rs("type") LyType1=left(LyType,2) LyType2=Right(LyType,2) LyTitle=" "&Rs("title") if Session("PRO"&LogPWD&"ADMIN")<>True then if LyType2="se" then if UserName<>rs("name") or UserPwd<>rs("psw") then LyTitle=" ◇◇◇◇" else LyTitle=" "&Rs("title") end if end if if LyType1="wa" then LyTitle=" "&mid(rs("title"),1,1)&" "&"* * * *" end if end if dim j if requestpage=1 then j=i else j=((requestpage-1)*Showlynum+i) end if IF Session("PRO"&LogPWD&"ADMIN")<>True Then if LyType2="se" and (UserName<>rs("name") or UserPwd<>rs("psw")) then cont1="-- 私密留言对外保密 --" elseif LyType1="wa" then cont1="-- 留言审核中 --" elseif LyType="no" then cont1="-- 内容禁止显示 --" else cont1=cont end if ELSE if LyType2="se" then cont1="[ 私密留言 ]
"&cont elseif LyType1="wa" then cont1="[ 等待审核 ]
"&cont elseif LyType="no" then cont1="[ 留言被禁止显示 ]
"&cont else cont1=cont end if end if%> <% Response.Cookies("ppp")("ccc")=""%>
>
<%=Rs("name")%>
来自<%=rs("from")%>
>
话题:<%=LyTitle%>   <%if LyType1="wa" Then%> <%if LyType2="se" then%> | 等待阅读 | <%else%> | 稍后显示 | <%end if%> <%else%> <%end if%> <%if rs("top")="9" then%>↑ 置 顶<%end if%> <%if request.cookies("UserInfo2tp88")("sjm88")="" then%> <%=rs("date")%> <%else%> <%end if%>
>
<%=cont1%>
<% if rs("reply")<>"" then %> <% if Session("PRO"&LogPWD&"ADMIN")<>True and LyType2="se" then if UserName<>rs("name") or UserPwd<>rs("psw") then %> <%else%>
回复: < 查看 >
<%end if%> <%else%>
回复: <%=ubb(Rs("reply"))%>  [ → 退出查看 ]
<%end if%> <%end if%>
回复: <%=ubb(Rs("reply"))%>
> > <%name2=Rs("name")%>
<%if LyType1<>"wa" and LyType<>"no" and LyType2<>"se" Then%> <%if rs("oicq")<>"0" then%> ">号码  <%else%> <%end if%> <%if rs("site")<>"http://" then%> ">网址  <%else%> <%end if%> <%if rs("mail")="test@system.net" or rs("mail")=""then%> <%else%> ">信箱  <%end if%> <%else%> <%end if%> <%=rs("ip")%> target=_blank title="<%=rs("date")%>  [ <% ipx=rs("ip") arrIP = Split(ipx,".") NewIP = arrIP(0)&"."&arrIP(1)&"."&" *"&"."&" *" Response.Write NewIP %> ] 来自何方">查询  <%IF Session("PRO"&LogPWD&"ADMIN")=True Then%> → 管理 删除  <%End IF%>
<%'=name2%>
<% Rs.MoveNext if rs.eof then exit for next else response.write "
没有留言记录

" End IF Rs.Close Set Rs=Nothing %>
<%if name2=snr then%>查询有关 <%=name2%> 的所有内容 → [ 返回留言首页 ] <%end if%>
留言 <%=totally%> 条.共 <%=maxpage%> 页 [ <% PageJ %> ] → [ 我要留言 ]
<% bottom Function BzNotice %>
查找内容
<%=ubb(notice)%>   | <%if request.cookies("UserInfo2tp88")("sjm88")="" then%> 简洁 <%else%> 更多 <%end if%> | <%if request.cookies("UserInfo2tp")("sjm")<>"" then%> 变色 <%else%> 变色 <%end if%> |
<%END Function Function PageJ ii=requestpage-4 iii=requestpage+4 if ii < 1 then ii=1 end if if iii > maxpage then iii=maxpage end if if requestpage > 5 then if Request("search")="" then Response.Write "1 ... " else Response.Write "1 ... " end if end if for ai=ii to iii if ai<>requestpage then if Request("search")="" then Response.Write ""&ai&" " else Response.Write ""&ai&" " end if else Response.Write ""&ai&" " end if Next if maxpage > requestpage+4 then if Request("search")="" then Response.Write "..."&maxpage&" " else Response.Write "..."&maxpage&" " end if end if END Function Function SqlType if Request("search")="" then Set Rs = Server.CreateObject("ADODB.Recordset") Sql = "Select * From gb Order BY top desc, id DESC " Rs.Open Sql,conn,1,1 else snr=Request("snr") stype=Request("stype") if snr="" then if Request("search")="myliuyan" then response.write "" response.end else response.write "" response.end end if end if if stype<>"" then Set Rs = Server.CreateObject("ADODB.Recordset") Sql = "Select * From gb where "&stype&" like '%" &snr& "%' Order BY top desc, id DESC " Rs.Open Sql,conn,1,1 else Set Rs = Server.CreateObject("ADODB.Recordset") Sql = "Select * From gb where name like '%" &snr& "%' or content like '%" &snr& "%' or title like '%" &snr& "%' Order BY top desc, id DESC " Rs.Open Sql,conn,1,1 end if end if End Function %> <% '---------以下查询IP数据库加速---------- %>