มักจำเป็นต้องใช้โค้ดฟังก์ชันสำหรับรับที่อยู่และพารามิเตอร์ของหน้าปัจจุบันใน asp มีการจัดระเบียบเป็นพิเศษเพื่อความสะดวกของเพื่อนที่ต้องการ คัดลอกรหัสรหัสดังต่อไปนี้:
ฟังก์ชั่น getCurrentUrl()
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
Dim strTemp
ถ้า LCase(Request.ServerVariables(HTTPS)) = ปิด จากนั้น
strTemp = http://
อื่น
strTemp = https://
สิ้นสุดถ้า
strTemp = strTemp & คำขอ ServerVariables (SERVER_NAME)
ถ้า Request.ServerVariables(SERVER_PORT) <> 80 แล้ว
strTemp = strTemp & : & คำขอ ServerVariables (SERVER_PORT)
สิ้นสุดถ้า
strTemp = strTemp & คำขอ ServerVariables (URL)
getCurrentUrl = strTemp
ฟังก์ชันสิ้นสุด
ฟังก์ชัน getUrlWithParams()
Dim ScriptAddress, ชื่อเซิร์ฟเวอร์, qs
ScriptAddress = CStr (Request.ServerVariables (SCRIPT_NAME))
ชื่อเซิร์ฟเวอร์ = CStr (Request.ServerVariables (Server_Name))
qs=คำขอ.QueryString
ถ้า Request.ServerVariables(SERVER_PORT) <> 80 แล้ว
ชื่อเซิร์ฟเวอร์ = ชื่อเซิร์ฟเวอร์ & : & คำขอ ServerVariables (SERVER_PORT)
สิ้นสุดถ้า
ถ้า qs<> แล้ว
getUrlWithParams =http://& ชื่อเซิร์ฟเวอร์ & ที่อยู่สคริปต์ &?&qs
อื่น
getUrlWithParams =http://& ชื่อเซิร์ฟเวอร์ & ScriptAddress
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด