% dim conn,ff 'dim connstr Set conn = Server.CreateObject("ADODB.Connection") 'server为服务器地址可以填写IP,UID为登陆用户名,PWD为密码,DATABASE为数据库名 'connstr="DSN=SP;UID=IUSR_KHXGX;PWD=" 'conn.Open connstr ff=server.mappath("lz.asp") conn.open "driver={microsoft access driver (*.mdb)};dbq="&ff %>
![]() |
设为主页
加入收藏 联系我们 |
|
欢迎第 <%SET Rs1 = Server.CreateObject("ADODB.Recordset") Rs1.Open "Select * From counter" , conn,1,3 Rs1("TOTAL")=Rs1("TOTAL") + 1 Rs1.update response.write MyCounter( Rs1("TOTAL") ) Function MyCounter( counter ) Dim S, i, G S = CStr( counter ) For i = 1 to Len(S) G = G & " |