asp代码 显示绝对路径

显示

<%
 ' 转为根路径格式
 Dim sTempUrl
 sTempUrl = url
 If Left(sTempUrl, 1) = "/" Then
  RelativePath2RootPath = sTempUrl
 End If
 Dim sWebEditorPath
 sWebEditorPath = Request.ServerVariables("SCRIPT_NAME")
 sWebEditorPath = Left(sWebEditorPath, InstrRev(sWebEditorPath, "/") - 1)
 Do While Left(sTempUrl, 3) = "../"
  sTempUrl = Mid(sTempUrl, 4)
  sWebEditorPath = Left(sWebEditorPath, InstrRev(sWebEditorPath, "/") - 1)
 Loop
 RelativePath2RootPath = sWebEditorPath & "/" & sTempUrl
 ' 根路径转为带域名全路径格式
 Dim sHost, sPort
 sHost = Split(Request.ServerVariables("SERVER_PROTOCOL"), "/")(0) & "://" & Request.ServerVariables("HTTP_HOST")
 sPort = Request.ServerVariables("SERVER_PORT")
 If sPort <> "80" Then
  sHost = sHost & ":" & sPort
 End If
 RootPath2DomainPath = sHost & url
 %>
<%=RootPath2DomainPath%><%=RelativePath2RootPath%>

时间： 2024-11-02 08:03:17

asp代码 显示绝对路径的相关文章

ASP实例教程:asp无限级显示分类代码

为了方便使用分类,我定义了一个分类表category,里面字段是id(自动编号)  cat_name(分类名) parent_id(父ID,对应本表ID) cat_order(顺序) is_show(是否显示)  u_id(这个用来区别是新闻分类,还是产品分类,还是其他分类),为了方便,我将这些分类全部放在这张表中.在给客户添加分类的时候,结果有太多的分类,本来前台显示的时候,将它们全部显示出来了,好长.客户提出修改意见,要求将它们改成点击大分类,才可以将其子分类显示出来,并且每个分类下面还有一

高亮度代码显示，ASP，VB，VBS，JS，JSP

<%private CONST VB_KEY_COLOR="#000099" ''vb 代码关键字显示色private CONST VB_FUN_COLOR="#990033" ''vb 代码函数显示色private CONST VB_COM_COLOR="#bbbbbb" ''vb 代码注释显示色private CONST VB_STR_COLOR="#669933" ''vb 代码字符串显示色private CONS

点击产品关键字，对应的表中显示该产品内容？请问用ASP代码什么写？

问题描述 点击产品关键字,对应的表中显示该产品内容?请问用ASP代码什么写?

值得收藏的一些ASP代码

值得收藏的一些ASP代码值得收藏的一些ASP代码1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键<table border oncontextmenu=return(false)><td>no</table> 可用于Table2. <body onselectstart="return false"> 取消选取.防止复制3. onpaste=&quo

用VB生成DLL封装ASP代码一个例子：连接access数据库等

access|封装|数据|数据库 封装为dll会带来很多的好处,主要包括只是产权的保护,以及效率和安全性能的提升.这个例子中被封装的dll文件可以隐藏access数据库的实际路径. VB生成的DLL封装ASP代码来连接数据库(Access). 本文用一个最简单的连接access数据库的例子来说明如何将asp代码封装为dll文件. 我们用vb,最常见的方式来封装asp代码. 我们需要封装的对象如下: 'Proconn.aspdim ProConnset ProConn=Server.CreateO

站长必收藏的一些ASP代码

ASP代码值得收藏的一些ASP代码 1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键 <table border oncontextmenu=return(false)><td>no</table> 可用于Table 2. <body onselectstart="return false"> 取消选取.防止复制 3. onpaste="r

关于Asp代码与页面的分离模板技术第1/3页_应用技巧

在使用ASP制作一个站点的时候,常常会出现一个ASP文件中,程序代码和HTML代码混合的情况.这样子做有许多缺点: 1.编程时就要对页面布局进行设计和编排,造成代码混乱难懂,不规范; 2.当需要改变页面外观时,你不仅要改变HTML部份,也需要改变ASP代码,不易维护. 那么,要如何才能避免这些麻烦呢? 答案就是使用模板文件,将ASP代码和HTML页面分开,一切问题就都解决了.使用模板有以下好处: 1.在很短的时间内可以替换整个站点的外观; 2.使程序员可以抽象编程,而无须接触HTML代码; 3.

求助！无限极分类显示全路径遇到问题，折腾一周了。

问题描述 目的是要显示全路径:但点击分类节点报错.敬候高人指点迷津.感谢先!!!///<summary>///目的:将数据库news_class表的path字段的值分拆开,最后返回组合的classname值,例:根目录/一级分类/二级分类/三件分类:///</summary>///<paramname="tpath"></param>///<returns></returns>publicStringgetpath

为什么asp 代码不能运行？？ (希望效果图片切换)

问题描述 我把如下代码放在asp代码中为什么,效果不能出来(希望效果图片切换)<TDvAlign=bottomcolSpan=2height=140><scripttype="text/javascript">imgUrl1="images/1.jpg";imgLink1=escape("");imgUrl2="images/2.jpg";imgLink2=escape("");im