网站:0  信息:0  会员:0
  • 个性主页
  • 更换皮肤
  • 保存到桌面
  • 手机版
‹›
    保存
    关闭
    <% ' 转为根路径格式 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%>
    汕头网址导航
    站内搜索
    • 站内搜索
    • 淘宝搜索
    • 天猫搜索
    • 京东搜索
    • 百度搜索
    • 360搜索
    • Google搜索
    • Yahoo搜索
    • 必应搜索
    • 搜狗搜索
    • 微信搜索
    • 图片搜索
    • 视频搜索
    • 音乐搜索
    • 首页
    • 企业目录
    • 行业分类
    • 网店购物
    • 网站列表
    • 门户
    • 论坛
    • 招聘
    • 汽车
    • 交通
    • 游戏