ASP で現在のページのアドレスとパラメータを取得するための関数コードは、それを必要とする友人の便宜のために特別に編成されています。次のようにコードをコピーします。
関数 getCurrentUrl()
エラー時は次へ再開
薄暗い温度
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)
getCurrentUrl = strTemp
終了機能
関数 getUrlWithParams()
Dim ScriptAddress、サーバー名、qs
ScriptAddress = CStr(Request.ServerVariables(SCRIPT_NAME))
サーバー名 = CStr(Request.ServerVariables(Server_Name))
qs=リクエスト.クエリ文字列
If Request.ServerVariables(SERVER_PORT) <> 80 then
サーバー名 = サーバー名 & : & Request.ServerVariables(SERVER_PORT)
終了する場合
if qs<> then
getUrlWithParams =http://& サーバー名 & スクリプトアドレス &?&qs
それ以外
getUrlWithParams =http://& サーバー名 & スクリプトアドレス
終了する場合
終了機能