ASP perlu menggunakan fungsi ini untuk mendapatkan URL saat ini, atau mendapatkan semua parameter halaman saat ini. Saya belum banyak mengujinya. Saya akan memberikan Anda kode spesifik setelah pengujian.
Jika alamatnya adalah:
http://dxy.com:8082/test/geturl.asp?Param-VR52tmx3syn03777.html
Metode 1: Sederhana, tanpa parameter, hanya jalur virtual
Copy kode kodenya sebagai berikut:
GetUrl =request(url) 'Karena kami tidak memiliki kata url=, kami dapat meneruskannya secara langsung.
Metode 2: Dapatkan seluruh URL dan dapatkan parameternya
Copy kode kodenya sebagai berikut:
'Dapatkan alamat halaman saat ini
Fungsi DapatkanUrl()
Pada Kesalahan Lanjutkan Berikutnya
Redupkan strTemp
Jika LCase(Request.ServerVariables(HTTPS)) = mati Lalu
strTemp = http://
Kalau tidak
strTemp = https://
Akhiri Jika
strTemp = strTemp & Permintaan.ServerVariables(SERVER_NAME)
Jika Request.ServerVariables(SERVER_PORT) <> 80 Maka strTemp = strTemp & : & Request.ServerVariables(SERVER_PORT)
strTemp = strTemp & Permintaan.ServerVariables(URL)
Jika Memangkas(Permintaan.QueryString) <> Lalu strTemp = strTemp & ?
DapatkanUrl = strTemp
Fungsi Akhir
Setelah menguji kode ini, jalur yang didapat adalah:
/test/geturl.asp?Param-VR52tmx3syn03777.html=
Metode 2: Dapatkan jalur virtual dan dapatkan parameternya
Copy kode kodenya sebagai berikut:
Fungsi Pribadi GetUrl()
Redupkan ScriptAddress,M_ItemUrl,M_item
ScriptAddress = CStr(Request.ServerVariables(SCRIPT_NAME)) 'Dapatkan alamat saat ini
M_ItemUrl =
Jika (Request.QueryString <> ) Lalu
Alamat Skrip = Alamat Skrip & ?
Untuk Setiap M_item Di Request.QueryString
Jika M_item = page_num Kemudian Keluar untuk 'Fungsi di sini adalah untuk menyaring parameter Page_num (parameter ini diatur sendiri di page_turn.asp dan berubah sesuai dengan pengaturan pribadi), jika tidak, ini akan ditumpangkan setiap kali halaman dibalik. Walaupun parameternya tidak mempengaruhi fungsinya, tetap saja kurang bagus~~
Jika InStr(halaman,M_Item)=0 Lalu
M_ItemUrl = M_ItemUrl & M_Item &=& Server.URLEncode(Permintaan.QueryString(&M_Item&))
kalau tidak
M_ItemUrl = M_ItemUrl & M_Item &=& Server.URLEncode(Request.QueryString(&M_Item&)) & &
Akhiri Jika
Berikutnya
Kalau tidak
Alamat Skrip = Alamat Skrip & ?
berakhir jika
GetUrl = Alamat Skrip & M_ItemUrl
Fungsi Akhir
Alamat yang diperoleh dari kode di atas adalah
http://dxy.com:8082/test/geturl.asp?Param-VR52tmx3syn03777.html
Pada dasarnya sama
Jika kita hanya ingin mendapatkan sesuatu setelah nomor ?, kita bisa menggunakan kode berikut
Copy kode kodenya sebagai berikut:
respon.tulis ganti(permintaan.querystring,.html,)
Yang kita dapatkan adalah Param-VR52tmx3syn03777. Apakah sudah memenuhi kebutuhan kita?
PS: Semua situasi di atas hanya untuk ASP murni. Jika digabungkan dengan urlrewrite, fungsinya akan ditingkatkan, dan kemudahan pencarian juga akan ditingkatkan.