<%
dim db:db="../../include/database/#anxinmall.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 prodid : prodid = request.querystring("prodid")
set rs=server.createobject("adodb.recordset")
rs.open "update [anxinMall_prod] set showTimes=showTimes+1 where prodid= "&prodid,conn,1,3

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