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

2006-05-16 03:13:19 141 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

基于LORA的双机通信的智能农业系统通过LoRa模块与主机进行通信，监测环境中的温度、湿度、土壤湿度和光照强度等参数，并根据预设的自动控制逻辑或者手动指令控制继电器开关，从而调节风扇、加热器、水泵、喷雾器和灯光等设备，为植物提供适宜的生长环境。使用的Lora是大夏龙雀的感觉这个是我使用过的Lora里面最好用的，因为不用设置频道就可以直接透明传输，使用起来得心应手。就像两个单片机直接串口通信一样，缺点是异步串行，不能同时进行接收和发送。继电器灯亮模拟打开对应的风扇、水泵、灯、喷雾、加热。1.使用温度传感器测当前环境的温湿度。阅读详情

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

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

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

...全文

QTableView实现表格加载百万条数据本文介绍用QTableView实现加载100万条数据显示到表格。 1.创建工程用Qt Creator创建Qt Widgets Application项目，基类选择QWidget，创建好了，如图： 2.添加QTableView控件在widget.ui中添加QTableView控件，和QPushButton，采用栅格布局，如图： 3.添加函数头文件 QT_BEGIN_NAMESPACE namespace Ui { class Widget; } QT_END_NAMESPACE class Wid 阅读详情

leojeff

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

iasky 2006-05-18

打赏
举报

直接用WYSIWYG的编辑器

荣之梦 2006-05-18

打赏
举报

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

mumu1980 2006-05-18

打赏
举报

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

hebhd 2006-05-18

打赏
举报

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

byyt 2006-05-18

打赏
举报

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

leojeff 2006-05-18

打赏
举报

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

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

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

grakey 2006-05-18

打赏
举报

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

leojeff 2006-05-18

打赏
举报

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

youzi520 2006-05-16

打赏
举报

直接用在线编辑器

zhangjingcheng 2006-05-16

打赏
举报

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

笨笨兔兔兔兔兔 2006-05-16

打赏
举报

google search ubb

rebacca1620 2006-05-16

打赏
举报

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

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

相关推荐