|
厦门市工商行政管理局思明区工商局 地址：厦门市湖滨东路54号 联系电话：0592-5815459 注册咨询电话：5813755 本站访问人数：<% dim connstr,conn,counter,rsr,sql_sel connstr="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.mappath("/mdb/countsiming.mdb")&";Persist Security Info=True" Set Conn = Server.CreateObject("ADODB.Connection") 'on error resume next Conn.open Connstr If Err Then Err.Clear Set Conn = Nothing Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置" Response.End End If sql_sel="select top 1 count from countx " set rsr=conn.execute(sql_sel) counter=rsr(0) sql_sel="update countx set [count]=[count]+1 " application.lock conn.execute(sql_sel) counter=counter+1 application.unlock response.write counter set conn=nothing %> |
