一个看似简单问题，我都解决不了，请指教一二：

[ksy]

我想将网上一些有用资料（文本）保存到数据库中，于是，做了一个表单，将资料粘贴到文本框中，用ASP写入数据库。再从数据库中读出内容并写成HTML文件。但由于空格被忽略，我必须在资料粘贴到文本框时在每段后加上＜BR＞，不然文章就成了豆腐块。

[ChinaOk]

用str=replace(str," "," ")
str=replace(str,chr(13),"<br>")
就可以了。

[ChinaOk]

<% function htmlencode2(str)
dim result
dim l
if isNULL(str) then
htmlencode2=""
exit function
end if
l=len(str)
result=""
dim i
for i = 1 to l '对返回的内容进行判定,并对其含有<,>,chr(13),chr(34),&,chr(32),chr(9)进行相应的转化,如chr(13)变为<BR> 也就是回车的HTM代码
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
htmlencode2=result
end function
%>

[hchxxzx]

如果要保持完整的模样，可以这样：
function get_str(str)
get_str=replace(str,chr(13),"<br>")
get_str=replace(get_str,chr(10)," ")
end function
要用的时候调用一下这个函数，就可以完整的将段落及首行的空格替换出来。

[纪俊]

注意：
从数据库读出数据的时候要：
response.write "<pre>"&数据&"</pre>"
才能按照原来的格式输出。

[ksy]

我将hchxxzx(独自前行)函数改了一下:
function get_str(str)
get_str=replace(str,vbcrlf,"<br>")
get_str=replace(get_str,chr(10)," ")
end function
据小弟观查,提交表单时,除手动添加的空格其它空格被忽略.

[纪俊]

这样不行吗？

[希偌]

str=replace(str,"<","<")
str=replace(str,">",">")
str=replace(str,chr(10)&chr(13),"<br>")
str=replace(str,chr(32)," ")

[UserR]

但是，根据我的观察，有的写法是：……rs(content)=content5……
这样不经过检验直接写入数据库内，再读出来就没有格式不对的烦恼

[ksy]

问题解决,马上给分.

[ksy]

csdn好像不让我给分,给分就"该页无法显示"!!!