Question

asp代码如何实现获取本机真实IP，并通过页面输入验证码正确后，提交至一个“固定的txt文本”内？

小站需要补充一点小功能，限制非法IP访问，只允许“固定文本”内的IP访问本站，
问题出现了
1、如何获取本机真实IP
2、怎么样校验验证码
3、如何判断验证码正确后，取本机真实IP，并记录入“固定文本”

Answer 1

这个可以超过代理IP,取得真实地址!
<% Function GetUserTrueIP()
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
GetUserTrueIP = Trim(Mid(strIPAddr, 1, 30))
End Function
%>
将以上代码存为一个文件,用时调用就行咯~
显示用:<%= GetUserTrueIP() %>