收藏的ASP常用的函数集

（假设原文如下）

未知：人类对未知的无限渴望

自从人类诞生的那一天起，我们就开始了对未知的。无论是对宇宙的奥秘，还是对自身内心的深处，我们都怀揣着无限的渴望和好奇。我们的历史是一部不断和发现的历史，是一部充满冒险和挑战的旅程。

我们的之旅始于身边的世界。我们研究自然界，了解生物，地球的内部和外部。我们对自然界的每一个秘密都充满好奇，每一个新的发现都会让我们欢欣鼓舞。我们的科技在这个过程中得到了飞速的发展，让我们能够更好地理解世界，更好地适应环境。

我们的之旅并没有结束。我们抬头仰望星空，对宇宙的奥秘充满好奇。我们想知道宇宙的起源和归宿，我们想知道我们是如何存在的。我们的想象力没有边界，我们的渴望让我们不断前行。我们对未知的渴望推动着我们不断地挑战自我，不断地超越自我。

我们的内心也是一个未知的世界。我们对自己的内心充满好奇，我们想知道自己真正的想法和感受。我们不断地反思自己，寻找内心的答案。我们对自身的认知让我们更好地理解世界，更好地与世界互动。我们的成长是一个不断内心世界的旅程，是一个充满和发现的旅程。

未知是我们人类的天性。我们对未知的好奇和渴望推动着我们不断地前行，不断地挑战自我。我们是者，我们是冒险家，我们永不停歇。我们的未来是一个充满未知的世界，我们将继续，继续发现，继续成长。我们将用我们的智慧和勇气去揭示未知的奥秘，去创造更美好的未来。

未知：人性的永恒之旅

自从人类文明诞生的曙光初现，我们的之旅就已启程。我们对未知的热情和渴望如同不灭的火焰，照亮我们前行的道路，让我们在的征途上永不止步。

我们以好奇的目光审视周围的世界，研究自然、生物和地球的秘密。每一次新的发现都让我们欢欣鼓舞，每一次突破都让我们感受到科技的神奇力量。它让我们更好地理解世界，更好地适应环境，让我们在知识的海洋中遨游。

我们的之旅远未结束。宇宙的奥秘如同磁石般吸引着我们，让我们仰望星辰，追寻宇宙的起源和归宿。我们的心灵如同航海家的船舶，扬帆驶向未知的海洋，自我存在的真谛和内心的答案。

我们的内心是一个深邃而神秘的领域。我们倾听内心的声音，感受思绪的涌动，自我真正的想法和感受。这是一个充满挑战和发现的旅程，让我们更好地理解世界，更好地与世界互动。

未知是我们的天性，是我们的宿命。我们对未知的好奇和渴望推动着我们不断前行，不断突破自我。我们是勇敢的者，无畏的冒险家，我们的脚步永远不会停歇。

一、获取带端口的URL，推荐使用的方法

功能描述：此函数旨在获取带有服务器端口号的URL。如果服务器运行在默认的80端口上，则不添加端口号；否则，会包含端口号。

```asp

Function GetScriptNameWithPortUrl()

Dim serverPort As String = request.ServerVariables("SERVER_PORT")

If serverPort = "80" Then

GetScriptNameWithPortUrl = " & request.ServerVariables("server_name") & LCase(request.ServerVariables("script_name"))

Else

GetScriptNameWithPortUrl = " & request.ServerVariables("server_name") & ":" & serverPort & LCase(request.ServerVariables("script_name"))

End If

End Function

```

二、使用正则表达式突出显示字符串中的查询单词

功能描述：此函数通过正则表达式将指定的单词在字符串中高亮显示，突出显示查询到的单词。

```asp

Function HighlightWord(strContent As String, word As String)

If word = "" Then

HighlightWord = strContent

Exit Function

End If

Dim regex As New RegExp

regex.IgnoreCase = True

regex.Global = True

regex.Pattern = "(" & word & ")"

strContent = regex.Replace(strContent, "$1")

HighlightWord = strContent

End Function

```

三、获取用户当前IP地址的方法

功能描述：此函数获取用户当前的IP地址，优先从HTTP_X_FORWARDED_FOR获取，如果没有则从REMOTE_ADDR获取。

```asp

Function GetUserIP() As String

Dim uIP As String = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

If uIP = "" Then uIP = Request.ServerVariables("REMOTE_ADDR")

GetUserIP = uIP

End Function

```

四、获取当前程序脚本路径的方法（含参数）

功能描述：此函数获取当前程序脚本的路径，如果带有查询字符串，则一并获取并编码。如果路径过长，则进行截取。

```asp

Function GetCurrentScriptPathWithParams() As String

Dim scriptPath As String = CStr(Request.ServerVariables("SCRIPT_NAME")) '获取当前地址

If Request.QueryString <> "" Then

scriptPath &= "?" & Server.HTMLEncode(Request.QueryString) '获取带参数地址

End If

If Len(scriptPath) > 250 Then

scriptPath = Left(scriptPath, 250) & "..." '路径截取，最大为250个字符

End If

GetCurrentScriptPathWithParams = scriptPath

End Function