%
on error resume next
dim rs,sql
sql="update news set Hits=Hits+1 where NewsId="&cstr(request("id"))
conn.execute sql
set rs=server.createobject("adodb.recordset")
sql="select * from news where NewsId="&cstr(request("id"))
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "此文章已经删除。。。"
else
%>