版权所有：安徽金阳金属结构工程有限公司　 　点击直接进入网站>>>

地　址：范岗镇南工业园　 电　话：0556-6021122　　传　真：0556-6021000　　技术支持： <% Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("djry.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath SET Rs = Server.CreateObject("ADODB.Recordset") Rs.Open "Select * From counters" , conn,1,3 IF CSTR(Month(Rs("DATE"))) <> CSTR(Month(DATE())) THEN Rs("DATE") = DATE() Rs("YESTERDAY") = RS("TODAY") Rs("BMONTH") = Rs("MONTH") Rs("MONTH") = 1 Rs("TODAY") = 1 Rs.Update ELSE IF CSTR(Day(RS("DATE"))) <> CSTR(Day(DATE())) THEN Rs("DATE") = DATE() Rs("YESTERDAY") = Rs("TODAY") Rs("TODAY") = 1 Rs.Update END IF END IF Rs("TOTAL") = Rs("TOTAL") + 1 Rs("TODAY") = Rs("TODAY") + 1 Rs("MONTH") = Rs("MONTH") + 1 Rs.Update Response.write "总访问量：" MyCounter( Rs("TOTAL") ) Function MyCounter( counter ) Dim S, i, G S = CStr( counter ) For i = 1 to Len(S) G = G & "" Next Response.write G End Function %>