<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><% dim ddx,bookmd5 ddx=trim(request("b")) bookmd5=md5(trim(request("ck"&ddx))) actions = trim(request("action")) keys = trim(request("keytext")) if ddx<>"" then set srs=server.CreateObject("adodb.recordset") srs.open "select id,baomima from book where ID="& ddx &" and shenhe=1 and baomima='"& bookmd5 &"'",conn,1,1 if srs.eof and srs.bof then response.write "" response.end else md5obj=srs("baomima") md5objid=srs("id") end if src.close set srs=nothing end if %> <%=qwbmcms2%>——Powered By Qwbm
<%call header("1",""& actions &"","","","")%> <%if actions = "so" then%> <%else%>
<% if actions = "soso" and keys <> "" then bsql="select toux,baomima,liuyan,name,liuyantime,hui,ip,id from book where liuyan like '%"& keys &"%' and shenhe=1 order by id desc" else bsql="select toux,baomima,liuyan,name,liuyantime,hui,ip,id from book where shenhe=1 order by id desc" end if set brs=server.CreateObject("adodb.recordset") brs.open bsql,conn,1,1 if brs.eof and brs.bof then %>
暂无留言
<%else Dim page,recordsperpage recordsperpage=qwbmcms21 page=Trim(Request.QueryString("page")) brs.Pagesize=recordsperpage If Not IsEmpty(page) Then If Not IsNumeric(page) Then page=1 Else page=Clng(page) End If If page>=brs.Pagecount Then page=brs.Pagecount Elseif page<=0 Then page=1 Else prs.AbsolutePage=page End If Else page=1 End If brs.AbsolutePage=page Do While brs.Eof=False and recordsperpage>0 %> <%if md5objid = brs("id") and md5obj = brs("baomima") then%>
" alt="" title="" /> <%=brs("name")%>

<%=qqface(brs("liuyan"))%>

(<%dim objip objip=split(brs("ip"),".") response.write objip(0) & "." & objip(1) & "." & objip(2) & ".*" %>) <%=brs("liuyantime")%> TOP↑

<%if brs("hui")<>"" then%>

管理员回复:<%=qqface(brs("hui"))%>

<%end if%>
<%else%>
" alt="" title="" /> <%=brs("name")%>
<%if brs("baomima")<>"" then%>

<%objipa=split(brs("ip"),".") response.write objipa(0) & "." & objipa(1) & "." & objipa(2) & ".*" %> <%=brs("liuyantime")%> TOP↑

" method="post" action="?id=book&b=<%=brs("id")%>" onSubmit="return ckcheack<%=brs("id")%>();">
查看码:" type="text" size="35" class="bmi" />
请输入查看码查看留言内容与回复内容

<%else%>

<%objipa=split(brs("ip"),".") response.write objipa(0) & "." & objipa(1) & "." & objipa(2) & ".*" %> <%=brs("liuyantime")%> TOP↑

<%=qqface(brs("liuyan"))%>

<%if brs("hui")<>"" then%>

管理员回复:<%=qqface(brs("hui"))%>

<%end if%>
<%end if%>
<%end if%> <%recordsperpage=recordsperpage-1' brs.MoveNext Loop%>
<%If page<=1 Then %> [首页]   [上一页]    <%Else%> [首页]    [上一页]    <%End If%> <%If page>=brs.Pagecount Then%> [下一页]   [尾页] <%Else%> [下一页]    [尾页]    <%End If%> [页次:<%=page%>/<%=brs.Pagecount%>页][共<%=brs.Recordcount%><%=brs.Pagesize%>篇/每页] <% brs.close set brs=nothing%>
<%end if%>
<%end if%> <%call footer("","","","","")%>
<%conn.close set conn=nothing %>