ASP URL取得関数の概要

ASP は URL 関数の概要を取得します。必要な友人はそれを参照できます。方法 1: シンプル、パラメータなし、仮想パスのみ

次のようにコードをコピーします。

GetUrl =リクエスト(URL)

例: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd

取得形式: shiyan.asp

次のようにコードをコピーします。

<%

薄暗いチャンドゥ、URL、終わり、wurl

changdu=len(request.ServerVariables(URL))

url=instrrev(request.ServerVariables(URL),/)

URL=URL+1

終了=昌都+1-url

wurl=mid(request.ServerVariables(URL),url,ends)

%>

方法 2: URL 全体を取得してパラメータを取得する

次のようにコードをコピーします。

'現在のページのアドレスを取得する

関数 GetUrl()

エラー時は次へ再開

薄暗い温度

LCase(Request.ServerVariables(HTTPS)) = オフの場合

strTemp = http://

それ以外

strTemp = https://

終了の場合

strTemp = strTemp & Request.ServerVariables(SERVER_NAME)

If Request.ServerVariables(SERVER_PORT) <> 80 then strTemp = strTemp & : & Request.ServerVariables(SERVER_PORT)

strTemp = strTemp & Request.ServerVariables(URL)

If Trim(Request.QueryString) <> then 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 ScriptAddress,M_ItemUrl,M_item

ScriptAddress = CStr(Request.ServerVariables(SCRIPT_NAME)) '現在のアドレスを取得します

M_ItemUrl=

If (Request.QueryString <> ) then

スクリプトアドレス = スクリプトアドレス & ?

Request.QueryString の各 M_item について

If M_item = page_num then Exit for 'ここでの機能は、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(Request.QueryString(&M_Item&)) & &

終了の場合

次

それ以外

スクリプトアドレス = スクリプトアドレス & ?

終了する場合

GetUrl = ScriptAddress & M_ItemUrl

終了機能

例: http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd

次のように取得:/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd

方法 4: パラメータ文字列のみを取得する

次のようにコードをコピーします。

関数 GetUrl()

エラー時は次へ再開

薄暗い温度

LCase(Request.ServerVariables(HTTPS)) = オフの場合

strTemp = http://

それ以外

strTemp = https://

終了の場合

strTemp = strTemp & Request.ServerVariables(SERVER_NAME)

If Request.ServerVariables(SERVER_PORT) <> 80 then strTemp = strTemp & : & Request.ServerVariables(SERVER_PORT)

strTemp = strTemp & Request.ServerVariables(URL)

If Trim(Request.QueryString) <> then 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 として取得されます。