<%
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")
conn.Execute("update [anxinMall_article] set hits=hits+1 where newsid= "&newsid)
%>
document.writeln("<%=Conn.Execute("Select hits From [anxinMall_article] where newsid="&newsid)(0)%>");
<%
conn.close
Set conn=nothing
%>