从输入中删除单引号

Question

我想删除单引号，但我不知道该怎么做。我在这里留下相关代码。

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>"

上面代码的结果是这样的

Original: reuniÃ³n INNOVAE IÃ'igo IÃ±ake
Modificado: reunión INNOVAE I'igo Iñake
-----------------------

Answer 1

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

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

应该可以正常工作。（并且使用 chr(39) 而不是 "'" 是等效的。

您尝试替换的字符可能实际上并不是撇号，而是其他一些外观相似的字符。也许您输出的字符集不支持字符串中的实际字符，并且它被替换为您最终看到的输出中最接近的最佳匹配项（即 U+0027 撇号）。不过，这些只是猜测，如果不进一步了解您的设置和您实际尝试做的事情，就很难确定。

从更大的角度来看，您似乎正试图以某种方式修复使用错误字符编码传输的先前数据。除非您试图修复过去以这种方式不可逆转地损坏的数据，否则您最好纠正该问题并确保您的数据在工作流程的所有点都使用正确的编码进行传输。确保 Response.CharSet 和 Response.CodePage 的设置方式符合您对尝试使用的任何文本编码的期望，并且您正确处理浏览器设置的编码中的表单输入。

Answer 2

我通过更改

页面的编码部分解决了这个问题

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

到

<%
Response.CodePage = 65001
Response.CharSet = "utf-8"
%>

并在 Notepad++ 上将其保存为 UTF-8

Answer 3

这是我为修复有趣的角色而创建的东西：

我使用 FN_CLEAN "CLEAN" 数据库 INSERT/UPDATE:

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

我用这个来“弄脏 SCREEN/INPUT 个盒子，等等：

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

从输入中删除单引号

Remove single quote from input

vbscript

asp-classic