ASP常用函數收藏亂七八糟未整理版

<%

'*******************************************************************

'取得IP地址

'*******************************************************************

FunctionUserip()

DimGetClientIP

'如果客戶端用了代理服務器，則應該用ServerVariables("HTTP_X_FORWARDED_FOR")方法

GetClientIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")

IfGetClientIP=""orIsNull(GetClientIP)orIsEmpty(GetClientIP)Then

'如果客戶端沒用代理，應該用Request.ServerVariables("REMOTE_ADDR")方法

GetClientIP=Request.ServerVariables("REMOTE_ADDR")

EndIf

Userip=GetClientIP

EndFunction

'*******************************************************************

'轉換IP地址

'*******************************************************************

Functioncip(sip)

tip=CStr(sip)

sip1=Left(tip,CInt(InStr(tip,".")-1))

tip=Mid(tip,CInt(InStr(tip,".")+1))

sip2=Left(tip,CInt(InStr(tip,".")-1))

tip=Mid(tip,CInt(InStr(tip,".")+1))

sip3=Left(tip,CInt(InStr(tip,".")-1))

sip4=Mid(tip,CInt(InStr(tip,".")+1))

cip=CInt(sip1)*256*256*256+CInt(sip2)*256*256+CInt(sip3)*256+CInt(sip4)

EndFunction

'*******************************************************************

'彈出對話框

'*******************************************************************

Subalert(message)

message=Replace(message,"'","/'")

Response.Write("<script>alert('"&message&"')</script>")

EndSub

'*******************************************************************

'返回上一頁，一般用在判斷信息提交是否完全之後

'*******************************************************************

SubGoBack()

Response.Write("<script>history.go(-1)</script>")

EndSub

'*******************************************************************

'重定向另外的連接

'*******************************************************************

SubGo(url)