asp的老鸟们，帮我解决一个这样的问题，关于记录访问者IP的

2009-07-27 07:42:11 161 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ESP32-S3双模CMSIS-DAP调试器：USB+WiFi无线调试方案 CMSIS-DAP是ARM生态中标准化的嵌入式调试协议接口，广泛用于Keil、IAR、STM32CubeIDE等开发环境。其核心原理是通过SWD/JTAG物理层实现目标芯片寄存器访问、内存读写与断点控制，依赖确定性时序和低延迟通信。传统DAPLink调试器受限于USB线缆束缚，而WiFi-USB-DAPLink项目将完整CMSIS-DAP v2协议栈移植至ESP32-S3平台，同时支持USB CDC直连与WiFi TCP远程通道，兼顾实时性与网络化部署能力。该方案无需主机驱动、兼容主流IDE，并支持多机并发阅读详情

详细解释一下
首先，我自己下的源码，可以看一下案例http://a.wdzz.net
就是这样一个源码，我现在想实现这样的功能:记录访问者的IP,并写入数据库,如何实现这样的功能，老手指点一下啊！小弟不省感激啊，讨论一下的也行啊

...全文

中图法第五版SQL，支持树形结构可直接导入使用基于第五版中图法官方数据收集整理，效果图如下：阅读详情

听风说话

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

gmlwl 2009-08-01

打赏
举报

1楼正解

凡夫与俗子 2009-07-31

打赏
举报

额。还想进来混点分。楼上都写的很清楚了，俺只能阿弥陀佛了

草原可可 2009-07-31

打赏
举报

function GetIp()
dim yyrealip,yyproxy
yyrealip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
yyproxy = Request.ServerVariables("REMOTE_ADDR")
if yyrealip = "" then
GetIp = yyproxy
else
GetIp = yyrealip
end if
end function

获取到IP后保存进数据库

renzaijiang 2009-07-31

打赏
举报

很详细了
http://3333.800y.net/showpic.asp

tsxnb 2009-07-31

打赏
举报

首先创建一个数据库IP.mdb，用于记录访问者的IP地址，表IP包含字段：TITLE,IP,addtime
然后在被访问网页加如下代码：
<%
Dim zr_Conn,TITLE,IP
TITLE="某网页标题名称"
ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If ip = "" Then
ip = Request.ServerVariables("REMOTE_ADDR")
end if
Set zr_Conn = Server.CreateObject("ADODB.Connection")
zr_Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("IP.mdb")
zr_Conn.Execute("INSERT INTO IP (TITLE,IP,addtime) VALUES ('" & TITLE & "','" & IP & "','" & now() & "') ")
zr_Conn.Close()
Set zr_Conn=Nothing
%>

aemyang1987 2009-07-27

打赏
举报

Request.ServerVariables("REMOTE_HOST")

Jey 2009-07-27

打赏
举报

[Quote=引用 2 楼 shenzhennba 的回复:]
根据你的需要修改参数....

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档 </title>
</head>

<body>
<%
'...数据库连接...
dim objDB,strConn
strConn="DBQ="+server.mappath("path/DB_NAME.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set objDB=server.CreateObject("adodb.connection")
objDB.open strConn

'...获取并保存IP操作
dim xip,insql
xip=request.ServerVariables("REMOTE_ADDR")
if xip="" then
xip=request.ServerVariables("REMOTE_HOST")
end if
insql="insert into 表 ([ip字段]) values ('" & xip & ")"
objDB.Execute(insql)

if err.number =0 then
response.Write "IP:" & xip & " <br>IP数据记录成功 / IP record in DB OK."
end if
%>

</body>
</html>

[/Quote]

支持楼上

shenzhenNBA 2009-07-27

打赏
举报

根据你的需要修改参数....

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<%
'...数据库连接...
dim objDB,strConn
strConn="DBQ="+server.mappath("path/DB_NAME.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set objDB=server.CreateObject("adodb.connection")
objDB.open strConn

'...获取并保存IP操作
dim xip,insql
xip=request.ServerVariables("REMOTE_ADDR")
if xip="" then
xip=request.ServerVariables("REMOTE_HOST")
end if
insql="insert into 表 ([ip字段]) values ('" & xip & ")"
objDB.Execute(insql)

if err.number =0 then
response.Write "IP:" & xip & "<br>IP数据记录成功 / IP record in DB OK."
end if
%>

</body>
</html>

cpp2017 2009-07-27

打赏
举报

Request.ServerVariables("REMOTE_HOST")
就是对方ip,写进数据库就好了。

asp的老鸟们，帮我解决一个这样的问题，关于记录访问者IP的

相关推荐