Question

ASP.NET 函数问题！求大神解答……

Private Function ProcessUbbCode_Key(strText)
Dim s,i,sContentKeyword,ArrayKeyword,strKeyword
s=strText
If Trim(ContentKeyword) <> "" Then
sContentKeyword = Split(ContentKeyword, "@@@")
If UBound(sContentKeyword) > 1 Then
For i = 0 To UBound(sContentKeyword) - 1
ArrayKeyword = Split(sContentKeyword(i), "$$$")
If ArrayKeyword(0) <> "" Then
strKeyword = ArrayKeyword(0)
If Left(strKeyword,1) = "|" Then strKeyword = Replace(strKeyword, "|", vbNullString,1,1)
If Right(strKeyword,1) = "|" Then strKeyword = Left(strKeyword,Len(strKeyword)-1)
re.Pattern = "(^|[^\/\\\w\=])(" & Replace(strKeyword, "$", "\$") & ")"
s=re.Replace(s, "$1<a target=""_blank"" href=""" & ArrayKeyword(1) & """ class=""UBBWordLink"">$2</a>")
re.Global = False
End If
Next
End If
End If
ProcessUbbCode_Key=s
End Function

以上是关键词加链接的函数，判断是所有关键词都加链接。我需要加段 系统只给20个关键词加链接！

Answer 1

首先这个不是ASP.NET。

给你个思路：遍历整个字符串中的关键词字符串放到一个数组中。然后用循环去给它们设置链接。