高考问答硅玻钛金软管:关于ASP的问题
来源：百度文库 编辑：高考问答 时间：2024/05/09 04:57:04
在从数据库读出时怎么能自动换行？我知道用br，应该怎么加？
假设 str1 为从字段中获取的值,
用 str1=replace(replace(str1,chr(13),"<br>"),chr(10),"<br>")
然后输出到网页就可以了
response.write(str1)
最好是在表单提交到数据库前进行替换.然后再保存到数据库中,这样输出时就不用再转换了.
<%
Text="asdfjklqeruioqweuropiuiopqwer" '你要换行的字符串
Num=10 '你要多少字自动换行
Tmp="" '临时变量
do while len(Text)<>0
Tmp=Tmp&left(Text,Num)&"<br>" '每隔num个字就加<br>，并存到临时变量
Text=right(Text,len(Text)-Num) '从原变量里扣除num个字
loop
Text=Tmp&Text '如果最后还剩余几个字，加到临时变量后
response.Write(Text) '完成输出
%>
replaceall('\r\n','<br>')
或着 <pre> 数据库读出的内容 </pre>
在每句话结束加<br>就KO了！