如何在网页中添加最近浏览网页的IP和时间的代码?
ip = Request.ServerVariables("REMOTE_ADDR") '获取访问者的IPnow_time = now '获取登陆时间(服务器时间)完整的代码如下dim conn,rs,ip,now_timeset conn=Server.CREATEOBJECT("ADODB.CONNECTION"
)DBPath = Server.MapPath("数据库路径")conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPathset rs=server.CreateObject("adodb.recordset"
)sql = "表名"rs.open sql,conn,3,2rs.addnewip = Request.ServerVariables("REMOTE_ADDR") '获取访问者的IPnow_time = now '获取登陆时间(服务器时间)rs("字段名1") = iprs("字段名2") = now_timers.update
Copyright © 广州京杭网络科技有限公司 2005-2024 版权所有 粤ICP备16019765号
广州京杭网络科技有限公司 版权所有