LOGO OA教程 ERP教程 模切知识交流 PMS教程 CRM教程 开发文档 其他文档  
 
网站管理员

ASP网页实现读取当前的网址

admin
2010年11月30日 10:45 本文热度 3170

Function Getlocation() '获取浏览器地址数组=来自哪一页§§不包含传值地址§§包含传值地址
FromURL=request.serverVariables("Http_REFERER")'来自哪一页
ScriptAddress=CStr(Request.ServerVariables("SCRIPT_NAME")) '当前文件地址,不包含传值
If (Request.QueryString <> "") Then
ScriptAddress = ScriptAddress & "?"
For Each M_item In Request.QueryString
If InStr(page,M_Item)=0 Then
M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&"
End If
Next
end if
GetUrl = ScriptAddress&M_ItemUrl '当前文件地址,包含传值
if right(ScriptAddress,1)="?" then ScriptAddress=left(ScriptAddress,len(ScriptAddress)-1)
if right(GetUrl,1)="&" then GetUrl=left(GetUrl,len(GetUrl)-1)
Getlocation=FromURL&"§"&ScriptAddress&"§"&GetUrl
End Function


你到时候就可以自己调用了,调用方法:
1.判断当前页面是来自哪个页面的:
fromURL=Split(Getlocation,"§")(0)


2.当前页面地址(不包含?后面的参数传值):
thisURL1=Split(Getlocation,"§")(1)


3.当前页面地址(包含?后面的参数传值):
thisURL2=Split(Getlocation,"§")(2)


包含或不包含传值的情况说明:
例如:http://www.123.com/index.asp?action=add&cg=100
不包含传值得到的地址是:http://www.123.com/index.asp
包含传值得到的地址是:http://www.123.com/index.asp?action=add&cg=100


该文章在 2010/11/30 10:45:08 编辑过
关键字查询
相关文章
正在查询...
点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。
点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理,结合码头的业务特点,围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体,是物流码头及其他港口类企业的高效ERP管理信息系统。
点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。
点晴免费OA是一款软件和通用服务都免费,不限功能、不限时间、不限用户的免费OA协同办公管理系统。
Copyright 2010-2024 ClickSun All Rights Reserved