www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > inc/inc_serv_func.asp
<% '=================================================================== '= ASP FILENAME : /inc/serv_func.asp '= CREATED TIME : AUG,6,2003 '= LAST MODIFIED: AUG,6,2003 '= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com '= DESCRIPTION : 与服务器及其环境有关函数库 '= Change Log: '=================================================================== '=================================================================== '= Function : GetUserIp() '= Time : Created At SEP,17,2003 '= Input : None '= Return : IP地址 '= Description : 获取用户上网的绝对IP '=================================================================== Function GetUserIp() If Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" Then GetUserIp = Request.ServerVariables("HTTP_X_FORWARDED_FOR") Else GetUserIp = Request.ServerVariables("REMOTE_ADDR") End If End Function %>