<%=sitetitle%>

<% dim xxid, exec, rs xxid=trim(request("id")) exec="select * from ly where id=" + CStr(xxid) + " " Set RS = Server.CreateObject("ADODB.RecordSet") rs.Open exec, Conn, 1, 2 rs("yd")=rs("yd")+1 rs.update %> <%=sitetitle%>

"> <%=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.close set rs=nothing conn.close set conn=nothing %>