<%
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 id : id = request.querystring("id")
conn.Execute("update [anxinmall_weixin] set showtime=showtime+1 where id= "&id)
%>
document.writeln("<%=Conn.Execute("Select showtime From [anxinmall_weixin] where id="&id)(0)%>");
<%
conn.close
Set conn=Nothing
%>