<% '****************************** '函数：GetUserTrueIP() '参数：无 '作者：阿里西西 '日期：2007/7/13 '描述：取得用户真实IP，对代理地址仍然有效；返回值：文本类型的IP地址 '示例：<%=GetUserTrueIP()%> '****************************** 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 %>

　　推荐阅读

　　asp通过JMAIL实现通用发送函数

<% '****************************** '函数：SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority) '参数：MailtoAddress,接收邮件地址；MailtoName,接收者姓名；ubject,主题；ailBod>>>详细阅读

本文标题：asp 取得用户真实IP，对代理地址仍然有效的函数

地址：http://www.17bianji.com/kaifa2/ASP/32488.html

 1/2    1