<% id=Request("id") Set rs=Server.CreateObject("ADODB.RecordSet") sql= "Select hits from article where id="&id Rs.Open Sql,Conn,1,3 if not rs.eof then hits=rs("hits") rs("hits")=hits+1 rs.update pp=" ÔĶÁ " & hits+1 & " ´Î" end if rs.close set rs=nothing Response.write "document.write('"&pp&"');" %>