修正关键字替换显示错误的BUG并增加关键字前的标示图片

        '-----------关键词识别----------------

        '-----------关键词识别----------------
        If AutoKEY = 1 Then
            Dim log_Keywords, log_KeywordsContent
            For Each log_Keywords IN Arr_Keywords
                log_KeywordsContent = Split(log_Keywords, "$|$")
                strContent = startReplace(strContent,log_KeywordsContent(1),log_KeywordsContent(2),log_KeywordsContent(3))
            Next
        End If
        Set re = Nothing
        UBBCode = strContent
    End If
End Function

Function AddToDic(reg,key,Index,str,dic)
    Set reg=new RegExp
    reg.Global=True
    reg.IgnoreCase=True
    Dim pattern,matches,m,ky
    pattern="<a(.*?)>(.*?)</a>|\<[^>]*\>"
    reg.Pattern=pattern
    Set matches=reg.Execute(str)
    For Each m In matches
        dic.Add "key"&Index,m.value    
        str=replace(str,m.value,"$key"&Index&"$")
        Index=Index+1
    Next
    Set matches=Nothing
End Function

Function startReplace(str,KeywordsContent,KeywordsUrl,KeywordsImg)
    Dim TempStr:TempStr=str
    Dim dic'字典
    Set dic=server.CreateObject("scripting.dictionary")
    Dim Index:Index=0
    Dim reg
    Set reg=new RegExp
    reg.Global=True
    reg.IgnoreCase=True
    Dim pattern,matches,m,ky
    ky=KeywordsContent
    AddToDic reg,ky,Index,TempStr,dic
    If KeywordsImg<>"" Then
        TempStr=replace(TempStr,ky,"<a href='"&KeywordsUrl&"'>"&ky&"</a>")
    Else
        TempStr=replace(TempStr,ky,"<img src='"&KeywordsImg&"'><a href='"&KeywordsUrl&"'>"&ky&"</a>")
    End If
    AddToDic reg,ky,Index,TempStr,dic
    Set reg=Nothing
    Dim i
    For i=0 To Index-1
        TempStr=replace(TempStr,"$key"&i&"$",dic.Item("key"&i))
    Next
    Set dic=Nothing
    startReplace=TempStr
End Function

%>

Server.ScriptTimeOut = 90

           <form action="ConContent.asp" method="post" style="margin:0px">
           <input type="hidden" name="action" value="smilies"/>
           <input type="hidden" name="whatdo" value="KeyWord"/>
           <input type="hidden" name="DelID" value=""/>

     <div class="SubButton" style="text-align:left;">
                   <select name="doModule">
                     <option value="SaveAll">保存所有关键字</option>
                     <option value="DelSelect">删除所选关键字</option>

<table border="0" cellpadding="2" cellspacing="1" class="TablePanel">
                <tr align="center">
                  <td width="16" nowrap="nowrap" class="TDHead">&nbsp;</td>
                  <td width="120" nowrap="nowrap" class="TDHead">关键字</td>
                  <td width="220" nowrap="nowrap" class="TDHead">关键字链接地址</td>
                  <td width="220" nowrap="nowrap" class="TDHead">关键字前图片地址</td>
                </tr>
               <%
        Dim bKeyWord
        Set bKeyWord = conn.Execute("select * from blog_Keywords order by key_ID desc")
        Do Until bKeyWord.EOF
        
        %>
                <tr align="center">
                  <td><input name="SelectKeyWordID" type="checkbox" value="<%=bKeyWord("key_ID")%>"/></td>
                  <td><input name="KeyWordID" type="hidden" value="<%=bKeyWord("key_ID")%>"/><input name="KeyWord" type="text" size="18" class="text" value="<%=bKeyWord("key_Text")%>"/></td>
                  <td><input name="KeyWordURL" type="text" size="34" class="text" value="<%=bKeyWord("key_URL")%>"/></td>
                  <td><input name="key_Image" type="text" class="text" id="key_Image" value="<%=bKeyWord("key_Image")%>" size="34"/></td>
                </tr>
               <%
        bKeyWord.movenext
        Loop
        
        %>
               <tr align="center" bgcolor="#D5DAE0">
                <td colspan="4" class="TDHead" align="left" style="border-top:1px solid #9EA9C5"><a name="AddLink"></a><img src="images/add.gif" style="margin:0px 2px -3px 2px"/>添加新关键字</td>
               </tr>    
                <tr align="center">
                  <td></td>
                  <td><input name="KeyWordID" type="hidden" value="-1"/><input name="KeyWord" type="text" size="18" class="text"/></td>
                  <td><input name="KeyWordURL" type="text" size="34" class="text"/></td>
                  <td><input name="key_Image" type="text" class="text" id="key_Image" size="34"/></td>
                </tr>
             </table>

            session(CookieName&"_MsgText") = session(CookieName&"_MsgText")&(UBound(KeyWordID) + 1)&"关键字被删除!"
            RedirectUrl("ConContent.asp?Fmenu=smilies&Smenu=KeyWord")
        Else

            Keywords(2)
            session(CookieName&"_ShowMsg") = True
            session(CookieName&"_MsgText") = session(CookieName&"_MsgText")&"关键字保存成功!"

            Dim key_Image
            KeyWordID = Split(Request.Form("KeyWordID"), ", ")
            KeyWord = Split(Request.Form("KeyWord"), ", ")
            KeyWordURL = Split(Request.Form("KeyWordURL"), ", ")
            key_Image = Split(Request.Form("key_Image"), ", ")
            For i = 0 To UBound(KeyWordID)
                If Int(KeyWordID(i))<> -1 Then
                    conn.Execute("update blog_Keywords set key_Text='"&CheckStr(KeyWord(i))&"',key_URL='"&CheckStr(KeyWordURL(i))&"',key_Image='"&CheckStr(key_Image(i))&"' where key_ID="&KeyWordID(i))
                Else
                    If Len(Trim(CheckStr(KeyWord(i))))>0 Then
                        conn.Execute("insert into blog_Keywords (key_Text,key_URL,key_Image) values ('"&CheckStr(KeyWord(i))&"','"&CheckStr(KeyWordURL(i))&"','"&CheckStr(key_Image(i))&"')")
                        session(CookieName&"_MsgText") = "新关键字添加成功! "
                    End If
                End If
            Next