غالبًا ما تكون هناك حاجة إلى رمز الوظيفة للحصول على عنوان ومعلمات الصفحة الحالية في asp، ويتم تنظيمه خصيصًا لراحة الأصدقاء الذين يحتاجون إليه. انسخ رمز الكود كما يلي:
الدالة getCurrentUrl()
على خطأ استئناف التالي
خافت 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)
getCurrentUrl = strTemp
وظيفة النهاية
الدالة getUrlWithParams()
Dim ScriptAddress,Servername,qs
ScriptAddress = CStr(Request.ServerVariables(SCRIPT_NAME))
اسم الخادم = CStr(Request.ServerVariables(Server_Name))
qs=Request.QueryString
إذا Request.ServerVariables(SERVER_PORT) <> 80 إذن
اسم الخادم = اسم الخادم &: & Request.ServerVariables(SERVER_PORT)
نهاية إذا
إذا كان سؤال <> ثم
getUrlWithParams =http://& Servername & ScriptAddress &?&qs
آخر
getUrlWithParams =http://& اسم الخادم وعنوان البرنامج النصي
نهاية إذا
وظيفة النهاية