ASP ได้รับข้อมูลสรุปของฟังก์ชัน url เพื่อนที่ต้องการสามารถอ้างอิงได้ วิธีที่ 1: แบบง่าย ไม่มีพารามิเตอร์ มีเพียงเส้นทางเสมือนเท่านั้น
คัดลอกรหัสรหัสดังต่อไปนี้:
GetUrl = คำขอ (url)
ตัวอย่างเช่น: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
ได้รับจาก: shiyan.asp
คัดลอกรหัสรหัสดังต่อไปนี้:
-
dim changdu, url, สิ้นสุด, wurl
changdu=len(request.ServerVariables(URL))
url=instrrev(request.ServerVariables(URL),/)
url=url+1
สิ้นสุด=changdu+1-url
wurl=mid(request.ServerVariables(URL),url,ends)
-
วิธีที่ 2: รับ URL ทั้งหมดและรับพารามิเตอร์
คัดลอกรหัสรหัสดังต่อไปนี้:
'รับที่อยู่ของหน้าปัจจุบัน
ฟังก์ชัน GetUrl()
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
Dim strTemp
ถ้า LCase(Request.ServerVariables(HTTPS)) = ปิด จากนั้น
strTemp = http://
อื่น
strTemp = https://
สิ้นสุดถ้า
strTemp = strTemp & คำขอ ServerVariables (SERVER_NAME)
หาก Request.ServerVariables(SERVER_PORT) <> 80 ดังนั้น strTemp = strTemp & : & Request.ServerVariables(SERVER_PORT)
strTemp = strTemp & คำขอ 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
วิธีที่ 3: รับเส้นทางเสมือนและรับพารามิเตอร์
คัดลอกรหัสรหัสดังต่อไปนี้:
ฟังก์ชั่นส่วนตัว GetUrl()
ที่อยู่สคริปต์ Dim,M_ItemUrl,M_item
ScriptAddress = CStr(Request.ServerVariables(SCRIPT_NAME)) 'รับที่อยู่ปัจจุบัน
M_ItemUrl=
ถ้า (Request.QueryString <> ) จากนั้น
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(คำขอ.QueryString(&M_Item&)) & &
สิ้นสุดถ้า
ต่อไป
อื่น
ScriptAddress = ที่อยู่สคริปต์ & ?
สิ้นสุดถ้า
GetUrl = ที่อยู่สคริปต์ & M_ItemUrl
ฟังก์ชันสิ้นสุด
ตัวอย่างเช่น: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
ได้รับเป็น:/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
วิธีที่ 4: รับเฉพาะสตริงพารามิเตอร์
คัดลอกรหัสรหัสดังต่อไปนี้:
ฟังก์ชัน GetUrl()
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
Dim strTemp
ถ้า LCase(Request.ServerVariables(HTTPS)) = ปิด จากนั้น
strTemp = http://
อื่น
strTemp = https://
สิ้นสุดถ้า
strTemp = strTemp & คำขอ ServerVariables (SERVER_NAME)
หาก Request.ServerVariables(SERVER_PORT) <> 80 ดังนั้น strTemp = strTemp & : & Request.ServerVariables(SERVER_PORT)
strTemp = strTemp & คำขอ 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