id=request("id")
if id="" or not isnumeric(id) then
response.write "参数错误"
else
set rs=server.createobject("adodb.recordset")
sql="select * from bbs where id="&id
rs.open sql,conn,3,2
if rs.eof then
response.write "没有这条信息"
else
rs("count")=rs("count")+1'记数加1
rs.update
'显示新闻
end if
end if