<%
on error resume next
dim rs,sql,imgpath
imgpath="uppic/"
sql="update news set hits=hits+1 where id="&cstr(request("id"))
conn.execute sql
set rs=server.createobject("adodb.recordset")
sql="select * from news where id="&cstr(request("id"))
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write ""
response.end
else
%>
新闻浏览
