ASP memperoleh ringkasan fungsi url. Teman yang membutuhkan dapat merujuknya. Metode 1: Sederhana, tanpa parameter, hanya jalur virtual
Copy kode kodenya sebagai berikut:
DapatkanUrl =permintaan(url)
Misalnya: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Diperoleh sebagai: shiyan.asp
Copy kode kodenya sebagai berikut:
<%
redupkan changdu,url,berakhir,wurl
changdu=len(permintaan.ServerVariables(URL))
url=instrrev(permintaan.ServerVariables(URL),/)
url=url+1
berakhir=changdu+1-url
wurl=tengah(permintaan.ServerVariables(URL),url,berakhir)
%>
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
Misalnya: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Diperoleh sebagai: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Metode 3: 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. Parameternya, meski tidak mempengaruhi fungsinya, tetap 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
Misalnya: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Diperoleh sebagai:/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Metode 4: Dapatkan hanya string parameter
Copy kode kodenya sebagai berikut:
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
geturl=pertengahan(geturl,instr(geturl,?)+1)
Fungsi Akhir
Misalnya: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
Diperoleh sebagai: dfsdfsf=dsfsdfd&aa=dddd