标准工时制加班调休:asp提交表单的 空格和换行问题

来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 23:53:16
我现在添加文字的时候总是要使用" ","<br>"

怎么解决阿？？
" "," " 就是这样的？？

function HTMLEncode(fString)
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString,"'", "''")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode = fString
end function

'这个函数包括过滤单引号，替换空格、换行、替换"<>"等等使用这个函数,只需要提数据的时候上HTMLEncode，如
title=HTMLEncode(request("title"))

<%
dim msg
msg=request.Form("textarea")
msg=replace(msg,vbcrlf,"<br>")
msg=replace(msg," "," ")
response.write msg
%>

这样就OK了

我也想知道答案，高手帮帮忙吧。

<%
Function Deal(exp1)
dim exp2
exp2=Replace(exp2,Chr(13),"<br>")
exp2=Replace(exp2,Chr(10),"</p><p>")
exp2=Replace(exp2,Chr(32)," ")'还有空格哦
Deal=exp2
End Function
%>
在提交的时候直接用textarea＝Deal(request.Form("textarea"))就可以了

asp提交表单的 空格和换行问题 ASP表单提交的问题 asp表单提交问题 asp 提交表单问题 ASP表单提交的内容处理问题。 关于asp里的表单提交问题 关于asp提交表单的一个问题 关于ASP的Form表单提交问题 asp提交表单小问题 asp 表单提交检验问题