以后地位:首页 > 建站常识 > 列表

asp编辑以后记实,并前往以后页数

点击: 次时候:2016/11/10关头词:asp记实 asp页数
1、起首编写如许三个函数 [code]'== 获得以后页面的URL地点Function CurrentURL() Dim tmpstr, URL If Request.ServerVariables("HTTPS") = "ON" Then URL = "ht

1、起首编写如许三个函数

[code]'== 获得以后页面的URL地点

Function CurrentURL()

   Dim tmpstr, URL

   If Request.ServerVariables("HTTPS") = "ON" Then URL = "http://" 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

'== 将以后页面的URL地点写入Cookie变量

Sub WriteCurrentURL()

   Response.Cookies("URL") = CurrentURL

End Sub

'== 读取Cookie变量中的页面URL信息

Function ReadCurrentURL()

   ReadCurrentURL = Request.Cookies("URL")

End Function



2、而后在头一个页面一起头挪用WriteCurrentURL进程,把以后页面的地点存入Cookie中去。在编辑页面编辑实现后用response.redirect ReadCurrentURL语句转归去。

如许不必传页码参数,并且若是列表页面是前提查问得来的,那传的参数就更多了,呵呵。如许做甚么都不必管,参数都带着呢!



预定建站
收费供给网站优化
支付关头词