UC知道ASP文章自动换行问题
来源：百度知道 编辑：UC知道 时间：2024/05/24 03:01:49
我的的程序是一个音乐管理系统，以前写完歌词按回车，数据库中不记录<br>导致歌词不换行，后来我改了一下
<%
Function HTMLEncode(Str)
Str=Replace(Str,"<","<")
Str=Replace(Str,">",">")
Str=Replace(Str," "," ")
Str=Replace(Str,Chr(10),"<br>")
Str=Replace(Str,Chr(13)+Chr(10),"<p>")
HTMLEncode=Str
End Function
%>
在编辑框那是这样写的：
<textarea rows="6" name="Word" cols="60"><%=HTMLEncode(rs("dj_word"))%></textarea>
但是这样写问题又出来了，写完歌词按完回车点保存，第一次不写入数据库，
回头在编辑的时候才能看见歌词前面都加上了<br>，在从新点保存这样数据库中就正式写入了<br>，每编辑一次他就加一次<br>
不知道那位高手能帮忙写一下让他第一次添加歌词就自动加入<br>换行，下次编辑时就不加了？谢谢了！
一楼的朋友你的办法不行
2楼的按你的修改后无法保存，点保存没反映了
4楼的也不行
其实我觉得2楼的朋友办法应该能行，但是保存不了不知道是什么原因。
<%
Function HTMLEncode(Str)
Str=Replace(Str,"<","<")
Str=Replace(Str,">",">")
Str=Replace(Str," "," ")
Str=Replace(Str,Chr(10),"<br>")
Str=Replace(Str,Chr(13)+Chr(10),"<p>")
HTMLEncode=Str
End Function
%>
在编辑框那是这样写的：
<textarea rows="6" name="Word" cols="60"><%=HTMLEncode(rs("dj_word"))%></textarea>
但是这样写问题又出来了，写完歌词按完回车点保存，第一次不写入数据库，
回头在编辑的时候才能看见歌词前面都加上了<br>，在从新点保存这样数据库中就正式写入了<br>，每编辑一次他就加一次<br>
不知道那位高手能帮忙写一下让他第一次添加歌词就自动加入<br>换行，下次编辑时就不加了？谢谢了！
一楼的朋友你的办法不行
2楼的按你的修改后无法保存，点保存没反映了
4楼的也不行
其实我觉得2楼的朋友办法应该能行，但是保存不了不知道是什么原因。
编辑歌词的表单可以写成：
<form>
<textarea rows="6" name="Word" id="word" cols="60"><%=dj_word%></textarea>
<%dj_word=request.form("word")
dj_word=replace(dj_word,chr(13)&chr(10),"<br>")
dj_word=replace(dj_word,chr(32),"＆nbsp；")
'然后把dj_word存到数据库的相应字段就好了
%>
</form>
-----------
显示在表单中的可以这样写：
<form>
<%dj_word=rs("dj_word")
dj_word=replace(dj_word,"<br>",chr(13)&chr(10))
dj_word=replace(dj_word," ＆nbsp；",chr(32))
%>
<textarea rows="6" name="Word" cols="60"><%=dj_word%></textarea>
</form>
---------------
如果显示在html中，就直接写成：
<html>
<%dj_word=rs("dj_word")%>
<%=dj_word%>
</html>
--------------
<%dj_word=reque