inc_serv_func.asp

jsp 同学录源码

<%
'===================================================================
'= 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

%>