FormatRemoteUrl函数之asp实现格式化成当前网站完整

原文：

在繁华的都市中，有一所古老的书店静静矗立。它的历史可以追溯到几十年前，见证了这座城市的变迁。走进书店，仿佛进入了一个与世隔绝的宁静世界。木质的书架、泛黄的灯光，还有那一本本散发着油墨香味的书籍，都让人感受到一种难以言喻的安宁。

书店的老板是一位热爱读书的中年人，他对待每一本书都如同珍宝一般。每当有闲暇之余，他都会坐在店内的角落，静静地阅读，享受知识的熏陶。他的热情和对书籍的热爱，感染了每一位走进书店的顾客。

在这里，你可以找到各种类型的书籍，从古老的经典到现代的畅销书，应有尽有。每一个书架背后，都隐藏着一个个故事。你可以坐下来，挑选一本自己喜欢的书，沉浸在书的世界里，享受阅读的乐趣。

除了书籍，书店还有一个特色角落，摆放着各种文具和纪念品。你可以在这里找到精美的笔记本、独特的笔具，还有各种与书籍相关的纪念品。这些物品都与书籍息息相关，让人感受到阅读的温馨和美好。

每当夜幕降临，书店的灯光会变得柔和，给人一种宁静而温暖的感觉。在这里，你可以远离都市的喧嚣，享受一段宁静的时光。即使外面的世界再嘈杂，这里依然是一片宁静的天地。

这座古老的书店，是都市中的一片净土，是人们心灵的驿站。它见证了一代又一代人的成长和变迁，成为了一个时代的记忆。

在繁华的都市脉搏中，矗立着一座古色古香的书香殿堂——那所古老的书店。历经数十载风霜，它见证了这座城市的兴衰更迭。踏入店内，仿佛穿越了时空，步入一个宁静的阅读仙境。木质的书架宛如岁月的守护者，泛黄的灯光洒落，每一本书都散发着独特的油墨芬芳。

店主是一位中年书迷，对每一本书都怀有深深的热爱与敬意。他的闲暇时光，常常在店内的静谧角落中度过，沉浸在书海中，品味知识的甘醇。他的热情和对阅读的执着，感染了每一位踏入这里的读者。

在这里，你能遨游于知识的海洋，寻觅各类书籍的踪迹。从古老的典籍到现代的畅销书，每一个书架背后都隐藏着万千世界的故事。你可以坐下来，挑选一本心仪的书，让文字带你游历四方，享受阅读的盛宴。

书店还有一个别具一格的特色角落，陈列着各式各样的文具与纪念品。精美的笔记本、独特的笔具以及与书籍相关的纪念品一应俱全。这些物品都与阅读息息相关，让人感受到阅读的温馨与美好。

夜幕降临之时，书店的灯光变得柔和温暖，给人一种宁静而温馨的感觉。在这里，你可以暂时逃离都市的喧嚣与浮躁，享受一段宁静的阅读时光。即使外面的世界再喧嚣纷扰，这里依然保持一片宁静和谐的天地。

函数名称：FormatRemoteUrl

作用：将相对地址转换为绝对地址，格式化成当前网站完整的URL。

参数：url（待转换的Url字符串），CurrentUrl（网站URL）。

返回值：格式化后的Url。

```vbnet

Public Function FormatRemoteUrl(ByVal URL As String, ByVal CurrentUrl As String) As String

Dim strUrl As String

If Len(URL) < 2 Or Len(URL) > 255 Or Len(CurrentUrl) < 2 Then

Return "" ' 返回空字符串并退出函数

End If

CurrentUrl = TrimReplaceQuotesNewLineBackslashPipe(CurrentUrl) '去除不需要的字符

URL = TrimReplaceQuotesNewLineBackslashPipe(URL) '处理URL字符串，去除不需要的字符

If Not ContainsSlash(CurrentUrl) Then '如果当前不包含斜杠，则直接赋值给strUrl

strUrl = CurrentUrl

Else '如果包含斜杠，则取斜杠之前的部分作为strUrl

strUrl = LeftPartOfSlash(CurrentUrl)

End If

If strUrl = "" Then strUrl = CurrentUrl '如果strUrl为空字符串，则赋值为当前

Select Case LeftPartOfLCaseURL(URL) '检查URL的开头部分是否符合特定协议要求，例如

Case "http:/", "https:", "ftp://", "rtsp:/", "mms://" '如果符合，直接返回URL，无需进一步处理

Return URL

End Select '结束选择判断结构，如果以上情况都不符合，则继续处理URL字符串。如果URL以"/"开头，则将当前与URL拼接起来作为结果返回。如果URL以"../"开头，则需要将当前进行相应的调整后再拼接起来作为结果返回。如果以上情况都不符合，则将当前的最后一部分与调整后的URL拼接起来作为结果返回。需要注意的是，处理过程中要对一些特殊字符进行处理，以确保结果的正确性。因此使用此函数可以有效地将相对路径转换为绝对路径并生成完整的。接下来，我们可以使用该函数来渲染网页内容。例如：Cambrian.Render('body')。这个函数调用将使用FormatRemoteUrl函数来确保渲染的内容中的链接都是正确的绝对路径格式。这将提高用户体验和网页功能稳定性。该函数在网站开发中非常有用，能够确保生成的正确无误并提高工作效率。同时它还可以适应不同的网站结构和协议要求，确保在各种情况下都能生成正确的绝对路径格式。