从数据库读取数据到文本框出错

[yerks]

我先是从文本框输入数据，插入数据库，应该是带回车的。现在想从数据库中再读到文本框内出错，第一行死活不显示，直接读到网页中是正确的。

[jzh333]

代码贴出来看看

[yerks]

我用了
function changechr(str)
changechr=replace(str," "," ")
changechr=replace(changechr,Chr(13),"<br>")
end function
转换，还是不行，只能显示回车后面一行

[yerks]

好像直接输出的文本框不需要字符转换。可是还是不行。
插入数据库的时候：
summary=Request.Form("summary")
rs("内容摘要")=trim(summary)
读取的时候：
summary=rs("内容摘要")
<tr bgcolor="#FFFFFF">
<td width="25%" align="center">内容概要</td>
<td width="75%"><textarea name="summary" cols="40" rows="10" wrap="hard" value=<%=summary%>></textarea>
<font size="2">（最多200字）</font></td>
</tr>

[yerks]

视野研究” 四川省教育厅巴蜀文化中心项目<BR>“中国现代文学的巴蜀视野研究” 四川省教<BR>育厅四川思想家中心项目“郭沫若、巴金、<BR>李劼人文学思想比较研究” 四川大学文化遗<BR>产与文化互动创新基地项目 <BR>本书介绍了巴蜀与中国现代文学的发生;现代<BR>四川文学思想的成熟;重庆与中国现代文学的<BR>演化等。>
我读出来的是这个，我晕，第一行也没了
function changechr(str)
changechr=replace(str," "," ")
changechr=Replace(changechr,vbcrlf,"<BR>")
end function
我用了这个函数

[jhwcd]

你把代码发上来看看。
参考输出字符串处理：

function chtml(str)  '转换输出字符串
    dim result
    dim l
    
    if isNULL(str) then 
       chtml=""
       exit function
    end if
    l=len(str)
    result=""
	dim i
	for i = 1 to l
	    select case mid(str,i,1)
	           case "<"
	                result=result+"<"
	           case ">"
	                result=result+">"
              case chr(13)
	                result=result+"<br>"
	           case chr(34)
	                result=result+"""
	           case "&"
	                result=result+"&"
              case chr(32)	           
	                'result=result+" "
	                if i+1<=l and i-1>0 then
	                   if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9)  then	                      
	                      result=result+" "
	                   else
	                      result=result+" "
	                   end if
	                else
	                   result=result+" "	                    
	                end if
	           case chr(9)
	                result=result+"    "
	           case else
	                result=result+mid(str,i,1)
         end select
       next 
       chtml=result
   end function

[cuidenghong123]

<textarea name="summary" cols="40" rows="10" wrap="hard"><%=summary%></textarea>

[chjin]

显示回textarea,你再把本来替换的字符替换回来不就好了.

[ly8199]

[Quote=引用 7 楼 cuidenghong123 的回复:]
<textarea name="summary" cols="40" rows="10" wrap="hard"> <%=summary%> </textarea>
[/Quote]

支持