木子屋
 

标题: 获取当前页面URL，以便于在另一页中跳转回来

作者: admin

日期: 2006-06-27 04:51 PM

分类: Web编程

内容: 下边有两个页面，index.asp中有个链接到url.asp，其参数为当前index.asp页的URL
index.asp：
<%
Private Function GetUrl()
Dim ScriptAddress, M_ItemUrl, M_item
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) '取得当前地址
str1=scriptaddress
M_ItemUrl = ""
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
End Function
strurl="http://127.0.0.1" & geturl() 'http://127.0.0.1为你网站的网址
%>
<a href="url.asp?url=<% =strurl %>" target="_self">到url.asp页</a>
url.asp
<a href="<% =request.querystring("url") %>" target="_self">返回前页</a>

+ 查看当前日志评论 (1)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.031 ms

标题: 获取当前页面URL，以便于在另一页中跳转回来

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.031 ms

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.031 ms