用户名: 密  码
用户注册    
本站用户:75人  目前在线: 6 人  信息: 273  访问: 1599890     ;
首页 个人中心 邮件群发网站收藏免费网络空间音视频新友音乐
当前位置 » 首页» ASP源码编程分析» 信息阅读

2G网站空间,仅需20元一年,详情点击进入

 asp获取当前地址
Function GetUrl()
  Dim ScriptAddress,Servername,qs
  ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
  Servername = CStr(Request.ServerVariables("Server_Name"))
  qs=Request.QueryString
  if qs<>"" then
  GetUrl ="http://"& Servername & ScriptAddress &"?"&qs
  else
  GetUrl ="http://"& Servername & ScriptAddress
  end if
End Function
点击:758  发布者:xinyou  发布时间:2018-10-27 09:26:51