<% dim fldId fldId = 0 if request("id") <> "" then if isNumeric(request("id")) then fldId = cint(request("id")) end if end if set rs = server.CreateObject("adodb.recordset") rs.open "select news_hot from news where news_id=" & fldId,conn,3,3 if not rs.eof then rs("news_hot") = rs("news_hot") +1 rs.update response.Write("document.write("""&rs("news_hot")&""");") end if rs.close set rs = nothing conn.close set conn = nothing %>