<% xycmsid=request.querystring("id") set rs=server.createobject("adodb.recordset") sql="select [hit],[id] from [article] where id="&xycmsid&"" rs.open(sql),conn,1,3 if not rs.eof then rs("hit")=rs("hit")+1 view_id=request.cookies(cstr(rs("id"))) if view_id="" then response.cookies(cstr(rs("id")))=rs("id") response.cookies(cstr(rs("id"))).expires=date()+1 end if rs.update hit=rs("hit") response.Write "document.write("&hit&")" end if rs.close set rs=nothing %>