文本框提交内容换行的问题 - ASP

冰封シ绝恋

电梯直达

1^#

发表于 2010-1-7 05:57:19 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

请问大家,怎么让提交的内容在文本框中实现换行,最好是不用编辑器.

我在百度里面找过,第一中解答是:
<%
function CHTMLEncode(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10), " ")
CHTMLEncode= fString
end function
%>
调用时候使用
<%=CHTMLEncode(rs("字段内容"))%>

第二种是:
StrVar=Replace(StrVar,chr(13)," ")
StrVar=Replace(StrVar,chr(10)," ")

两种都不是蛮好,例如提交的资料为:

jfkdsjfk
fsdjfkl

fjdsklfjlk

fjsdklfjksdlj
则它在文本框中就变成了:
jfkdsjfk
fsdjfkl
fjdsklfjlk
fjsdklfjksdlj
而且如果再次提交文本框（修改页面用到的），它又变成在一行，请问怎么能解决我这问题？

收藏0

使用道具举报

ミつン戀ン

2^#

发表于 2010-1-7 05:57:22 | 只看该作者

网上找的另一中方法：

<%
Function HTML2Txt(HTMLString)
If IsNull(HTMLString) Then Exit Function
HTMLString = Replace(HTMLString, "<", "<")
HTMLString = Replace(HTMLString, ">", ">")
HTMLString = Replace(HTMLString, "'", Chr(39)) '单引号
HTMLString = Replace(HTMLString, """, Chr(34)) '双引号
HTMLString = Replace(HTMLString, " ", Chr(32)) '空格
'HTMLString = Replace(HTMLString, "", Chr(13)) '换行
HTMLString = Replace(HTMLString, " ", Chr(10)) '回车

If Err.Number Then
Err.Clear()
HTML2Txt = HTMLString
Exit Function
End If
HTML2Txt = HTMLString
End Function
%>

运行是提示：

Microsoft VBScript 编译器错误错误 '800a03ea'
语法错误
/new20070415/chinacoat/detail.asp，行 357
Function HTML2Txt(HTMLString)
^
仔细看了看，好象也没什么错误

回复支持反对

使用道具举报

瘋子愛老婆

3^#

发表于 2010-1-7 05:57:24 | 只看该作者

<%
Function coder(str)
Dim result,L,i
If IsNull(str) Then : coder="" : Exit Function : End If
L=Len(str) : result=""
For i = 1 to L
select case mid(str,i,1)
case "<" : result=result+"<"
case ">" : result=result+">"
case chr(34) : result=result+"""
case "&" : result=result+"&"
case chr(13) : result=result+" "
case chr(9) : result=result+"    "
case chr(32) : result=result+" "
case else : result=result+mid(str,i,1)
end select
Next
coder=result
End Function
%>

这个我用这还可以
但是 "'" 还是需要自己转换下