很菜的问题，关于在text框里输入……

[taoguang2]

我在text框里输入一些文本，然后回车再输入一行，然后把这些文本写到数据库里，怎么写进数据库我会，可我想把在文本框里的回车也写到数据库里，比如“按时法<br>士大夫”
怎么办呢？？？

[newslxw]

直接用textarea元素试试，不用写函数,只需把wrap属性改为hard即可

[csdntoll]

function HTMLEncode(fString)
if not isnull(fString) then

fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")

HTMLEncode = fString
end if
end function

[csdntoll]

写数据库时，对TEXT的值用以上函数处理

[jackmtlee]

我也不会

[taoguang2]

fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
上面的两个都是取代空格，为什么一个用chr(32)，一个用chr（9）呢

[心云意水]

一个是空格，一个是tab

[taoguang2]

到底怎么用呢？？？还是不明白，真笨啊

[layewong]

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+"<br/>"
case chr(9) : result=result+"    "
case chr(32) : result=result+" "
case chr(7): result=result+""
case else : result=result+mid(str,i,1)
end select
Next
coder=result
End Function

[taoguang2]

function写在哪里呢？？？？？？？？？？？？？？？

[bws]

直接用textarea元素试试，不用写函数。

[zhuyngjie]

写在script的里面