<%
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
%>