<% dim xxid, exec, rs, title, isPrivate, isLock dim page,recordcount,pagecount dim maxid, minid xxid=replace(trim(request("id")),"'","") if xxid="" or not isnumeric(xxid) then session("error")="非法访问！" connclose() response.redirect "error.asp" end if set rs=server.createobject("adodb.recordset") '留言本方式查看 rcperpage=rcperpage1 exec="select * from ly where id="&xxid rs.open exec,conn,1,1 isPrivate=rs("isPrivate") isLock=rs("isLock") recordcount=rs("hf") '悄悄话的显示限制 if isPrivate then if (not theUser.reged) or (not theUser.master and theUser.name<>rs("name") ) then session("error")="您无权查看此留言！" rsclose() connclose() response.redirect "error.asp" end if end if exec="update ly set yd=yd+1 where id="&xxid conn.execute(exec) title=rs("title") page=encodestr(Request.querystring("page")) pageCount=getPageCount(pageCount,recordcount,rcPerPage) page=getPage(page,pageCount) %> <%=sitetitle%>
<% '显示跟帖 if page=1 then %>
<% if isLock then response.write "锁定" elseif rs("jh")=1 then response.write "精华" else response.write "" end if %> "> <% response.write funKillword(rs("title")) if not showFace then userNameNoFace rs("name"),rs("bl"),isMaster(rs("name")) end if %> 回复 <% userEmail(rs("email")) userIcq(rs("icq")) userMsn(rs("msn")) userQQ(rs("qq")) userUrl(rs("url")) %> 
<% if showFace then userNameFace rs("name"),rs("face"),rs("male"),rs("bl"),isMaster(rs("name")) end if %>
<%=ubbcode(rs("nei"))%>
返回列表 [ 发表时间：<%=rs("t")%> ] <% if theUser.reged then %> ">编辑 <% else %> 编辑 <% end if if theUser.master then %> ">管理 <% userIp rs("ip"),rs("comefrom") %> <% else %> 管理 ＩＰ:☆保密☆ 来源:☆保密☆ <% end if %> 返上
<% end if rs.close '显示跟帖 exec="select id from ly where rt="& xxid &" order by id" rs.open exec,conn,1,1 if rs.eof then rs.close exec="select * from ly where id=0" elseif page=1 then rs.move rcPerpage-1 if rs.eof then rs.moveprevious maxid=rs(0) rs.close exec="select * from ly where rt="& xxid &" and id<="& maxid &" order by id" else rs.pagesize=rcPerpage rs.absolutepage=page minid=rs(0) rs.move rcPerpage-1 if rs.eof then rs.moveprevious maxid=rs(0) rs.close exec="select * from ly where rt="& xxid &" and id<="& maxid &" and id>="& minid &" order by id" end if %> <% response.write pagelist() if theUser.master then %>
全选 全不选 反选  
<% end if %>
<% '回复，只有版主能回复或都可以回复 if theUser.master or (not masterRe and not IsLock) then %>
：：： 您 可 以 在 此 直 接 回 复 当 前 主 题 ：：：
<% if not theUser.reged then %> <% end if %> <% if imgUbb then %> <% end if %>
发 言 标 题： *（标题限制 40 个字符以内）
发  表  人： *（名字限制 10 个字符以内）
<% if mustReg then response.write "密　　　码：" else response.write " 密 码(可选)：" end if %> <% if mustReg then response.write "*（第一次留言自动注册）" else response.write "（填写密码成为保留用户，名字将被保护）" end if %>
性　　　别： 男 女 （已注册用户不用填）
头　　　像： （已注册用户不用选）
电 子 邮 件：
　　Q Q　　： ICQ MSN
主 页 地 址：
选 择 表 情：
Ubb标签：
Q 帖图： Q帖图一 　Q帖图二 　Q帖图三

留
言
内
容

        ">     (Ctrl+Enter提交)
<% end if function pageList() dim p if page<1 then page=1 end if if pagecount<1 then pagecount=1 end if pageList=pageList & "" pageList=pageList & "" pageList=pageList & "
共有回复 "& RecordCount &" 个，共 "& pageCount &" 页 " if page=1 then pageList=pageList & " 留言首页" else pageList=pageList & " 留言首页" end if if page=1 then pageList=pageList & " 前一页" else pageList=pageList & " 前一页" end if if pagecount-page=0 then pageList=pageList & " 下一页" else pageList=pageList & " 下一页" end if pageList=pageList & "" p=int(page/pageLinkNum) if page mod pageLinkNum>0 then p=p+1 end if p=(p-1)*pageLinkNum+1 i=p+(pageLinkNum-1) if i> pagecount then i=pagecount end if if p>pageLinkNum then pageList=pageList & "[<<]" end if do while p<=i if p=page then pageList=pageList & "["&p&"]" else pageList=pageList & "["&p&"]" end if p=p+1 loop p=p-1 if p< pagecount then pageList=pageList & "[>>]" end if pageList=pageList & "
" end function %>