返回   CHF站长论坛 > 综合讨论区 > 网站开发与设计

网站开发与设计 网页设计、网站开发、网站维护与调试交流区。

双至强仅二千,企商在线,最早租用商 传世私服 魔域私服 亿恩1元帮您升级服务器! 天龙八部私服 传奇世界私服
传奇私服 仙境私服 天龙八部私服 传奇私服 传世私服 完美世界私服 魔域私服 传奇私服
发表新主题 回复
 
主题工具 主题评分 显示模式
旧 2005-10-02, 16:03   #1 (页面定位)
拒绝吃人的鬼
 
注册日期: 2005-09-06
帖子: 21
拒绝吃人的鬼 是普普通通的会员
默认 ASP怎么取得当前页面路径

啊啊啊
拒绝吃人的鬼 当前离线   回复时引用此帖
旧 2005-10-02, 16:35   #2 (页面定位)
老鬼
CH重振中
 
老鬼 的头像
 
注册日期: 2005-08-30
住址: 地球
帖子: 12395
老鬼 的声望功能已被禁用
默认

代码:
dim str,host,url,keyword,full
str="http://"
host = Request.ServerVariables("HTTP_HOST")
url = Request.ServerVariables("PATH_INFO") '或url
keyword = Request.ServerVariables("QUERY_STRING")
if keyword <> "" then
full = str&host&url&"?"&keyword
else
full = str&host&url
end if
Response.Write full
老鬼 当前离线   回复时引用此帖
旧 2005-10-02, 16:53   #3 (页面定位)
老林©
 
老林 的头像
 
注册日期: 2005-09-06
帖子: 10363
老林 即将成为的新星老林 即将成为的新星老林 即将成为的新星老林 即将成为的新星老林 即将成为的新星老林 即将成为的新星老林 即将成为的新星老林 即将成为的新星老林 即将成为的新星老林 即将成为的新星老林 即将成为的新星
默认

基本同上

Function GetUrl()
GetUrl="http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("URL")
If Request.ServerVariables("QUERY_STRING")<>"" Then GetURL=GetUrl&"?"& Request.ServerVariables("QUERY_STRING")
End Function
老林 当前离线   回复时引用此帖
旧 2005-10-03, 12:52   #4 (页面定位)
Tameway
 
Tameway 的头像
 
注册日期: 2005-09-06
住址: 湛江/西安/深圳
帖子: 1193
Tameway 是一个将要出名的人Tameway 是一个将要出名的人Tameway 是一个将要出名的人Tameway 是一个将要出名的人Tameway 是一个将要出名的人Tameway 是一个将要出名的人Tameway 是一个将要出名的人Tameway 是一个将要出名的人Tameway 是一个将要出名的人
默认

老鬼的是ASP代码
老林是VBS代码
都可以


江南派 | Tameway
Tameway 当前离线   回复时引用此帖
回复

书签

标签

主题工具
显示模式 对此主题评分
对此主题评分:



所有时间均为北京时间。现在的时间是 14:05