UC知道请教ASP网页 文本分段换行 的代码问题
来源：百度知道 编辑：UC知道 时间：2024/06/06 23:42:19
我的一个信息发布网站，在后天编辑的时候，文本文字都是可以分段 换行的。可是提交以后，在前台的显示时候，又都是一大堆的堆在一起的，前台信息显示代码为：
<!--#include file="conn.asp"-->
<%
dim record_id
record_id = request.QueryString("id")
dim oJZ_rs1,sJZ_sql1
Set oJZ_rs1=Server.CreateObject("ADODB.Recordset")
sJZ_sql1="select * from jianzhi_site where id="&record_id&" order by id DESC"
oJZ_rs1.Open sJZ_sql1,conn,1,1
%>
<HTML>
<HEAD>
</tr>
<tr bgcolor="#FFFFFF">
<td height="128"> <div align="center">岗位描述</div></td>
<td colspan="10"><div align="left"> <%=oJZ_rs1("job_text")%</div></td>
</tr>
<tr bgcolor="#FFFFFF">
文本的内容 就是 <%=oJZ_rs1("job_text")% 这里的， 但是前台一显示， 文本文字 就是整堆在一起的， 而不能自动换行 或分段的，
求教高手
<!--#include file="conn.asp"-->
<%
dim record_id
record_id = request.QueryString("id")
dim oJZ_rs1,sJZ_sql1
Set oJZ_rs1=Server.CreateObject("ADODB.Recordset")
sJZ_sql1="select * from jianzhi_site where id="&record_id&" order by id DESC"
oJZ_rs1.Open sJZ_sql1,conn,1,1
%>
<HTML>
<HEAD>
</tr>
<tr bgcolor="#FFFFFF">
<td height="128"> <div align="center">岗位描述</div></td>
<td colspan="10"><div align="left"> <%=oJZ_rs1("job_text")%</div></td>
</tr>
<tr bgcolor="#FFFFFF">
文本的内容 就是 <%=oJZ_rs1("job_text")% 这里的， 但是前台一显示， 文本文字 就是整堆在一起的， 而不能自动换行 或分段的，
求教高手
不妨用如下方法,试试看.
<%
function unhtml(fString)
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR><BR>")
unhtml=fString
end function %>
<%=HTMLEncode(OJZ_rs1("job_text"))%> '调用自定义函数
原因应是因为你后台发布信息的表单直接用了<textarea>;
解决办法是你可以在网上搜索eWebEditor,这是套网页编辑器插件，下载后都有使用说明。
入库时把 Chr(13)&Chr(10) 代替成 <br>
编辑时把<br>代替成Chr(13)&Chr(10)
MyString = Replace(MyString, Chr(13)&Chr(10), "<br>")
MyString = Replace(MyString, "<br>", Chr(13)&Chr(10))
有必要把段着开头的空格也代替一下
Chr(32)&Chr(32)代为
我看不是代码的问题!你是不是把WORD中的文章直接复制进去了?
word中是带有标记的,这样就会使你的文章显示的很乱.