%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% ' *** This is a sample counter write by xPilot *** ' *** Something question please visite http://pilothome.yeah.net *** ' *** or mail to xpilot@21cn.com *** MM_xp_count_ODBC = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.Mappath("XP_Counter.mdb") MM_xp_count_OLEDB = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.Mappath("XP_Counter.mdb") set rs_count = Server.CreateObject("ADODB.Recordset") rs_count.ActiveConnection = MM_xp_count_OLEDB rs_count.Source = "SELECT * FROM xp_count WHERE id = 1" rs_count.CursorType = 0 rs_count.CursorLocation = 2 rs_count.LockType = 3 rs_count.Open() rs_count_numRows = 0 Dim xp_Counter,xp_CounterIP,xp_reCounterIP '判断是否已经访问过 if not session("xp_Counted") then '取上次计数值 xp_Counter = rs_count("xp_countnum") rs_count("xp_countnum") = xp_Counter + 1 rs_count.Update session("xp_Counted") = true end if '获得最新计数值 xp_Counter = rs_count("xp_countnum") '取所需计数字符长度 Length = Len(xp_Counter) %>
|
||||||||||||||||||||