asp记录访问者ip地址
要求有人登陆我的网站首页时,自动记录访问者的IP地址和登陆时间,把数据记录到access数据库,请写出完整的代码,谢谢!我的数据库和首页是放在一起的,只是不会写数据库的路...
要求有人登陆我的网站首页时,自动记录访问者的IP地址和登陆时间,把数据记录到access数据库,请写出完整的代码,谢谢!
我的数据库和首页是放在一起的,只是不会写数据库的路径。表名是ip,ip的字段名为"ip",时间为"time",能不能写一个完整的网页?网页的内容可以是空白的。 展开
我的数据库和首页是放在一起的,只是不会写数据库的路径。表名是ip,ip的字段名为"ip",时间为"time",能不能写一个完整的网页?网页的内容可以是空白的。 展开
2个回答
展开全部
ip = Request.ServerVariables("REMOTE_ADDR") '获取访问者的IP
now_time = now '获取登陆时间(服务器时间)
完整的代码如下
dim conn,rs,ip,now_time
set conn=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("数据库路径")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.CreateObject("adodb.recordset")
sql = "表名"
rs.open sql,conn,3,2
rs.addnew
ip = Request.ServerVariables("REMOTE_ADDR") '获取访问者的IP
now_time = now '获取登陆时间(服务器时间)
rs("字段名1") = ip
rs("字段名2") = now_time
rs.update
now_time = now '获取登陆时间(服务器时间)
完整的代码如下
dim conn,rs,ip,now_time
set conn=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("数据库路径")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.CreateObject("adodb.recordset")
sql = "表名"
rs.open sql,conn,3,2
rs.addnew
ip = Request.ServerVariables("REMOTE_ADDR") '获取访问者的IP
now_time = now '获取登陆时间(服务器时间)
rs("字段名1") = ip
rs("字段名2") = now_time
rs.update
Storm代理
2023-07-25 广告
2023-07-25 广告
StormProxies是一家提供动态代理服务器服务的企业,旨在帮助用户更好地管理网络访问和安全。以下是一些关于StormProxies的IP动态代理服务的特点:1. 高匿名性:StormProxies的动态代理服务器具有高匿名性,可以有效...
点击进入详情页
本回答由Storm代理提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询