<٪
'*********************************
'الوظيفة: userip ()
المعلمات: لا شيء
المؤلف: Alixi
"التاريخ: 2007/7/12
الوصف: الحصول على عنوان IP العميل
"مثال: <٪ = userip () ٪>
'*********************************
وظائف الوظيفة ()
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
نسخة الكود كما يلي:
<٪
'*********************************
"الوظيفة: CIP (SIP)
المعلمات: SIP ، عنوان IP
المؤلف: Alixi
"التاريخ: 2007/7/12
الوصف: تحويل وظيفة عنوان IP
"مثال: <٪ = CIP (" 219.16.73.120 ") ٪>
'*********************************
وظيفة (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)
الوظيفية
٪>