<%
dim db:db="../../include/database/#o2olifemenhu.mdb"
dim connStr:connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Set conn = Server.CreateObject("ADODB.Connection")

conn.Open connstr
dim newsid : newsid = request.querystring("newsid")
set rs=server.createobject("adodb.recordset")
rs.open "update [anxinMall_fangan] set hits=hits+1 where newsid= "&newsid,conn,1,3

rs.open "Select hits from [anxinMall_fangan] where newsid= "&newsid,conn,1,3
%>
document.writeln("<%=rs("hits")%>");
<%
rs.close
Set rs=Nothing
%>