<% rem 按留言本方式查看 Set RS = Server.CreateObject("ADODB.RecordSet") rs.Open exec, Conn, 1, 1 do until rs.eof %>

<% if rs("istop")=1 then response.write "

" elseif rs("jh")=1 then response.write "

" elseif rs("islock") then response.write "

" else response.write "

" 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"))%>

<%if rs("hf")>0 then exec="select top 1 * from ly where rt="&rs("id")&" order by id desc" set rs1=conn.execute(exec) if not rs1.eof then %>

最后回复： align=absmiddle> <%=rs1("title")%>	回复人： <% response.write rs1("name") if rs1("bl")=1 then if isMaster(rs1("name")) then response.write "" else response.write "" end if end if%>
<%=ubbcode(rs1("nei"))%>

<% end if rs1.close set rs1=nothing end if %>

<% if rs("hf")>0 then response.write "查看全部回复("&rs("hf")&")" else response.write "回复该留言" end if %>

[ 发表时间：<%=rs("t")%> ]

<% if theUser.reged then %> ">

<% else %>

<% end if if theUser.master then %> ">

来源:<%=rs("comefrom")%>"> " > <% else %>

<% end if %>

<% rs.movenext loop rsclose() connclose() %>