 |
 |
||
 |
 |
||
 |
 |
|
|
|
| 您的位置：首页 |
当前时间：
|
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||
 |
|
||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||
友情链结
 |
 |
上海宏英企业策划有限公司 版权所有
tel:64481240 64470182 54510702
<% Sub increase() Application.Lock Application("counter")=Application("counter")+1 Application.Unlock End Sub Sub openjishu() mysql="select * from jishu" Set myres=mycon.Execute(mysql) Application("counter")=myres.fields("counter") End Sub Sub closejishu() mysql="update jishu set [counter]='"&Application("counter")&"'" Set myres=mycon.Execute(mysql) End Sub Set mycon=Server.CreateObject("ADODB.Connection") strcon="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database\myjob.mdb") mycon.Open strcon call openjishu() call increase() call closejishu() %>
