如何在线加入文章？

[unser]

我是一位ASP初学者，我做了一个站点，是用ASP+ACCESS做的。在加入文章时，内容更得杂乱而没有段落，如果使用在线编辑器，像论坛那样，可以文件变色、加入链接、显示图片（不必图片上传，只需图片的链接之后显示该图片）。

[fason]

出库时用这个函数
<%
Function coder(str)
Dim result,L,i
If IsNull(str) Then : coder="" : Exit Function : End If
L=Len(str) : result=""
For i = 1 to L
select case mid(str,i,1)
case "<" : result=result+"<"
case ">" : result=result+">"
case chr(34) : result=result+"""
case "&" : result=result+"&"
case chr(13) : result=result+"<br/>"
case chr(9) : result=result+"    "
case chr(32) : result=result+" "
case else : result=result+mid(str,i,1)
end select
Next
coder=result
End Function %>

在线编辑器
http://fason.nease.net/code/js/other/htmleditor.htm

[tigerwen01]

1、利用Replace()函数
<%
dim Txt
Txt=Trim(Request.Form("text1"))
Txt= Replace(Txt,vbcrlf,"<Br>" & vbcrlf)
%>
这样上传后，文章的段落就有条理了。
2、文件颜色
<font color="red"><%=response.write Rs("contents")%></font>
3、文字加入连接
<a href="url"><%=response.write Rs("contents")%></a>

[fbj007]

http://www.csdn.net/cnshare/soft/5/5819.shtm
在线编辑器

参考csdn文档中心的做法

[leo1999]

楼上的答的已经满足你的要求咯。