Vbscript 从输入中删除单引号

我正试图删除一个报价，但我不知道怎么做。 我把相关代码留在这里

response.write "Original: " & rs2("comentario") 
comentario = Replace(rs2("comentario"), "ñ", "ñ") 
comentario = Replace(comentario, "ó", "ó") 
comentario = Replace(comentario, "fÆ", "ó") 
comentario = Replace(comentario, "³", "ó") 
comentario = Replace(comentario, "Ã", "") 
comentario = Replace(comentario, "Â", "") 
comentario = Replace(comentario, Chr(39), "")
comentario = Replace(comentario, "'", "")
comentario = Replace(comentario, "\'", "")
response.write "<br>Modificado: " & comentario & "<br>-----------------------<br>"

response.write“原件：&rs2（“comentario”）
comentario=替换（rs2（“comentario”）、“Ô、“ñ”）
comentario=替换（comentario，“ó”，“ó”）
comentario=替换（comentario，“fÆ”，“ó”）
comentario=替换（comentario，“of³”，“ó”）
comentario=替换（comentario，“Ô和“”）
comentario=Replace（comentario，“the”、“”）
comentario=替换（comentario，Chr（39），“”）
comentario=替换（comentario，“，”）
comentario=替换（comentario，“\”，“）
response.write“
修改：&comentario&”
--------------------------
”

上面代码的结果如下

Original: reunión INNOVAE IÃ'igo Iñake Modificado: reunión INNOVAE I'igo Iñake ----------------------- 原件：reunión INNOVAE IÃigo IÃake 修改：Reunion INNOVAE I'igo Iñake -----------------------

---

我不清楚你想做什么或遇到什么问题。如果您想删除字符串中的所有撇号（U+0027），那么您正在做什么

comentario = Replace(comentario, "'", "")

应该很好用。（使用

chr（39）

而不是

“”

将是等效的

可能您试图替换的字符实际上不是撇号，而是其他类似的字符。可能您正在输出一个不支持字符串中实际字符的字符集，并将其替换为输出中最接近的最佳匹配（即U+0027撇号）这些只是猜测，如果你不知道更多关于你的设置和你真正想做什么，就很难确定

---

从更大的角度来看，您似乎试图以某种方式修复以前使用错误的字符编码传输的数据。除非您试图修复过去以这种方式不可逆转地损坏的数据，否则您最好纠正该问题，并确保数据以正确的编码一次性传输您的工作流程中的所有点。请确保

Response.CharSet

和

Response.CodePage

的设置符合您尝试使用的任何文本编码的预期方式，并且您在浏览器设置的编码集中正确处理表单输入。

我解决了此问题，将页面的编码部分从

<%
CharSet = "ISO-8859-1"
Response.CodePage = 28591
%>

到

---

并将其保存为记事本+/-上的UTF-8以下是我为修复有趣字符而创建的内容：

我使用FN_CLEAN来“清理”数据库插入/更新的内容：

function fn_clean(FixWhat)
    if (isempty(FixWhat) or isnull(FixWhat) or FixWhat="") then
        FixWhat=""
    else
        apos=chr(39)
        quot=chr(34)

        FixWhat=trim(FixWhat)
        FixWhat=replace(FixWhat,"  "," ",1,-1,1)
        FixWhat=replace(FixWhat,"''",apos & apos,1,-1,1)
        FixWhat=replace(FixWhat,"'''",apos,1,-1,1)

        FixWhat=replace(FixWhat,VBNullChar,"",1,-1,1)
        FixWhat=replace(FixWhat,VBNullString,"",1,-1,1)
        FixWhat=replace(FixWhat,VBTab," ",1,-1,1)
        FixWhat=replace(FixWhat,VBVerticalTab," ",1,-1,1)

        FixWhat=replace(FixWhat,"<ahref=","<a href=",1,-1,1)
        FixWhat=replace(FixWhat,"<ahref =","<a href=",1,-1,1)
        FixWhat=replace(FixWhat,"<imgsrc","<img src",1,-1,1)
        FixWhat=replace(FixWhat,"<spanclass=","<span class=",1,-1,1)
        FixWhat=replace(FixWhat,"<spanclass =","<span class=",1,-1,1)
        FixWhat=replace(FixWhat,"//<![CDATA[","",1,-1,1)
        FixWhat=replace(FixWhat,"//]]","",1,-1,1)

        FixWhat=replace(FixWhat,"&amp;","&",1,-1,1)
        FixWhat=replace(FixWhat,"amp;","&",1,-1,1)
        FixWhat=replace(FixWhat,"&amp;","&",1,-1,1)
        FixWhat=replace(FixWhat,"&&","&",1,-1,1)
        FixWhat=replace(FixWhat,"&&","&",1,-1,1)
        FixWhat=replace(FixWhat,"&lt;","<",1,-1,1)      
        FixWhat=replace(FixWhat,"&gt;",">",1,-1,1)

        FixWhat=replace(FixWhat,"/","&#47;",1,-1,1)
        'FixWhat=replace(FixWhat,"../../../images/","/images/",1,-1,1)

        FixWhat=replace(FixWhat,"’",apos,1,-1,1)
        FixWhat=replace(FixWhat,"’",apos,1,-1,1)        
        FixWhat=replace(FixWhat,"`",apos,1,-1,1)
        'FixWhat=replace(FixWhat,chr(145),apos,1,-1,1)
        'FixWhat=replace(FixWhat,chr(146),apos,1,-1,1)
        'FixWhat=replace(FixWhat,chr(180),apos,1,-1,1)
        'FixWhat=replace(FixWhat,chr(184),apos,1,-1,1)

        FixWhat=replace(FixWhat,"_new","_BLANK",1,-1,1)
        FixWhat=replace(FixWhat,"_NEW","_BLANK",1,-1,1)

        'FixWhat=replace(FixWhat,"ñ","&#241;",1,-1,1)

        'quotes     
        'FixWhat=replace(FixWhat,chr(132),quot,1,-1,1)
        'FixWhat=replace(FixWhat,chr(147),quot,1,-1,1)
        'FixWhat=replace(FixWhat,chr(148),quot,1,-1,1)
        'FixWhat=replace(FixWhat,chr(152),quot,1,-1,1)
        'FixWhat=replace(FixWhat,chr(168),quot,1,-1,1)

        'hyphens
        'FixWhat=replace(FixWhat,chr(150),"-",1,-1,1)
        'FixWhat=replace(FixWhat,chr(151),"--",1,-1,1)

        'dot dot dot
        'FixWhat=replace(FixWhat,chr(133),"...",1,-1,1)

        'line feed
        'FixWhat=replace(FixWhat,chr(10),"[chr-10 was here]",1,-1,1)
        'FixWhat=replace(FixWhat,chr(12),"[chr-12 was here]",1,-1,1)
        'FixWhat=replace(FixWhat,chr(13),"[chr-13 was here]",1,-1,1)

        'CR
        'FixWhat=replace(FixWhat,chr(21),"<br>",1,-1,1)

        'now for everything higher than char 128
        'for i = 129 to 255
        '   c = "&#" & i & ";"
        '   FixWhat = replace(FixWhat,Chr(i),"&#39;",1,-1,1)
        'next

        'FixWhat=replace(FixWhat,quot,quot & quot)

        'FixWhat=replace(FixWhat,"<br>" & vbCrLf & "<br>" & vbCrLf & "<br>" & vbCrLf,"<br>" & vbCrLf & "<br>" & vbCrLf,1,-1,1)
        FixWhat=replace(FixWhat,vbCrLf & vbCrLf,vbCrLf,1,-1,1)
        'FixWhat=replace(FixWhat,"<br><br><br><br>","<br><br>",1,-1,1)
        'FixWhat=replace(FixWhat,"<br><br><br>","<br><br>",1,-1,1)

        'FixWhat=replace(FixWhat,"<table><br>","<table>",1,-1,1)
        'FixWhat=replace(FixWhat,"</td><br>","</td>",1,-1,1)
        'FixWhat=replace(FixWhat,"<tr><br>","<tr>",1,-1,1)
        'FixWhat=replace(FixWhat,"<br><tr>","<tr>",1,-1,1)
        'FixWhat=replace(FixWhat,"</tr><br>","</tr>",1,-1,1)
        'FixWhat=replace(FixWhat,"<br></tr>","</tr>",1,-1,1)
        'FixWhat=replace(FixWhat,"<br><embed","<embed",1,-1,1)
        'FixWhat=replace(FixWhat,"background=" & quot & " ","background=" & quot & quot & " ",1,-1,1)

        FixWhat=replace(FixWhat,"alt =","title=",1,-1,1)
        FixWhat=replace(FixWhat,"alt=","title=",1,-1,1)
        FixWhat=replace(FixWhat,"alt=  ","alt= ",1,-1,1)
        FixWhat=replace(FixWhat,"alt= ","title=",1,-1,1)
        FixWhat=replace(FixWhat,"title=" & chr(34) & chr(34),"title=image",1,-1,1)
        FixWhat=replace(FixWhat,"title=" & chr(34) & chr(32),"title=image ",1,-1,1)


        FixWhat=replace(FixWhat,"align=" & quot & " ","align=left ",1,-1,1)
        FixWhat=replace(FixWhat,"border=" & quot & " "," ",1,-1,1)
        FixWhat=replace(FixWhat,"this=" & quot & " "," ",1,-1,1)
        FixWhat=replace(FixWhat,"width=" & quot & " ","width=10 ",1,-1,1)
        FixWhat=replace(FixWhat,"x=" & quot & " "," ",1,-1,1)

        FixWhat=replace(FixWhat,"[quote]","&#34;",1,-1,1)
        FixWhat=replace(FixWhat,quot,"&#34;",1,-1,1)
        FixWhat=replace(FixWhat,"'","&#39;",1,-1,1)
    end if
    fn_clean=FixWhat
End Function

函数fn\u clean（FixWhat）
如果（isempty（FixWhat）或isnull（FixWhat）或FixWhat=“”），则
FixWhat=“”
其他的
apos=chr（39）
QUOTE=chr（34）
FixWhat=修剪（FixWhat）
FixWhat=替换（FixWhat，“，”，1，-1,1）
FixWhat=替换（FixWhat，“”，apos&apos，1，-1,1）
FixWhat=替换（FixWhat，“'”，apos，1，-1,1）
FixWhat=replace（FixWhat，VBNullChar，“，1，-1,1）
FixWhat=replace（FixWhat，VBNullString，“，1，-1,1）
FixWhat=替换（FixWhat，VBTab，“，1，-1,1）
FixWhat=替换（FixWhat，VBVerticalTab，“，1，-1,1）
FixWhat=替换（FixWhat，"你似乎有一个字符编码问题。看看这篇文章，谢谢，它似乎得到了解决。我正在试图在数据库上打印一个保存不好的字符串。在db，这个字符串被保存为reunión INNOVAE Iôigo IÃake，我不知道如何删除该撇号。你的评论中没有撇号；你有一个U+00B4 a中环。
function fn_clean(FixWhat)
    if (isempty(FixWhat) or isnull(FixWhat) or FixWhat="") then
        FixWhat=""
    else
        apos=chr(39)
        quot=chr(34)

        FixWhat=trim(FixWhat)
        FixWhat=replace(FixWhat,"  "," ",1,-1,1)
        FixWhat=replace(FixWhat,"''",apos & apos,1,-1,1)
        FixWhat=replace(FixWhat,"'''",apos,1,-1,1)

        FixWhat=replace(FixWhat,VBNullChar,"",1,-1,1)
        FixWhat=replace(FixWhat,VBNullString,"",1,-1,1)
        FixWhat=replace(FixWhat,VBTab," ",1,-1,1)
        FixWhat=replace(FixWhat,VBVerticalTab," ",1,-1,1)

        FixWhat=replace(FixWhat,"<ahref=","<a href=",1,-1,1)
        FixWhat=replace(FixWhat,"<ahref =","<a href=",1,-1,1)
        FixWhat=replace(FixWhat,"<imgsrc","<img src",1,-1,1)
        FixWhat=replace(FixWhat,"<spanclass=","<span class=",1,-1,1)
        FixWhat=replace(FixWhat,"<spanclass =","<span class=",1,-1,1)
        FixWhat=replace(FixWhat,"//<![CDATA[","",1,-1,1)
        FixWhat=replace(FixWhat,"//]]","",1,-1,1)

        FixWhat=replace(FixWhat,"&amp;","&",1,-1,1)
        FixWhat=replace(FixWhat,"amp;","&",1,-1,1)
        FixWhat=replace(FixWhat,"&amp;","&",1,-1,1)
        FixWhat=replace(FixWhat,"&&","&",1,-1,1)
        FixWhat=replace(FixWhat,"&&","&",1,-1,1)
        FixWhat=replace(FixWhat,"&lt;","<",1,-1,1)      
        FixWhat=replace(FixWhat,"&gt;",">",1,-1,1)

        FixWhat=replace(FixWhat,"/","&#47;",1,-1,1)
        'FixWhat=replace(FixWhat,"../../../images/","/images/",1,-1,1)

        FixWhat=replace(FixWhat,"’",apos,1,-1,1)
        FixWhat=replace(FixWhat,"’",apos,1,-1,1)        
        FixWhat=replace(FixWhat,"`",apos,1,-1,1)
        'FixWhat=replace(FixWhat,chr(145),apos,1,-1,1)
        'FixWhat=replace(FixWhat,chr(146),apos,1,-1,1)
        'FixWhat=replace(FixWhat,chr(180),apos,1,-1,1)
        'FixWhat=replace(FixWhat,chr(184),apos,1,-1,1)

        FixWhat=replace(FixWhat,"_new","_BLANK",1,-1,1)
        FixWhat=replace(FixWhat,"_NEW","_BLANK",1,-1,1)

        'FixWhat=replace(FixWhat,"ñ","&#241;",1,-1,1)

        'quotes     
        'FixWhat=replace(FixWhat,chr(132),quot,1,-1,1)
        'FixWhat=replace(FixWhat,chr(147),quot,1,-1,1)
        'FixWhat=replace(FixWhat,chr(148),quot,1,-1,1)
        'FixWhat=replace(FixWhat,chr(152),quot,1,-1,1)
        'FixWhat=replace(FixWhat,chr(168),quot,1,-1,1)

        'hyphens
        'FixWhat=replace(FixWhat,chr(150),"-",1,-1,1)
        'FixWhat=replace(FixWhat,chr(151),"--",1,-1,1)

        'dot dot dot
        'FixWhat=replace(FixWhat,chr(133),"...",1,-1,1)

        'line feed
        'FixWhat=replace(FixWhat,chr(10),"[chr-10 was here]",1,-1,1)
        'FixWhat=replace(FixWhat,chr(12),"[chr-12 was here]",1,-1,1)
        'FixWhat=replace(FixWhat,chr(13),"[chr-13 was here]",1,-1,1)

        'CR
        'FixWhat=replace(FixWhat,chr(21),"<br>",1,-1,1)

        'now for everything higher than char 128
        'for i = 129 to 255
        '   c = "&#" & i & ";"
        '   FixWhat = replace(FixWhat,Chr(i),"&#39;",1,-1,1)
        'next

        'FixWhat=replace(FixWhat,quot,quot & quot)

        'FixWhat=replace(FixWhat,"<br>" & vbCrLf & "<br>" & vbCrLf & "<br>" & vbCrLf,"<br>" & vbCrLf & "<br>" & vbCrLf,1,-1,1)
        FixWhat=replace(FixWhat,vbCrLf & vbCrLf,vbCrLf,1,-1,1)
        'FixWhat=replace(FixWhat,"<br><br><br><br>","<br><br>",1,-1,1)
        'FixWhat=replace(FixWhat,"<br><br><br>","<br><br>",1,-1,1)

        'FixWhat=replace(FixWhat,"<table><br>","<table>",1,-1,1)
        'FixWhat=replace(FixWhat,"</td><br>","</td>",1,-1,1)
        'FixWhat=replace(FixWhat,"<tr><br>","<tr>",1,-1,1)
        'FixWhat=replace(FixWhat,"<br><tr>","<tr>",1,-1,1)
        'FixWhat=replace(FixWhat,"</tr><br>","</tr>",1,-1,1)
        'FixWhat=replace(FixWhat,"<br></tr>","</tr>",1,-1,1)
        'FixWhat=replace(FixWhat,"<br><embed","<embed",1,-1,1)
        'FixWhat=replace(FixWhat,"background=" & quot & " ","background=" & quot & quot & " ",1,-1,1)

        FixWhat=replace(FixWhat,"alt =","title=",1,-1,1)
        FixWhat=replace(FixWhat,"alt=","title=",1,-1,1)
        FixWhat=replace(FixWhat,"alt=  ","alt= ",1,-1,1)
        FixWhat=replace(FixWhat,"alt= ","title=",1,-1,1)
        FixWhat=replace(FixWhat,"title=" & chr(34) & chr(34),"title=image",1,-1,1)
        FixWhat=replace(FixWhat,"title=" & chr(34) & chr(32),"title=image ",1,-1,1)


        FixWhat=replace(FixWhat,"align=" & quot & " ","align=left ",1,-1,1)
        FixWhat=replace(FixWhat,"border=" & quot & " "," ",1,-1,1)
        FixWhat=replace(FixWhat,"this=" & quot & " "," ",1,-1,1)
        FixWhat=replace(FixWhat,"width=" & quot & " ","width=10 ",1,-1,1)
        FixWhat=replace(FixWhat,"x=" & quot & " "," ",1,-1,1)

        FixWhat=replace(FixWhat,"[quote]","&#34;",1,-1,1)
        FixWhat=replace(FixWhat,quot,"&#34;",1,-1,1)
        FixWhat=replace(FixWhat,"'","&#39;",1,-1,1)
    end if
    fn_clean=FixWhat
End Function

Function fn_dirty(FixWhat)
    if (isnull(FixWhat) or FixWhat="") then
        FixWhat=""
    else
        FixWhat=trim(FixWhat)

        FixWhat=replace(FixWhat,"<ahref","<a href",1,-1,1)

        FixWhat=replace(FixWhat,"<spanclass","<span class",1,-1,1)

        'FixWhat=replace(FixWhat,"&#241;","ñ",1,-1,1)

        FixWhat=replace(FixWhat,"  "," ",1,-1,1)
        FixWhat=replace(FixWhat,"&#146;","'",1,-1,1)
        FixWhat=replace(FixWhat,"&apos;","'",1,-1,1)
        FixWhat=replace(FixWhat,"%27","'",1,-1,1)
        FixWhat=replace(FixWhat,"&#39;","'",1,-1,1)
        FixWhat=replace(FixWhat,"&#146;","'",1,-1,1)
        FixWhat=replace(FixWhat,"&#47;","/",1,-1,1)
        FixWhat=replace(FixWhat,"''''","'''",1,-1,1)


        FixWhat=replace(FixWhat,"&#34;",chr(34),1,-1,1)
        FixWhat=replace(FixWhat,"%22",chr(34),1,-1,1)

        FixWhat=replace(FixWhat,chr(13) & chr(10),"",1,-1,1)
        'FixWhat=replace(FixWhat,"&#10;" & "&#10;","",1,-1,1)
        'FixWhat=replace(FixWhat,vbCrLf & vbCrLf,vbCrLf,1,-1,1)
        'FixWhat=replace(FixWhat,chr(34)&chr(34)&chr(34),chr(34),1,-1,1)
        'FixWhat=replace(FixWhat,chr(10),"[chr10 was here]",1,-1,1)
        'FixWhat=replace(FixWhat,chr(12),"[chr12 was here]",1,-1,1)
        'FixWhat=replace(FixWhat,chr(13),"[chr13 was here]",1,-1,1)


        'FixWhat=replace(FixWhat,chr(34) & chr(34),chr(34),1,-1,1)

        'FixWhat=replace(FixWhat,"alt='" & chr(32) & "'","alt=Put-image-title-here-instead-of-OceanMedia.net" & chr(32),1,-1,1)
        'FixWhat=replace(FixWhat,"alt=" & chr(34) & chr(32) & chr(34),"title=Put-image-title-here-instead-of-OceanMedia.net" & chr(32),1,-1,1)
        'FixWhat=replace(FixWhat,"alt='" & chr(32),"alt=Put-image-title-here-instead-of-OceanMedia.net" & chr(32),1,-1,1)
        'FixWhat=replace(FixWhat,"alt='" & chr(32),"alt=Put-image-title-here-instead-of-OceanMedia.net" & chr(32),1,-1,1)
        'FixWhat=replace(FixWhat,"alt=" & chr(34) & chr(32),"alt=Put-image-title-here-instead-of-OceanMedia.net" & chr(32),1,-1,1)

        FixWhat=replace(FixWhat,"title=","alt=",1,-1,1)
        'FixWhat=replace(FixWhat,"title='" & chr(32) & "'","title=Put-image-title-here-instead-of-OceanMedia.net" & chr(32),1,-1,1)
        'FixWhat=replace(FixWhat,"title=" & chr(34) & chr(32) & chr(34),"title=Put-image-title-here-instead-of-OceanMedia.net" & chr(32),1,-1,1)
        'FixWhat=replace(FixWhat,"title='" & chr(32),"title=Put-image-title-here-instead-of-OceanMedia.net" & chr(32),1,-1,1)
        'FixWhat=replace(FixWhat,"title='" & chr(32),"title=Put-image-title-here-instead-of-OceanMedia.net" & chr(32),1,-1,1)
        'FixWhat=replace(FixWhat,"title=" & chr(34) & chr(32),"title=Put-image-title-here-instead-of-OceanMedia.net" & chr(32),1,-1,1)

        FixWhat=replace(FixWhat,"src=" & chr(34) & chr(32),"",1,-1,1)
        FixWhat=replace(FixWhat,"src=" & chr(34) & "/images","src=" & chr(34) & "images",1,-1,1)

        FixWhat=replace(FixWhat,"background=" & chr(34) & chr(32),"background=" & chr(34) & chr(34) & chr(32),1,-1,1)



        FixWhat=replace(FixWhat,"x=" & chr(34) & chr(32)," ",1,-1,1)

        FixWhat=replace(FixWhat,"&amp;","&",1,-1,1)
        FixWhat=replace(FixWhat,"amp;","&",1,-1,1)
        FixWhat=replace(FixWhat,"&amp;","&",1,-1,1)
        FixWhat=replace(FixWhat,"&&","&",1,-1,1)
        FixWhat=replace(FixWhat,"&&","&",1,-1,1)
        FixWhat=replace(FixWhat,"&lt;","<",1,-1,1)      
        FixWhat=replace(FixWhat,"&gt;",">",1,-1,1)

        'FixWhat=replace(FixWhat,"&amp;","&",1,-1,1)
        FixWhat=replace(FixWhat,"//<![CDATA[","",1,-1,1)
        FixWhat=replace(FixWhat,"//]]","",1,-1,1)

        FixWhat=replace(FixWhat,"<TABLE","<table",1,-1,1)       
        FixWhat=replace(FixWhat,"<TBODY>","<tbody>",1,-1,1)
        FixWhat=replace(FixWhat,"<TR","<tr",1,-1,1)             
        FixWhat=replace(FixWhat,"<TD","<td",1,-1,1) 
        FixWhat=replace(FixWhat,"</TR>","</tr>",1,-1,1)             
        FixWhat=replace(FixWhat,"</TD>","</td>",1,-1,1) 

        FixWhat=replace(FixWhat,"<html><br>","<html>",1,-1,1)
        FixWhat=replace(FixWhat,"<head><br>","<head>",1,-1,1)       
        FixWhat=replace(FixWhat,"<body><br>","<body>",1,-1,1)
        FixWhat=replace(FixWhat,"<br><tbody>","<tbody>",1,-1,1)
        FixWhat=replace(FixWhat,"<tbody><br>","<tbody>",1,-1,1)
        FixWhat=replace(FixWhat,"<br><tr>","<tr>",1,-1,1)
        FixWhat=replace(FixWhat,"<tr><br>","<tr>",1,-1,1)
        FixWhat=replace(FixWhat,"<br><td","<td",1,-1,1)
        FixWhat=replace(FixWhat,"<br></html>","</html>",1,-1,1)

        'FixWhat=replace(FixWhat,"#34;#34;#34;","&#34;&#34;",1,-1,1)
        'FixWhat=replace(FixWhat,"#39;#39;#39;","&#39;&#39;",1,-1,1)

        'FixWhat=replace(FixWhat,"&#34;&#34;&#34;","&#34;&#34;",1,-1,1)
        'FixWhat=replace(FixWhat,"&#39;&#39;&#39;","&#39;&#39;",1,-1,1)

    end if
    fn_dirty=FixWhat
End Function