<% dim action,id action = request.querystring("action") id = request.querystring("id") %> 阅读次数 <% select case action case "news" set rs=server.CreateObject("adodb.recordset") rs.open "select loads from [Hu_news] where id="&id&"",conn,1,3 if rs.bof and rs.eof then response.write "0" else rs("loads") = rs("loads")+1 rs.update response.write rs("loads") end if rs.close set rs=nothing end select %>