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

<%if rs("jh")=1 then %>

<%else%>

<%end if%>

" align=absmiddle> <%=rs("title")%>

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

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

<% end if %>

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