أبسط جملة هي استخدام ما يلي:
IP = request.ServerVariables ("REMOTE_ADDR")
استجابة. write (IP)
ومع ذلك ، فإن هذه الطريقة ليست دقيقة لخوادم الوكيل للوصول إلى الإنترنت ، وبالتالي فإن الطريقة الأكثر شمولاً هي استخدام الطريقة التالية:
نسخة الكود كما يلي:
<٪ privatefunctiongetip ()
dimstripaddr
ifrequest.servervariables ("http_x_forwarded_for") = "" orinstr (request.servervariables ("http_x_forwarded_for") ، "غير معروف")> 0then
Stripaddr = request.ServerVariables ("Remote_addr")
elseifinstr (request.servervariables ("http_x_forwarded_for") ، "،" ، ")> 0then
Stripaddr = mid (request.servervariables ("http_x_forwarded_for") ، 1 ، instr (request.servervariables ("http_x_forwarded_for") ، ")-1))
elseifinstr (request.servervariables ("http_x_forwarded_for") ، "؛")> 0then
Stripaddr = mid (request.servervariables ("http_x_forwarded_for") ، 1 ، instr (request.servervariables ("http_x_forwarded_for") ، ")-1))
آخر
Stripaddr = request.servervariables ("http_x_forwarded_for")
Endif
getip = trim (Mid (Stripaddr ، 1،30))
الوظيفية
IP = getip ()
استجابة. write (IP)
٪>