DefiniteUrl asp将相对地址转换为绝对地址的代码

      End If
   End If
   If Left(DefiniteUrl,1)="/" then
     DefiniteUrl=Right(DefiniteUrl,Len(DefiniteUrl)-1)
   End if
   If DefiniteUrl<>"" Then
      DefiniteUrl=Replace(DefiniteUrl,"//","/")
      DefiniteUrl=Replace(DefiniteUrl,":","://")
   Else
      DefiniteUrl="$False$"
   End If
End Function

您可能感兴趣的文章:

如何批量替换相对地址为绝对地址(利用bat批处理实现)FormatRemoteUrl函数之asp实现格式化成当前网站完整的URL-将相对地址转换为绝对地址的代码JavaScript将相对地址转换为绝对地址示例代码