ASP获取当前网址
作者:admin 日期:2010-09-12
ASP获取当前网址
<%
Function GetUrl()
Dim strHostName,strScriptName,strSubUrl,strRequestItem
strHostName=CStr(Request.ServerVariables("LOCAL_ADDR"))
strScriptName=CStr(Request.ServerVariables("SCRIPT_NAME"))
strSubUrl=""
If Request.QueryString<>"" Then
strScriptName=strScriptName&"?"
For Each strRequestItem In Request.QueryString
If InStr(strScriptName,strRequestItem)=0 Then
If strSubUrl="" Then
strSubUrl=strSubUrl&strRequestItem&"="&Server.URLEncode(Request.QueryString(""&strRequestItem&""))
Else
strSubUrl=strSubUrl&"&"&strRequestItem&"="&Server.URLEncode(Request.QueryString(""&strRequestItem&""))
End If
End If
Next
End If
GetUrl="http://"&strHostName&strScriptName&strSubUrl
End Function
%>
或者用这个
GetUrl ="http://"&Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
获取网址
js获取网址
<script language="javascript">
function Check(){
if( document.MyForm.DAgentName.value == "" ) {
alert("代理商的用户不能为空!");
document.MyForm.DAgentName.select();
document.MyForm.DAgentName.focus();
return false;
}
var GetUrl=window.location.href; //js获取网址
document.MyForm.url.value=GetUrl;
MyForm.action="666.asp";
}
</script>
<form id="MyForm" name="MyForm" method="post" action="" onSubmit="return Check();">
<input name="DAgentName" type="text" class="input_110" id="DAgentName" size="15"/>
<input name="url" type="hidden" class="input_110" id="url" size="15"/>
<input type="submit" name="Submit" value="提交" />
</form>
asp获取上一页地址的方法
<%
If Request.ServerVariables("HTTP_REFERER")<>"" Then
tmpstr=Request.ServerVariables("HTTP_REFERER")
Else
tmpstr="index.htm"
End If
response.Redirect(tmpstr)
%>
代码解释:
Request.ServerVariables("HTTP_REFERER")是获取上一页页面地址的代码。
整段程序的功能是首先判断此页面的上一页是否为空,如果不为空就转到上一页,若为空就转到首页
广告位