<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% id=request("id") if id<>"" then Set Rs = conn.execute("select hits,id from news where id="&id&"") if not rs.eof then dim hits : hits=rs("hits") conn.execute("update news set hits="&hits+1&" where id="&id&"") hits=cstr(hits) end if rs.close set rs=nothing end if %> document.write('<%=hits+1%>');