Question

asp获取客户端ip

asp中的表单里加入获取客户端ip的代码，但是客户端不能看到，在客户端提交表单时，将客户端的ip写入数据库。现在不知道怎么获取客户端的ip,也找到了一些获取客户端ip的方法。但是不知道怎么用啊，能不能做成隐藏域呢？
请大虾说明原理并给出在表单中的代码供参考

Answer 1

Private Function getIP()

Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
Else
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
getIP = Trim(Mid(strIPAddr, 1, 30))
End Function
''''调用演示
response.write getIP()

Answer 2

ip=request.servervariables("REMOTE_ADDR")