<%
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")
set rs=server.createobject("adodb.recordset")
rs.open "update [anxinMall_company] set showtime=showtime+1 where id= "&id,conn,1,3

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