新微赢技术网

标题: 文本框提交内容换行的问题 [打印本页]

作者: 冰封シ绝恋 时间: 2010-1-7 05:57
标题: 文本框提交内容换行的问题
请问大家,怎么让提交的内容在文本框中实现换行,最好是不用编辑器.

我在百度里面找过,第一中解答是:
<%
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
而且如果再次提交文本框（修改页面用到的），它又变成在一行，请问怎么能解决我这问题？

作者: ミつン戀ン 时间: 2010-1-7 05:57
网上找的另一中方法：

<%
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)
^
仔细看了看，好象也没什么错误

作者: 瘋子愛老婆 时间: 2010-1-7 05:57
<%
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
%>

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

作者: べ.べ凡士林 时间: 2010-1-7 05:57
谁有没简单一点的编辑器，越简单越好的，我不需要插入图片，超连接，图片上传之类的，我下载了一个ewebeditor的，里面好象不能简化．

作者: ︶ㄣlоve_ 时间: 2010-1-7 05:57
在线等待大家的回复，谢谢！

作者: 顺其自然 时间: 2010-1-7 05:57
难道就没人会吗？
继续等待................................................

作者: newman 时间: 2010-1-27 11:05
【加油！金顺】在奥斯卡上一连拿了11个奖项的好帖

作者: 斌仔 时间: 2010-2-14 22:05
看完了这么强的文章，我想说点什么，但是又不知道说什么好，想来想去只想

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)