<٪
'*******************************************************************************
احصل على عنوان IP
'*******************************************************************************
وظائف الوظيفة ()
DimgetClientip
"إذا كان العميل يستخدم خادم وكيل ، فيجب عليه استخدام طريقة ServerVariables (" http_x_forwarded_for ")
getClientip = request.servervariables ("http_x_forwarded_for")
ifgetClientip = "" orisnull (getClientip) orisempty (getClientip) ثم
"إذا لم يستخدم العميل وكيلًا ، فيجب استخدام طريقة request.servervariables (" remote_addr ")
getClientip = request.ServerVariables ("REMOTE_ADDR")
Endif
userip = getClientip
الوظيفية
'*******************************************************************************
"تحويل عنوان IP
'*******************************************************************************
وظيفة (SIP)
نصيحة = CSTR (SIP)
sip1 = اليسار (طرف ، cint (instr (tip ، ".")-1)))
نصيحة = mid (tip ، cint (instr (tip ، ".")+1))
sip2 = اليسار (طرف ، cint (instr (tip ، ".")-1)))
نصيحة = mid (tip ، cint (instr (tip ، ".")+1))
sip3 = اليسار (طرف ، 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)
الوظيفية
'*******************************************************************************
يظهر مربع الحوار
'*******************************************************************************
سوباليرت (رسالة)
رسالة = استبدال (رسالة ، "" "،"/'")
Response.write ("<script> ALERT ('" & message & "') </script>")
ينتهي
'*******************************************************************************
"العودة إلى الصفحة السابقة ، تستخدم عادة بعد الحكم على ما إذا كانت المعلومات قد تم تقديمها بالكامل
'*******************************************************************************
subgoback ()
Response.write ("<script> History.go (-1) </script>")
ينتهي
'*******************************************************************************
إعادة توجيه اتصال آخر
'*******************************************************************************
Subgo (URL)