<% dim id id=int(request("id")) set rs=server.createobject("adodb.recordset") sql="select * from News where ID="&int(id) rs.open sql,Conn,1,3 if not(rs.eof and rs.bof) then hits=rs("hits")+1 rs("hits")=rs("hits")+1 rs.update end if rs.close set rs=nothing response.write("document.write('"&hits&"')") %>