在ASP中获取与网址、URL相关参数的程序段
发布时间:2023-08-05 14:38:13 所属栏目:Asp教程 来源:
导读:代码一:【获取地址中的文件名,不包含扩展名】
<%
dim Url,FileName,File
Url=split(request.servervariables("script_name"),"/")
FileName=Url(ubound(Url))
File=Left(FileName,InstrRev(Fi
<%
dim Url,FileName,File
Url=split(request.servervariables("script_name"),"/")
FileName=Url(ubound(Url))
File=Left(FileName,InstrRev(Fi
代码一:【获取地址中的文件名,不包含扩展名】 <% dim Url,FileName,File Url=split(request.servervariables("script_name"),"/") FileName=Url(ubound(Url)) File=Left(FileName,InstrRev(FileName,".")-1) Response.Write "文件名:"& File %> 代码二:【获取地址参数】 <% dim url url=url&"http://"&request.ServerVariables("Server_NAME")&request.ServerVariables("SCRIPT_NAME") response.Write url %> 代码三:【获取全部地址参数,包括?及后面的参数】 <% dim url url=url&"http://"&request.ServerVariables("Server_NAME")&request.ServerVariables("SCRIPT_NAME") if(len(trim(request.ServerVariables("QUERY_STRING")))>0) then url=url & "?" & request.ServerVariables("QUERY_STRING") end if response.Write url %> <% If Request.QueryString.Count>0 Then For each querystring in Request.QueryString query = query+querystring&"="&Request.QueryString(querystring)&"&" Next query = mid(query,1,len(query)-1) Response.Write "http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("PATH_INFO")&"?"&query Else Response.Write "http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("PATH_INFO") End If %> 域名完整地址:【包括 http:// 和域名尾部的 / 】 <% Response.write "http://" & Request.ServerVariables("HTTP_HOST") & Mid(Request.ServerVariables("URL"),1,InStrRev(Request.ServerVariables("URL"),"/")) %> 获取域名地址 Request.ServerVariables("HTTP_HOST") 形如:www.Cuoxin.com 域名 获取页面地址 Request.ServerVariables("URL") 形如:/index.asp request.servervariables("script_name") 形如:/index.asp <%response.write Request.ServerVariables("REMOTE_ADDR")%> 获取客户端IP地址 <%=Request.ServerVariables("LOCAL_ADDR")%> 获取服务器IP地址 <a href="<%=request.serverVariables("Http_REFERER")%>">返回前页</a> 可获取父页面地址,然后进行处理。 ‘asp 获取网页地址及参数。ServerVariables("HTTP_HOST") ‘获取域名keyword = Request.ServerVariables("QUERY_STRING") ‘获取参数集variable = Request.ServerVariables("PATH_INFO") (编辑:聊城站长网) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
推荐文章
站长推荐