[在线等待] ASP如何存储带格式的文字

[leojeff]

我现在要存储一段带格式的文字
比如带空格、链接、换行等格式的文字


我在SQL server中如何存储、读取呢？？

感谢~~~~~~在线等待

[rebacca1620]

好像在线编辑器里用过，获得一个iframe的xxx.innerHTML()（xxx是iframe的ID）

[笨笨兔兔兔兔兔]

google search ubb

[zhangjingcheng]

是啊
下ubb
输出的时候可以用response.writeserver.htmlencod("")
不知道是不是？
顶

[youzi520]

直接用在线编辑器

[leojeff]

换行怎么处理呢？
表格什么的怎么处理呢？

[grakey]

找一个更能强一点的编辑器一切都能搞定！

[leojeff]

可能上边我没有说清楚问题

问题是这样的：
我要做一个新闻发布系统
新闻的内容是带有格式的，比如换行、缩进
我存到数据库中，再读出来的时候就没有格式了。

请问怎么解决。。。。着急啊，，，谢谢大家了~

[byyt]

建议楼主去下个 ewebeditor 研究下。这个在线编辑器还不错。能满足楼主的需求。

[hebhd]

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function HTMLEncode(fString)
fString=Replace(fString,";",";")
fString=Replace(fString,"<","<")
fString=Replace(fString,">",">")
fString=Replace(fString,"\","\")
fString=Replace(fString,"--","--")
fString=Replace(fString,CHR(9)," ")
fString=Replace(fString,CHR(10),"<br>")
fString=Replace(fString,CHR(13),"")
fString=Replace(fString,CHR(22),"")
fString=Replace(fString,CHR(32)," ")
fString=Replace(fString,CHR(34),""")'双引号
fString=Replace(fString,CHR(39),"'")'单引号
fString=ReplaceText(fString,"&#([0-9]*);","&#$1;") '解决韩文字符问题
if IsSqlDataBase=0 then '过滤片假名(日文字符)[\u30A0-\u30FF] by yuzi首创
fString=escape(fString)
fString=ReplaceText(fString,"%u30([A-F][0-F])","0$1;")
fString=unescape(fString)
end if
HTMLEncode=fString
end function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function ContentEncode(fString)
fString=Replace(fString,vbCrlf, "")
fString=Replace(fString,"\","\")
fString=Replace(fString,"'","'")
fString=Replace(fString,"<A href=","<A target=_blank href=") '点链接打开新窗口
if SiteSettings("BannedHtmlLabel")<>"" then fString=ReplaceText(fString,"<(\/|)("&SiteSettings("BannedHtmlLabel")&")", "<$1$2")
if SiteSettings("BannedHtmlEvent")<>"" then fString=ReplaceText(fString,"<(.[^>]*)("&SiteSettings("BannedHtmlEvent")&")", "<$1$2")
if SiteSettings("BannedText")<>"" then
filtrate=split(SiteSettings("BannedText"),"|")
for i = 0 to ubound(filtrate)
fString=ReplaceText(fString,""&filtrate(i)&"",string(len(filtrate(i)),"*"))
next
end if
contentEncode=fString
end function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

[mumu1980]

进http://www.ewebsoft.com/网站，你下一个在线文本编辑器，就可以解决你的问题了

[荣之梦]

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
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

[iasky]

直接用WYSIWYG的编辑器