FormatRemoteUrl函数之asp实现格式化成当前网站完整的URL-将相对地址转换为绝对地址的代码
2023-06-13 09:13:57 时间
"================================================
"函数名:FormatRemoteUrl
"作 用:格式化成当前网站完整的URL-将相对地址转换为绝对地址
"参 数: url ----Url字符串
"参 数: CurrentUrl ----当然网站URL
"返回值:格式化取后的Url
"================================================
Public Function FormatRemoteUrl(ByVal URL,ByVal CurrentUrl)
Dim strUrl
If Len(URL) < 2 Or Len(URL) > 255 Or Len(CurrentUrl) < 2 Then
FormatRemoteUrl = vbNullString
Exit Function
End If
CurrentUrl = Trim(Replace(Replace(Replace(Replace(Replace(CurrentUrl, """, vbNullString), """", vbNullString), vbNewLine, vbNullString), "\", "/"), "|", vbNullString))
URL = Trim(Replace(Replace(Replace(Replace(Replace(URL, """, vbNullString), """", vbNullString), vbNewLine, vbNullString), "\", "/"), "|", vbNullString))
If InStr(9, CurrentUrl, "/") = 0 Then
strUrl = CurrentUrl
Else
strUrl = Left(CurrentUrl, InStr(9, CurrentUrl, "/") - 1)
End If
If strUrl = vbNullString Then strUrl = CurrentUrl
Select Case Left(LCase(URL), 6)
Case "http:/", "https:", "ftp://", "rtsp:/", "mms://"
FormatRemoteUrl = URL
Exit Function
End Select
If Left(URL, 1) = "/" Then
FormatRemoteUrl = strUrl & URL
Exit Function
End If
If Left(URL, 3) = "../" Then
Dim ArrayUrl
Dim ArrayCurrentUrl
Dim ArrayTemp()
Dim strTemp
Dim i, n
Dim c, l
n = 0
ArrayCurrentUrl = Split(CurrentUrl, "/")
ArrayUrl = Split(URL, "../")
c = UBound(ArrayCurrentUrl)
l = UBound(ArrayUrl) + 1
If c > l + 2 Then
For i = 0 To c - l
ReDim Preserve ArrayTemp(n)
ArrayTemp(n) = ArrayCurrentUrl(i)
n = n + 1
Next
strTemp = Join(ArrayTemp, "/")
Else
strTemp = strUrl
End If
URL = Replace(URL, "../", vbNullString)
FormatRemoteUrl = strTemp & "/" & URL
Exit Function
End If
strUrl = Left(CurrentUrl, InStrRev(CurrentUrl, "/"))
FormatRemoteUrl = strUrl & Replace(URL, "./", vbNullString)
Exit Function
End Function
"函数名:FormatRemoteUrl
"作 用:格式化成当前网站完整的URL-将相对地址转换为绝对地址
"参 数: url ----Url字符串
"参 数: CurrentUrl ----当然网站URL
"返回值:格式化取后的Url
"================================================
Public Function FormatRemoteUrl(ByVal URL,ByVal CurrentUrl)
Dim strUrl
If Len(URL) < 2 Or Len(URL) > 255 Or Len(CurrentUrl) < 2 Then
FormatRemoteUrl = vbNullString
Exit Function
End If
CurrentUrl = Trim(Replace(Replace(Replace(Replace(Replace(CurrentUrl, """, vbNullString), """", vbNullString), vbNewLine, vbNullString), "\", "/"), "|", vbNullString))
URL = Trim(Replace(Replace(Replace(Replace(Replace(URL, """, vbNullString), """", vbNullString), vbNewLine, vbNullString), "\", "/"), "|", vbNullString))
If InStr(9, CurrentUrl, "/") = 0 Then
strUrl = CurrentUrl
Else
strUrl = Left(CurrentUrl, InStr(9, CurrentUrl, "/") - 1)
End If
If strUrl = vbNullString Then strUrl = CurrentUrl
Select Case Left(LCase(URL), 6)
Case "http:/", "https:", "ftp://", "rtsp:/", "mms://"
FormatRemoteUrl = URL
Exit Function
End Select
If Left(URL, 1) = "/" Then
FormatRemoteUrl = strUrl & URL
Exit Function
End If
If Left(URL, 3) = "../" Then
Dim ArrayUrl
Dim ArrayCurrentUrl
Dim ArrayTemp()
Dim strTemp
Dim i, n
Dim c, l
n = 0
ArrayCurrentUrl = Split(CurrentUrl, "/")
ArrayUrl = Split(URL, "../")
c = UBound(ArrayCurrentUrl)
l = UBound(ArrayUrl) + 1
If c > l + 2 Then
For i = 0 To c - l
ReDim Preserve ArrayTemp(n)
ArrayTemp(n) = ArrayCurrentUrl(i)
n = n + 1
Next
strTemp = Join(ArrayTemp, "/")
Else
strTemp = strUrl
End If
URL = Replace(URL, "../", vbNullString)
FormatRemoteUrl = strTemp & "/" & URL
Exit Function
End If
strUrl = Left(CurrentUrl, InStrRev(CurrentUrl, "/"))
FormatRemoteUrl = strUrl & Replace(URL, "./", vbNullString)
Exit Function
End Function
相关文章
- python中如何把列表转换为字符串
- python 进制转换[通俗易懂]
- c语言long类型转换成string,如何在C ++中将long转换为string?「建议收藏」
- java pfx 证书_Java将pfx证书转换为jks[通俗易懂]
- JsonArray转换List
- bcd码与十进制转换方法_5421bcd码转换十进制
- .netLinux下部署ASP.NET环境指南(linux部署asp)
- MySQL字符转换为数字的技巧(mysql字符转换数字)
- .net搭建ASP.NET应用程序在Linux系统上(linux搭建asp)
- MySQL数据类型转换:从Time到INT(mysql时间转换int)
- 灵活操作:ASP连接MySQL(asp连接mysql)
- ASP操作Oracle数据库(asp链接oracle)
- Linux网络地址转换解决方案(linux 地址转换)
- ASP和宝塔MySQL之间的稳固连接(asp连接宝塔mysql)
- 基于ASP的MySQL数据库连接实现(asp连接数mysql)
- ASP程序连接MySQL完美实现本地数据库操作(asp连接mysql地址)
- ASP读取MySQL数据库操作变慢的原因分析(asp+读取mysql慢)
- 解决ASP读取MySQL乱码问题(asp读取mysql乱码)
- ASP与MySQL的结合创造巨大可能性(asp结合mysql)
- ASP如何使用代码登录MySQL数据库(asp登陆mysql代码)
- MySQL重新梳理ASP源码转换指南(asp源码转mysql)
- ASP连接MySQL的实现方式(asp文件连接mysql)
- 数据库探索ASP环境搭建MySQL数据库方法(asp搭建mysql)
- ASP技术点缀MySQL之美展示精彩绚丽(asp展示mysql)
- 使用MySQL,让ASP走向新的维度(asp如何用mysql)
- 利用ASP技术进行MySQL数据库开发(asp可以使用mysql)
- ASP把信息写入MySQL库的方法(asp写信息到mysql)
- ASP结合MySQL,发挥出卓越的性能(asp使用mysql性能)
- ASP控制下的Oracle数据库管理初体验(asp控制oracle)
- Oracle中优雅实现字符串转换(oracle中转换字符串)
- Oracle数据库中实现大小写转换的方法(oracle中大小写转换)
- Oracle数据转换从一维到二维实现有效存储(oracle 一维转二维)
- Oracle ASP程序助你轻松下载(oracle asp下载)
- 比较不错的asp模板引终极讲解(WEB开发之ASP模式)
- ASP使用三层架构asp中使用类
- asp中将相对路径转换为绝对路径的函数代码
- 解析PHP中intval()等int转换时的意外异常情况
- 如何通过配置自动实现ValueList中hql语句的整型参数转换
- JavaIO文件编码转换实现代码
- 解析PHP强制转换类型及远程管理插件的安全隐患