<%@ LANGUAGE="VBSCRIPT" %> <%response.buffer=false dim sql_hit dim rs_hit dim articleid articleid=request("id") set rs_hit=server.createobject("adodb.recordset") sql_hit="update article set hits=hits+1 where newsID="&articleid rs_hit.open sql_hit,conn,1,1 %> <% rs_hit.close Set rs_hit = Nothing dim sql_hits dim rs_hits set rs_hits=server.createobject("adodb.recordset") sql_hits="select * from article where newsID="&articleid rs_hits.open sql_hits,conn,1,1 dim i i=rs_hits("hits") %> javastr="" javastr=javastr+"<%=i%>" <% rs_hits.close Set rs_hits = Nothing conn.close %> document.write (javastr)