<% dim xxid, exec, rs xxid=replace(trim(request("id")),"'","") if xxid="" or not isnumeric(xxid) then session("error")="非法访问！" connclose() response.redirect "error.asp" end if 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%>
  
"> <% response.write 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 %> 返上
<% rs.close set rs=nothing conn.close set conn=nothing %>