asp获取URL的方法
来源:互联网 发布:mysql入门很简单pdf 编辑:程序博客网 时间:2024/06/05 22:30
方法一:简单,得不到参数,只有一个虚拟路径
GetUrl =request("url")
例如:http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
获取为:shiyan.asp
方法二:得到整个URL,得到参数
'得到当前页面的地址
Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
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
End Function
例如:http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
获取为:http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
方法二:得到虚拟路径,得到参数
Private Function GetUrl()
Dim ScriptAddress,M_ItemUrl,M_item
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) '取得当前地址
M_ItemUrl = ""
If (Request.QueryString <> "") Then
ScriptAddress = ScriptAddress & "?"
For Each M_item In Request.QueryString
If M_item = "page_num" Then Exit for '此处的作用就是过滤掉Page_num这个页次的参数(该参数是在page_turn.asp中自行设置的,根据个人设定而变),否则每次翻页都会叠加这个参数,虽然不影响功能,但总归不太好吧~~
If InStr(page,M_Item)=0 Then
M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&""))
else
M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&"
End If
Next
Else
ScriptAddress = ScriptAddress & "?"
end if
GetUrl = ScriptAddress & M_ItemUrl
End Function
例如:http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
获取为:/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
方法三:只获取参数部分字符串
Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
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)
End Function
例如:http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
获取为:dfsdfsf=dsfsdfd&aa=dddd
- asp获取URL的方法
- asp获取URL的方法
- ASP.NET中获取URL的方法
- ASP.NET 获取URL的方法
- asp.net中获取当前页面的URL的方法
- [ASP.NET]Request获取url信息的各种方法比较
- asp.net中获取当前url的方法
- asp.net 获取当前URL的正确方法
- asp.net中获取当前url的方法
- asp.net中获取当前url的方法
- asp.net中获取当前url的方法
- asp.net中获取当前url的方法
- asp.net中获取当前url的方法
- Asp.net中获取应用程序完整Url路径的方法
- Asp.net中获取应用程序完整Url路径的方法
- asp.net中获取当前url的方法
- URL 的各个部分和通过ASP.NET获取URL地址的方法
- ASP.NET获取URL方法汇总
- 关于DataAdapter的问题-----Fill: SelectCommand.Connection 属性尚未初始化。
- php 中 格式化数字的函数 【转】
- 2009/12/11 Office 使用RMS 认证出现问题,office 不能开正常打开加密文档,同时不能再加密文档
- QT的Graphics View柜架
- ubuntu 9.04下建立Qt/Embedded 4.5开发环境
- asp获取URL的方法
- 12月份补丁 KB973917 会导致应用程序池 无法启动
- 最简单的javascript对象
- 算术表达式求值
- 设计模式笔记(14)---模板方法模式(行为型)
- svg 滚动条
- 确立鲜明的个人风格
- 3、路漫漫其修远兮,吾将上下而求索...
- QT的Graphics View柜架(1/3)