<% On Error Resume Next id=int(funstr(Request.QueryString("id"))) shu="" set rs=server.CreateObject("adodb.recordset") sql="select * from page where id="&id rs.open sql,conn,1,3 if not rs.eof then shu=rs("shu")+1 rs("shu")=shu rs.update set rs=nothing response.Write "document.write('"&shu&"');" end if connclose %>