<%
dim rs,sql,view,Uview
set rs=server.CreateObject("adodb.recordset")
sql="select * from news where newsid="&cint(request.querystring("id"))
rs.open sql,conn,1,3
conn.execute("Update News Set Views=views+1 where NewsId = "&cint(request.querystring("id")))
 %>
后面直接调用:<%=rs("Views")%>

=======================================================================

<%
dim rs,sql,view,Uview
set rs=server.CreateObject("adodb.recordset")
sql="select * from news where newsid="&cint(request.querystring("id"))
rs.open sql,conn,1,3
View=rs("views")
Uviews=views+1
conn.execute("Update News Set View="&Uviews&"+1 where NewsId = "&cint(request.querystring("id")))
 %>
后面直接调用:<%=rs("View")%>