三条语句搞定路径

很多人喜欢把一个网站中相同的部分象是统一的页面logo，版权声明等做成一个过程，然后放到一个include文件中，这样所有的页面就都可以使用，但这样就存在一个问题，如果使用绝对路径，移植时就很麻烦，如开发试一般不使用域名，而实际使用时就要进行改动，但如果不用绝对路径的话，根目录和子目录中调动这个过程的时候就有个路径问题，举个例子，图片都放在images目录中，在根目录中调用时用"images/xxx.gif" ，在一级子目录中就要用"../images/xxx.gif"…，那么怎么解决这个问题呢，看下面这个函数

———————————————————————————-

function name :   getpaht()

description:   解决不同目录中的路径问题

parameters:    none

date:          2000/3/25

author:        liuyunpeng

history:       2000/3/25 version 1.0

———————————————————————————
  
  function getpath()
    dim m_intloop , m_strbasedir     
    for m_intloop = 2 to  ubound(split(request.servervariables ("script_name"),"/" )) – 1
        m_strbasedir = m_strbasedir + "../"
    next
    getpath = m_strbasedir
  end function

这是就可以这样写图片路径
<img src="&getpath()+images&"/xxx.gif>，这样的话无论在多少级子目录中都不用担心路径问题了。