%
dim sqlstr,oRs, det
if Request.QueryString("id") <> "" then
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From Conews where id="&int(Request.QueryString("id")), conn,3,3
'纪录访问次数
rs("counter")=rs("counter")+1
rs.update
nCounter=rs("counter")
content=ubbcode(rs("content"))
'sqlstr = "select * from conews where id=" & Request.QueryString("id")
'set rs=conn.execute(sqlstr)
if rs.Eof then
Response.Write("没有数据")
end if
end if
%>