1、首先編寫這(zhè)樣三個(gè)函數 [code]'== 取得(de)當前頁面的(de)URL地址Function CurrentURL() Dim tmpstr, URL If Request.ServerVariables("HTTPS") = "ON" Then URL = "ht

1、首先編寫這(zhè)樣三個(gè)函數

[code]'== 取得(de)當前頁面的(de)URL地址

Function CurrentURL()

   Dim tmpstr, URL

   If Request.ServerVariables("HTTPS") = "ON" Then URL = "https://" Else URL = "http://"

   URL = URL & Request.ServerVariables("HTTP_HOST")

   tmpstr = Request.ServerVariables("SERVER_PORT")

   If tmpstr <> 80 Then URL = URL & ":" & tmpstr

               URL = URL & Request.ServerVariables("PATH_INFO")

   tmpstr = Trim(Request.ServerVariables("QUERY_STRING"))

   If tmpstr <> Empty Then URL = URL & "?" & tmpstr

   CurrentURL = URL

End Function

'== 将當前頁面的(de)URL地址寫入Cookie變量

Sub WriteCurrentURL()

   Response.Cookies("URL") = CurrentURL

End Sub

'== 讀取Cookie變量中的(de)頁面URL信息

Function ReadCurrentURL()

   ReadCurrentURL = Request.Cookies("URL")

End Function

2、然後在頭一個(gè)頁面一開始調用(yòng)WriteCurrentURL過程，把當前頁面的(de)地址存入Cookie中去。在編輯頁面編輯完成後用(yòng)response.redirect ReadCurrentURL語句轉回去。

這(zhè)樣不用(yòng)傳頁碼參數，而且如果列表頁面是條件查詢得(de)來(lái)的(de)，那傳的(de)參數就更多(duō)了(le)，呵呵。這(zhè)樣做(zuò)什(shén)麽都不用(yòng)管，參數都帶著(zhe)呢(ne)！

上一篇：asp獲取内容當中第一張圖片 下(xià)一篇：asp 相對(duì),絕對(duì)路徑替換絕對(duì)路徑