الموصى به: استخدم ملف VB ActiveX.DLL في ASP لن يتخذ أحد مقاربة أكثر مرهقة في العمل دون الحاجة ما لم يكن هناك خيار. لذلك إذا كنت سأخبرك أن هناك تقنية بسيطة يمكن أن تجعل تطوير ASP أسرع وأكثر كفاءة ، فيجب أن تكون مهتمًا بشكل خاص بها. ستنقل هذه الطريقة من معظم صفحات ASP الخاصة بك إلى Visual Basic Active
الوظيفة العامة ، إذا كان لا يمكن الحصول على IP الحقيقي ، فسيحل محل IP الوكيل.
وظيفة خاصة getip ()
Dim Stripaddr
إذا كان request.servervariables (http_x_forwarded_for) = أو instr (request.servervariables (http_x_forwarded_for) ، غير معروف)> 0 ثم 0
Stripaddr = request.ServerVariables (Remote_addr)
elseif instr (request.servervariables (http_x_forwarded_for) ، ،)> 0 ثم
Stripaddr = mid (request.servervariables (http_x_forwarded_for) ، 1 ، instr (request.servervariables (http_x_forward_for) ،،)-1)
elseif instr (request.servervariables (http_x_forwarded_for) ، ؛)> 0 ثم
Stripaddr = mid (request.servervariables (http_x_forwarded_for) ، 1 ، instr (request.servervariables (http_x_forwarded_for) ، ؛)-1)
آخر
Stripaddr = request.servervariables (http_x_forwarded_for)
إنهاء إذا
getip = trim (mid (Stripaddr ، 1 ، 30))
وظيفة نهاية
مشاركة: إلغاء ضغط ملفات RAR تلقائيًا من خلال ASP في الواقع ، من السهل جدًا تنفيذ هذه الوظيفة. ثم يجب عليك تحميل برنامج Rar.exe. أخيرًا ، نبدأ في تنفيذ هذه البرامج. ألق نظرة على الكود التالي