<% dim xxid, exec, rs, title, isPrivate, isLock xxid=trim(request("id")) exec="select * from ly where id=" + CStr(xxid) + " " Set RS = Server.CreateObject("ADODB.RecordSet") rs.Open exec, Conn, 1, 3 isPrivate=rs("isPrivate") isLock=rs("isLock") rs("yd")=rs("yd")+1 rs.update '悄悄话的显示限制 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 title=rs("title") %> <%=sitetitle%>

<% if isLock then response.write "锁定" elseif rs("jh")=1 then response.write "精华" else response.write "" end if %> "> <%=rs("title")%>
#re">回复 <%if rs("email")<>"" then %> " title="<%=rs("email")%>">邮箱 <% else %> 邮箱 <% end if %> <% if rs("qq")<>"" then %> " target="_blank" title="<%=rs("qq")%>">QQ <% else %> QQ <% end if %> <%if rs("url")<>"http://" then %> " target="_blank" title="<%=rs("url")%>">主页 <% else %> 主页 <% end if%>

" alt=<%if rs("male") then response.write "帅哥" else response.write "美眉"%> >
<% response.write rs("name") if rs("bl")=1 then if isMaster(rs("name")) then response.write "" else response.write "" end if end if%>

<%=ubbcode(rs("nei"))%>
返回列表 [ 发表时间：<%=rs("t")%> ] <% if theUser.reged then %> ">编辑 <% else %> 编辑 <% end if if theUser.master then %> ">管理 IP:<%=rs( 来源:<%=rs("comefrom")%>"> <% else %> 管理 ＩＰ:保密 来源:保密 <% end if %> 返上
<% rs.close '显示跟帖 exec="select * from ly where rt=" + CStr(xxid) + " order by id" set rs=conn.execute(exec) %> <%do while (not rs.EOF)%>
<% '锚点 response.write "" if rs("jh")=1 then %> <%else%> <%end if%> " align=absmiddle> <%=rs("title")%>
#re">回复 <%if rs("email")<>"" then %> " title="<%=rs("email")%>">邮箱 <% else %> 邮箱 <% end if %> <% if rs("qq")<>"" then %> " target="_blank" title="<%=rs("qq")%>">QQ <% else %> QQ <% end if %> <%if rs("url")<>"http://" then %> " target="_blank" title="<%=rs("url")%>">主页 <% else %> 主页 <% end if%>

" alt=<%if rs("male") then response.write "帅哥" else response.write "美眉"%> >
<% response.write rs("name") if rs("bl")=1 then if isMaster(rs("name")) then response.write "" else response.write "" end if end if%>

<%=ubbcode(rs("nei"))%>
返回列表 [ 发表时间：<%=rs("t")%> ] <% if theUser.reged then %> ">编辑 <% else %> 编辑 <% end if if theUser.master then %> ">管理 IP:<%=rs( 来源:<%=rs("comefrom")%>"> " > <% else %> 管理 ＩＰ:保密 来源:保密 <% end if %> 返上
<% rs.MoveNext loop rs.close set rs=nothing conn.close set conn=nothing %> <% 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　　：
主 页 地 址：
选 择 表 情：
Ubb标签：
Q 帖图： Q帖图一 　Q帖图二 　Q帖图三

留
言
内
容

        ">     (Ctrl+Enter提交)
<% end if %>