<% 'on error resume next
Set dc = server.CreateObject("ADODB.Connection")
dc.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &_
Server.MapPath("asp\asp.mdb")
Set rs = server.CreateObject("ADODB.RecordSet")
dc.execute("update counter set counter=counter+1")
%>
高能资本有限公司 Power Capital Co., Ltd.