If UserTrueIP = "" Then UserTrueIP = Request.ServerVariables("REMOTE_ADDR") IF instr(UserTrueIP,".") > 3 Then
Dim aipt aipt=Split(UserTrueIP,",") UserTrueIP=aipt(0) End IF
如果以上代碼不可以,可以使用:
If UserTrueIP = "" Then UserTrueIP = Request.ServerVariables("REMOTE_ADDR") IF instr(UserTrueIP,".") > 3 Then UserTrueIP = Request.ServerVariables("REMOTE_ADDR")