يحصل ASP على ملخص لوظيفة URL ويمكن للأصدقاء الذين يحتاجون إليه الرجوع إليه. الطريقة الأولى: بسيطة، بدون معلمات، فقط مسار افتراضي
انسخ رمز الكود كما يلي:
GetUrl = طلب (url)
على سبيل المثال: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
تم الحصول عليه كـ: shiyan.asp
انسخ رمز الكود كما يلي:
<%
خافت تشانغدو، URL، ينتهي، Wurl
changdu=len(request.ServerVariables(URL))
url=instrrev(request.ServerVariables(URL)،/)
URL=url+1
ينتهي=changdu+1-url
wurl=mid(request.ServerVariables(URL),url,ينتهي)
%>
الطريقة الثانية: احصل على عنوان URL بالكامل واحصل على المعلمات
انسخ رمز الكود كما يلي:
"احصل على عنوان الصفحة الحالية."
الدالة GetUrl()
على خطأ استئناف التالي
خافت strTemp
إذا كان LCase(Request.ServerVariables(HTTPS)) = إيقاف إذن
سترتيمب = http://
آخر
سترتيمب = https://
نهاية إذا
strTemp = strTemp & Request.ServerVariables(SERVER_NAME)
إذا كان Request.ServerVariables(SERVER_PORT) <> 80 ثم strTemp = strTemp &: & Request.ServerVariables(SERVER_PORT)
strTemp = strTemp & Request.ServerVariables(URL)
إذا كان Trim(Request.QueryString) <> ثم strTemp = strTemp & ? & Trim(Request.QueryString)
GetUrl = strTemp
وظيفة النهاية
على سبيل المثال: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
تم الحصول عليه كـ: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
الطريقة الثالثة: الحصول على المسار الظاهري والحصول على المعلمات
انسخ رمز الكود كما يلي:
وظيفة خاصة GetUrl()
خافت ScriptAddress,M_ItemUrl,M_item
ScriptAddress = CStr(Request.ServerVariables(SCRIPT_NAME)) 'احصل على العنوان الحالي
M_ItemUrl=
إذا (Request.QueryString <> ) ثم
ScriptAddress = ScriptAddress & ؟
لكل M_item في Request.QueryString
إذا كان M_item = page_num، ثم قم بالخروج من أجل 'الوظيفة هنا هي تصفية معلمات Page_num (يتم تعيين هذه المعلمة بنفسها في page_turn.asp وتتغير وفقًا للإعدادات الشخصية)، وإلا فسيتم فرض ذلك في كل مرة يتم فيها تشغيل الصفحة. المعلمات، على الرغم من أنها لا تؤثر على الوظيفة، لا تزال غير جيدة ~~
إذا كان InStr(page,M_Item)=0 إذن
M_ItemUrl = M_ItemUrl & M_Item &=& Server.URLEncode(Request.QueryString(&M_Item&))
آخر
M_ItemUrl = M_ItemUrl & M_Item &=& Server.URLEncode(Request.QueryString(&M_Item&)) & &
نهاية إذا
التالي
آخر
ScriptAddress = ScriptAddress & ؟
نهاية إذا
GetUrl = ScriptAddress & M_ItemUrl
وظيفة النهاية
على سبيل المثال: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
تم الحصول عليه كـ:/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
الطريقة الرابعة: الحصول على سلسلة المعلمة فقط
انسخ رمز الكود كما يلي:
الدالة GetUrl()
على خطأ استئناف التالي
خافت strTemp
إذا كان LCase(Request.ServerVariables(HTTPS)) = إيقاف إذن
سترتيمب = http://
آخر
سترتيمب = https://
نهاية إذا
strTemp = strTemp & Request.ServerVariables(SERVER_NAME)
إذا كان Request.ServerVariables(SERVER_PORT) <> 80 ثم strTemp = strTemp &: & Request.ServerVariables(SERVER_PORT)
strTemp = strTemp & Request.ServerVariables(URL)
إذا كان Trim(Request.QueryString) <> ثم strTemp = strTemp & ? & Trim(Request.QueryString)
GetUrl = strTemp
geturl=mid(geturl,instr(geturl,?)+1)
وظيفة النهاية
على سبيل المثال: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
تم الحصول عليه كـ: dfsdfsf=dsfsdfd&aa=dddd