ASP获取当前网址

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")是获取上一页页面地址的代码。
   
整段程序的功能是首先判断此页面的上一页是否为空，如果不为空就转到上一页，若为空就转到首页

上一篇: VB窗体透明,圆角处理..
下一篇: Godaddy状态(Status)说明
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: asp
相关日志: