当前位置:首页 > 网站维护 > 列表

asp编辑当前记录,并返回当前页数

来源:浦一科技点击:时间:2016-11-10 关键词:asp记录 asp页数
1、首先编写这样三个函数[code]'==取得当前页面的URL地址FunctionCurrentURL()Dimtmpstr,URLIfRequest.ServerVariables("HTTPS")="ON"ThenURL="https://"ElseURL

1、首先编写这样三个函数

[code]'== 取得当前页面的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

'== 将当前页面的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语句转回去。

这样不用传页码参数,而且如果列表页面是条件查询得来的,那传的参数就更多了,呵呵。这样做什么都不用管,参数都带着呢!



服务项目

网站建设

网站建设

通过SEO优化技术,提供更多的展示机会,带来大量精准流量和询盘,每月意向客户增长20%。

手机网站建设

手机网站建设

手机网站的时代强势来袭,赢在全网营销时代,手机+电脑双剑合璧,把握商机滴水不漏。

网站维护

网站维护

一个好的网站需要定期或不定期地更新内容,才能不断地吸引更多的浏览者,增加访问量。

整合网络营销

整合营销

为了建立、维护和传播品牌,以及加强客户关系,而对品牌进行计划、实施和监督的一系列营销

预约建站
免费提供网站优化
领取关键词