 |
地址：杭州市下城区朝晖路182号国都发展大厦1号楼23层G座 电话：0571-87920512
87920515 传真：0571-87920519 E-mail：web@cnhzhy.com
浙ICP备05025675号
<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("counter.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SET Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From counters" , conn,1,3
Rs("TOTAL")=Rs("TOTAL") + 1
Rs.Update
MyCounter( Rs("TOTAL") )
CONN.CLOSE
Function MyCounter( counter )
Dim S, i, G
S = CStr( counter )
For i = 1 to Len(S)
G = G & "![](./gif/") "
Next
Response.write G
End Function
%>
|
|
