| Copyright©2003 All rights reserved. 你是第<%=" "%><%=rs2("total_visitors")%> 位訪客 |
Today is: " & Date() & "
" 'Response.write "Time is: " & Time() & "
" one = Date() & "" two = Time() & "" 'Response.Write "Address: " & Address & " resolves to host: " & _ 'dns.ReverseLookup(Address) & "
" Set conn = Server.CreateObject("ADODB.Connection") Provider = "Provider=Microsoft.Jet.OLEDB.4.0;" DBPath = "Data Source=" & Server.MapPath("counter.mdb") conn.Open Provider & DBPath Set rs = Server.CreateObject("ADODB.Recordset") sqlstr = "select * from visitor" rs.Open sqlstr, conn, 3, 2 rs.AddNew rs("date") = one rs("time") = two rs("ip") = ClientIP 'rs("name") = dns.ReverseLookup(Address) rs.Update Set rs=Nothing Set conn=Nothing Set conn2 = Server.CreateObject("ADODB.Connection") Provider = "Provider=Microsoft.Jet.OLEDB.4.0;" DBPath = "Data Source=" & Server.MapPath("counter.mdb") conn2.Open Provider & DBPath Set rs2 = Server.CreateObject("ADODB.Recordset") sqlstr2 = "select * from total_no_visitor" rs2.Open sqlstr2, conn2, 3, 2 If rs2 Is Nothing Then conn2.close Set rs2=Nothing Set conn2=Nothing Else rs2.MoveFirst total_number = rs2("total_visitors") rs2("total_visitors") = total_number + 1 rs2.Update 'Set rs2=Nothing 'Set conn2=Nothing End If %> |
|
|
|
||
|
||
|
|
||
|
||