在ASP中，可以使用以下代码获取访问者的IP地址，并将其写入数据库：
<%@ Language=VBScript %>
<%
' 获取访问者的IP地址
Dim ip
ip = Request.ServerVariables("REMOTE_ADDR")
' 连接数据库
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:pathtoyourdatabase.mdb"
' 插入IP地址到数据库
Dim sql
sql = "INSERT INTO ipAddress (ipAddr) VALUES ('" & ip & "')"
conn.Execute sql
' 关闭数据库连接
conn.Close
Set conn = Nothing
%>请注意，上述代码使用的是Access数据库，数据库连接字符串可能需要根据实际情况进行修改。同时，为了安全起见，建议对IP地址进行适当的验证和过滤，以防止SQL注入等安全问题的产生。
要实现asp access获取IP地址并将其写入数据库，你可以按照以下步骤进行操作：
-
创建一个数据库表格来存储IP地址。可以使用类似以下SQL语句创建一个名为
IpTable的表格：CREATE TABLE IpTable ( IpID INT PRIMARY KEY IDENTITY(1,1), IpAddress VARCHAR(255) )这将创建一个包含两个字段的表格，
IpID作为主键，IpAddress用来存储IP地址。 -
在你的ASP页面中，使用以下代码获取用户的IP地址：
<% Dim ipAddress ipAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If ipAddress = "" Then ipAddress = Request.ServerVariables("REMOTE_ADDR") End If %>这段代码将首先尝试获取通过代理服务器发送请求的IP地址，如果找不到，则获取本地IP地址。
-
接下来，将获取到的IP地址插入到数据库中。使用以下代码将IP地址插入到
IpTable表格：
<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=path/to/your/database.mdb" Set cmd = Server.CreateObject("ADODB.Command") cmd.ActiveConnection = conn cmd.CommandText = "INSERT INTO IpTable (IpAddress) VALUES (?)" cmd.Parameters.Append cmd.CreateParameter("@IpAddress", adVarChar, adParamInput, 255, ipAddress) cmd.Execute() conn.Close Set cmd = Nothing Set conn = Nothing %>这段代码会连接到数据库，并执行一个插入语句，将获取到的IP地址插入到
IpTable表格的IpAddress字段中。
请注意，上述代码中的path/to/your/database.mdb应替换为你的数据库的路径。
完成以上步骤后，当用户访问你的ASP页面时，它将获取用户的IP地址，并将其写入到数据库中的IpTable表格中。
发布者：luotuoemo，转转请注明出处：https://www.jintuiyun.com/148388.html
