<% Newsid=request("Newsid") set rs8=server.CreateObject("adodb.recordset") sql8="select * from news where id="&Newsid rs8.open sql8,conn,1,3 if not rs8.eof then ClickNum=rs8("hits") rs8("hits")=rs8("hits")+1 rs8.update end if rs8.close set rs8=nothing conn.close set conn=nothing response.write("document.write("""&ClickNum&""");") %>