<% id=Cint(request.QueryString("id")) rs.open "select * from [news] where id="&id,conn,1,3 if rs.bof and rs.eof then response.write("

您查找的新闻不存在

") response.End() end if rs("click")=rs("click")+1 sortid=Cint(rs("sort")) dim writetext writetext=rs("contents") select case sortid case 1 writetext=ubbcode(writetext) case 2 writetext=server.HTMLEncode(writetext) case 3 rs.update rs.close response.write("

新闻链接，正在转向，请稍候

") response.write("") response.End() case else writetext=server.HTMLEncode(writetext) end select writetext=replace(writetext,vbCRLF,"
"&vbCRLF) ntime=rs("time") rname=rs("name") %>

<%=rs("title")%>

<%response.write(writetext)%>