谢谢各位和“消声匿迹”，问题解决了，除了不用转换函数外，我把保存页中的rs("content")=server.htmlencode(request.form("content"))修改成rs("content")=trim(request.form("content")),这样问题就解决了。我现在又遇到一个问题，真的很烦，在首页中打开标题内容，每次只能打开一个标题内容页面，不能同时打开多个标题的内容页面，在首页中我用 call Showxinweng(5,22) 调用一个过程，这个过程页代码为：
<%
'=================================================
'过程名：Showxinweng
'作 用：显示新闻标题，要求最多显示5条新闻标题，且标题显示的字数给于限制，用CALL Showxinweng(5,18)调用此过程
'参 数：ArticleNum ----最多显示多少篇新闻
' TitleLen ----标题最多字符数，一个汉字=两个英文字符
'=================================================
sub Showxinweng(ArticleNum,TitleLen)
dim sqlxinweng,rsxinweng
if ArticleNum>0 and ArticleNum<=100 then
sqlxinweng="select top " & ArticleNum
else
sqlxinweng="select top 5 "
end if
sqlxinweng=sqlxinweng & " * from ztc order by id desc"
Set rsxinweng= Server.CreateObject("ADODB.Recordset")
rsxinweng.open sqlxinweng,db,1,1
if TitleLen<0 or TitleLen>255 then TitleLen=40
if rsxinweng.bof and rsxinweng.eof then
response.write "<li>暂时没有新闻</li>"
else
do while not rsxinweng.eof
response.Write "<img src='images/page.gif ' " & "<li><a href=Look.asp?ID=" & rsxinweng("id") & " target='_blan'> "& gotTopic(rsxinweng("title"),TitleLen) & " </a></li>" & rsxinweng("time")& "<br>"
rsxinweng.movenext
loop
end if
rsxinweng.close
set rsxinweng=nothing
end sub
%>
不能同时打开多个标题内容页面，郁闷，请各位高手指点一下。
