急求!!现急要一个asp程序能记录IP及时间,注:要程序和数据库,用TXT作数据库也行
2014-09-02
2023-07-25 广告
<% @language="vbscript" %>
<%
response.buffer=true
Response.Expires=0
'dim rs,sql,conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\ip") & "\ip.mdb;"
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from counter"
rs.open sql,conn,3,2
nCounter=rs("counter")
rs.close
if session("in")<>"in" then
'判断用户是否已进入主页,以确保他按刷新或再次来到此页面时计数器不会再加1
session("in")="in"
sql="select * from ip "
rs.open sql,conn,3,2
rs.addnew
rs("ip")=Request.ServerVariables("REMOTE_HOST")
rs("datetime")=now()
rs.update
rs.close
sql="select * from counter"
rs.open sql,conn,3,2
rs("counter")=rs("counter")+1
rs.update
nCounter=rs("counter")
rs.close
end if
%>
核心代码如上,数据库格式比较简单,数据库名为IP.MDB, 两个表counter和ip两个表,详细的代码发附件给你。
。。。。。。。