下面是那个文件我看不懂你说的问题

----------------------------------------------

Function Resumeblank(ByVal Content)
     if Content="" then
      Resumeblank=Content
      Exit Function
     end if
     Dim strHtml, strHtml2, Num, Numtemp, Strtemp, i
     strHtml = Replace(strHtml, "<SPAN", "<span")
     strHtml = Replace(strHtml, "</SPAN>", "</span>")
     strHtml = Replace(Content, "<DIV", "<div")
     strHtml = Replace(strHtml, "</DIV>", "</div>")
     strHtml = Replace(strHtml, "<OBJECT", "<object")
     strHtml = Replace(strHtml, "</OBJECT>", "</object>")
     strHtml = Replace(strHtml, "<PARAM", "<param")
     strHtml = Replace(strHtml, "</PARAM>", "</param>")
     strHtml = Replace(strHtml, "<P", "<p")
     strHtml = Replace(strHtml, "</P>", "</p>")
     strHtml = Replace(strHtml, "<BR", "<br /")
     strHtml = Replace(strHtml, "<HR", "<hr")
     strHtml = Replace(strHtml, "<STRONG", "<strong")
     strHtml = Replace(strHtml, "</STRONG>", "</strong>")
     strHtml = Replace(strHtml, "<EM", "<em")
     strHtml = Replace(strHtml, "</EM>", "</em>")
     strHtml = Replace(strHtml, "<UL", "<ul")
     strHtml = Replace(strHtml, "</UL>", "</ul>")
     strHtml = Replace(strHtml, "<OL", "<ol")
     strHtml = Replace(strHtml, "</OL>", "</ol>")
     strHtml = Replace(strHtml, "<LI", "<li")
     strHtml = Replace(strHtml, "</LI>", "</li>")
     strHtml = Replace(strHtml, "<U", "<u")
     strHtml = Replace(strHtml, "</U>", "</u>")
     strHtml = Replace(strHtml, "<A", "<a")
     strHtml = Replace(strHtml, "</A>", "</a>")
     strHtml = Replace(strHtml, "<IMG", "<img")
     strHtml = Replace(strHtml,"VALUE=","value=")
     strHtml = Replace(strHtml, "<FONT", "<font")
     strHtml = Replace(strHtml, "</FONT>", "</font>")
     strHtml = Replace(strHtml, "<TABLE", "<table")
     strHtml = Replace(strHtml, "</TABLE>", vbCrLf & "</table>" & vbCrLf)
     strHtml = Replace(strHtml, "<TBODY>", "")
     strHtml = Replace(strHtml, "</TBODY>", "" & vbCrLf)
     strHtml = Replace(strHtml, "<TR", "<tr")
     strHtml = Replace(strHtml, "</TR>", vbCrLf & "</tr>" & vbCrLf)
     strHtml = Replace(strHtml, "<TD", "<td")
     strHtml = Replace(strHtml, "</TD>", "</td>")
     strHtml = Replace(strHtml, "<"&"!--", vbCrLf & "<"&"!--")
     strHtml = Replace(strHtml, "<SELECT", vbCrLf & "<Select")
     strHtml = Replace(strHtml, "</SELECT>", vbCrLf & "</Select>")
     strHtml = Replace(strHtml, "<OPTION", vbCrLf & "  <Option")
     strHtml = Replace(strHtml, "</OPTION>", "</Option>")
     strHtml = Replace(strHtml, "<INPUT", vbCrLf & "  <Input")
     strHtml = Replace(strHtml, "<" & "script", vbCrLf & "<"&"script")
     strHtml = Replace(strHtml, "&amp;", "&")
     strHtml = Replace(strHtml, "{$--", vbCrLf & "<"&"!--$")
     strHtml = Replace(strHtml, "--}", "$--"&">")
     arrContent = Split(strHtml, vbCrLf)
     For i = 0 To UBound(arrContent)
      Numtemp = False
      If InStr(arrContent(i), "<table") > 0 Then
       Numtemp = True
       If Strtemp <> "<table" And Strtemp <> "</table>" Then
        Num = Num + 2
       End If
       Strtemp = "<table"
      ElseIf InStr(arrContent(i), "<tr") > 0 Then
       Numtemp = True
       If Strtemp <> "<tr" And Strtemp <> "</tr>" Then
        Num = Num + 2
       End If
       Strtemp = "<tr"
      ElseIf InStr(arrContent(i), "<td") > 0 Then
       Numtemp = True
       If Strtemp <> "<td" And Strtemp <> "</td>" Then
        Num = Num + 2
       End If
       Strtemp = "<td"
      ElseIf InStr(arrContent(i), "</table>") > 0 Then
       Numtemp = True
       If Strtemp <> "</table>" And Strtemp <> "<table" Then
        Num = Num - 2
       End If
       Strtemp = "</table>"
      ElseIf InStr(arrContent(i), "</tr>") > 0 Then
       Numtemp = True
       If Strtemp <> "</tr>" And Strtemp <> "<tr" Then
        Num = Num - 2
       End If
       Strtemp = "</tr>"
      ElseIf InStr(arrContent(i), "</td>") > 0 Then
       Numtemp = True
       If Strtemp <> "</td>" And Strtemp <> "<td" Then
        Num = Num - 2
       End If
       Strtemp = "</td>"
      ElseIf InStr(arrContent(i), "<"&"!--") > 0 Then
       Numtemp = True
      End If
    
      If Num < 0 Then Num = 0
      If Trim(arrContent(i)) <> "" Then
       If i = 0 Then
        strHtml2 = String(Num, " ") & arrContent(i)
       ElseIf Numtemp = True Then
        strHtml2 = strHtml2 & vbCrLf & String(Num, " ") & arrContent(i)
       Else
        strHtml2 = strHtml2 & vbCrLf & arrContent(i)
       End If
      End If
     Next
   Resumeblank = strHtml2
 End Function
 function FormatHtml(Content)
  Dim regEx, Matches, Match, TempStr
    Set regEx = New RegExp
    regEx.Pattern = "(background=|SIZE=|color=|bgColor=|colSpan=|align=|width=|height=|cellSpacing=|cellPadding=|border=|class=| id=|target=)[^( |)>]*"
    regEx.IgnoreCase = True
    regEx.Global = True
    Set Matches = regEx.Execute(Content)
    For Each Match In Matches
     If Instr(Match.Value,"""")=0 Then
      If Instr(Match.Value,"class=")<>0 then TempStr=Replace(Match.Value,"class=","class=""")&""""
      If Instr(Match.Value,"target=")<>0 then TempStr=Replace(Match.Value,"target=","target=""")&""""
      If Instr(Match.Value," id=")<>0 then TempStr=Replace(Match.Value," id="," id=""")&""""
      If Instr(Match.Value,"border=")<>0 then TempStr=Replace(Match.Value,"border=","border=""")&""""
      If Instr(Match.Value,"cellPadding=")<>0 then TempStr=Replace(Match.Value,"cellPadding=","cellpadding=""")&""""
      If Instr(Match.Value,"cellSpacing=")<>0 then TempStr=Replace(Match.Value,"cellSpacing=","cellspacing=""")&""""
      If Instr(Match.Value,"width=")<>0 and Instr(Match.Value,"%")=0 then  TempStr=Replace(Match.Value,"width=","width=""")&""""
       If Instr(Match.Value,"height=")<>0 and Instr(Match.Value,"%")=0 then  TempStr=Replace(Match.Value,"height=","height=""")&""""
      If Instr(Match.Value,"align=")<>0 then  TempStr=Replace(Match.Value,"align=","align=""")&""""
      If Instr(Match.Value,"colSpan=")<>0 then  TempStr=Replace(Match.Value,"colSpan=","colSpan=""")&""""
      If Instr(Match.Value,"bgColor=")<>0 then  TempStr=Replace(Match.Value,"bgColor=","bgColor=""")&""""
      If Instr(Match.Value,"color=")<>0 then  TempStr=Replace(Match.Value,"color=","color=""")&""""
      If Instr(Match.Value,"SIZE=")<>0 then  TempStr=Replace(Match.Value,"SIZE=","size=""")&""""
      If Instr(Match.Value,"background=")<>0 then  TempStr=Replace(Match.Value,"background=","background=""")&""""
     
      'If Instr(Match.Value,"http-equiv=")<>0 then  TempStr=Replace(Match.Value,"http-equiv=","http-equiv=""")&""""
     ' If Instr(Match.Value,"rel=")<>0 then  TempStr=Replace(Match.Value,"rel=","rel=""")&""""
      'If Instr(Match.Value,"type=")<>0 then  TempStr=Replace(Match.Value,"type=","type=""")&""""
     
      If Instr(Match.value,"%")=0 Then Content=Replace(Content,Match.value,TempStr)
     End If
    Next
    FormatHtml=Content
 End Function
 
 
 function ReplaceScriptToImg(Content)
     Dim regEx,Match, Matches,strTemp
      Set regEx = New RegExp
   regEx.IgnoreCase = True
   regEx.Global = True
      regEx.Pattern = "(\<Script)(.*?)(\<\/Script\>)"
        Set Matches = regEx.Execute(Content)
        For Each Match In Matches
            strTemp = Replace(Match.Value, "<", "[!")
            strTemp = Replace(strTemp, ">", "!]")
            strTemp = Replace(strTemp, "'", "′")
            strTemp = "<IMG alt='#" & strTemp & "#' src=""" &domain&"KS_Editor/images/jscript.gif"" border=0 $>"
            Content = Replace(Content, Match.Value, strTemp)
        Next
  ReplaceScriptToImg=content
  'ReplaceScriptToImg=Replace(content,"""","[")
  End function
  function ReplaceImgToScript(Content)
     Dim regEx,Matches,Match,strTemp2,Match2,strTemp
     Set regEx = New RegExp
   regEx.IgnoreCase = True
   regEx.Global = True
   regEx.Pattern = "\<IMG(.[^\<]*?)\$\>"
   Set Matches = regEx.Execute(Content)
   For Each Match In Matches
   regEx.Pattern = "\#\[(.*?)\]\#"
   Set strTemp = regEx.Execute(Match.Value)
    For Each Match2 In strTemp
     strTemp2 = Replace(Match2.Value, "&amp;", "&")
     strTemp2 = Replace(strTemp2, "#", "")
     strTemp2 = Replace(strTemp2,"&13;&10;",vbCrLf)
     strTemp2 = Replace(strTemp2,"&9;",vbTab)
     strTemp2 = Replace(strTemp2,"′","'")
     strTemp2 = Replace(strTemp2, "[!", "<")
     strTemp2 = Replace(strTemp2, "!]", ">")
     Content = Replace(Content, Match.Value, strTemp2)
    Next
    Next
      Content = Replace(Content, "<HEAD", "<head")
     Content = Replace(Content, "</HEAD>", "</head>")
     Content = Replace(Content, "<TITLE", "<title")
     Content = Replace(Content, "</TITLE>", "</title>")
     Content = Replace(Content, "<liNK", "<link")
     Content = Replace(Content, "><link", ">" & vbcrlf &"<link")
     Content = Replace(Content, "></head", ">" & vbcrlf &"</head")
     Content = Replace(Content, "<META", "<meta")
     Content = Replace(Content, "<BODY", "<body")
     Content = Replace(Content, "</BODY>", "</body>")
     'Content = Replace(Content, "<body contentEditable=true", "<body")
      ReplaceImgToScript= Content
  End function