Asp classic 如何'；文本区域'；文本中的输入控件插入/r/n

我在数据库中有没有'/r/n'的文本。但当分配此文本i文本区域输入控件时，它会在文本区域中生成下一行（喙）

请让我知道文本中的“return”内容，并在文本中添加“/r/n”

---

第一次'/r/n'不在文本中，在放入文本区域之前，但在放入'text area'n save之后，它用'/r/n'保存文本。

当我将文本/字符串写入数据库时，我通过clean（）函数运行它。当我将文本/字符串从数据库中拉回来显示时，我通过dirty（）运行它们。我将这两个文件保存为include文件，分别为“I\u fn\u clean.asp”和“I\u fun\u dirty.asp”。这是：

function 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,"&","&",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,"&&","&",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,"’",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)

        '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)


        FixWhat=replace(FixWhat,vbCrLf & vbCrLf,vbCrLf,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
    clean=FixWhat
End Function

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

        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,"&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)

    end if
    dirty=FixWhat
End Function

功能清理（修复内容）
如果（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，“&；”，“&；”，1，-1,1）
FixWhat=替换（FixWhat，“amp；”，“&”，1，-1,1）
FixWhat=替换（FixWhat，“&；”，“&；”，1，-1,1）
FixWhat=替换（FixWhat，&&&，&，1，-1,1）
FixWhat=替换（FixWhat，&&&，&，1，-1,1）
FixWhat=替换（FixWhat，“，”，1，-1,1）
FixWhat=replace（FixWhat，“/”，“/；”，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，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）
“连字符
'FixWhat=replace（FixWhat，chr（150），“-”，1，-1,1）
'FixWhat=replace（FixWhat，chr（151），“--”，1，-1,1）
“点点滴滴
‘FixWhat=替换（FixWhat，chr（133），“…”，1，-1,1）
FixWhat=替换（FixWhat，vbCrLf&vbCrLf，vbCrLf，1，-1,1）
FixWhat=替换（FixWhat，“[引用]”，“"；”，1，-1,1）
FixWhat=replace（FixWhat，quot，"；，1，-1,1）
FixWhat=replace（FixWhat，“，”和#39；”，1，-1,1）
如果结束
清洁=修复什么
端函数
函数脏（FixWhat）
如果（isnull（FixWhat）或FixWhat=“”），则
FixWhat=“”
其他的
FixWhat=修剪（FixWhat）
FixWhat=替换（FixWhat，“，”，1，-1,1）
FixWhat=replace（FixWhat，’；，“，”，1，-1,1）
FixWhat=replace（FixWhat，“&apos；”，“'”，1，-1,1）
FixWhat=替换（FixWhat，“%27”，“1，-1,1”）
FixWhat=replace（FixWhat，'；，“，”，1，-1,1）
FixWhat=replace（FixWhat，’；，“，”，1，-1,1）
FixWhat=替换（FixWhat，/；，“/”，1，-1,1）
FixWhat=替换（FixWhat，“''''”，“''''”，1，-1,1）
FixWhat=replace（FixWhat，"；”，chr（34），1，-1,1）
FixWhat=替换（FixWhat，“%22”，chr（34），1，-1,1）
FixWhat=替换（FixWhat，chr（13）和chr（10），“”，1，-1,1）
FixWhat=替换（FixWhat，“&；”，“&；”，1，-1,1）
FixWhat=替换（FixWhat，“amp；”，“&”，1，-1,1）
FixWhat=替换（FixWhat，“&；”，“&；”，1，-1,1）
FixWhat=替换（FixWhat，&&&，&，1，-1,1）
FixWhat=替换（FixWhat，&&&，&，1，-1,1）
FixWhat=替换（FixWhat，“，”，1，-1,1）
'FixWhat=replace（FixWhat，“&；”，“&；”，1，-1,1）
如果结束
肮脏=修理什么
端函数

Replace（text，vbCrLf，“”）

应删除数据库中看不到的任何回车换行组合。如果愿意，还可以独立使用

vbCr

和

vbLf

。