- 2013-12-11消息称,诺基亚Normandy和Asha一样,主打低端市场,将...
- 2013-12-10雷军微博披露小米“魔方”项目
- 2013-12-1012306购票首度接入支付宝 支付时间可以快至5秒
- 2013-12-10中国移动官网显示周四接受iPhone 5s预订
- 2013-12-0912306 App研发故事:变成开放系统 社会人员助力
- 2013-10-15天猫“双十一”今年打通线上线下:实体店参与。
- 2013-10-15根据专利显示iPhone将有防摔功能。
- 2013-10-12百度或可全面收购人人网,传闻四起!
- 2013-10-07生物密码时代何时到来?尚存隐私泄露隐忧
- 2013-09-29国务院近日印发了上海自由贸易试验区总体方案,自贸区...
浅谈asp开发中textarea常见问题
发表于:2013-09-09|
次阅读|
作者:藕码网
摘要:使用SQL SERVER的[导入]功能,便可将access数据转换,但要注意原来的'自增字段'需要修改,将相应字段标识修改为'是'(原来的备注字段也会自动转化为ntext).
使用SQL SERVER的[导入]功能,便可将access数据转换,但要注意原来的'自增字段'需要修改,将相应字段标识修改为'是'(原来的备注字段也会自动转化为ntext).
由于新闻的添加,修改都是通过使用textarea,首先为了能保留输入内容的格式,在处理添加的页面加入
<%
Function SqlStr( data )
SqlStr = "'" & Replace( data, "'", "''" ) & "'"
End Function
Function coder(str)
Dim i
If IsNull(str) Then : coder="" : Exit Function : End If
For i = 1 to Len(str)
Select case mid(str,i,1)
Case "<" : coder = coder &"<"
Case ">" : coder = coder &">"
Case "&" : coder = coder &"&"
Case chr(9) : coder = coder &" "
Case VBCrLf : coder = coder &"<br>"
Case chr(32) : coder = coder &" "
Case chr(34) : coder = coder &"""
Case chr(39) : coder = coder &"'"
Case Else : coder = coder & mid(str,i,1)
End Select
Next
End Function
content=request("content")'正文
content=replace(content," "," ") '此处处理是因为修改页面所加入空格会被转化为 ,在此先过滤
content=coder(content)
%>
在修改页面
<%
rs.Open sql, conn, adOpenStatic
content=rs("正文") '此处一定要写,倘若直接在textarea处写
'<textarea rows="7" name="t" cols="47" ><%=rs("正文") %></textarea >“则无法显示(我就被此处
'困了好久,还以为长字段不能使用ntext而只能使用text或varchar呢)
%>
在显示页面
<%
rs.Open sql, conn, adOpenStatic
content=rs("content") '一定先放到变量中,否则可能无法显示
content=replace(content,vbcrlf,"<br>"+vbcrlf) '经过此处处理,可显示出正确的段落格式
%>
由于新闻的添加,修改都是通过使用textarea,首先为了能保留输入内容的格式,在处理添加的页面加入
<%
Function SqlStr( data )
SqlStr = "'" & Replace( data, "'", "''" ) & "'"
End Function
Function coder(str)
Dim i
If IsNull(str) Then : coder="" : Exit Function : End If
For i = 1 to Len(str)
Select case mid(str,i,1)
Case "<" : coder = coder &"<"
Case ">" : coder = coder &">"
Case "&" : coder = coder &"&"
Case chr(9) : coder = coder &" "
Case VBCrLf : coder = coder &"<br>"
Case chr(32) : coder = coder &" "
Case chr(34) : coder = coder &"""
Case chr(39) : coder = coder &"'"
Case Else : coder = coder & mid(str,i,1)
End Select
Next
End Function
content=request("content")'正文
content=replace(content," "," ") '此处处理是因为修改页面所加入空格会被转化为 ,在此先过滤
content=coder(content)
%>
在修改页面
<%
rs.Open sql, conn, adOpenStatic
content=rs("正文") '此处一定要写,倘若直接在textarea处写
'<textarea rows="7" name="t" cols="47" ><%=rs("正文") %></textarea >“则无法显示(我就被此处
'困了好久,还以为长字段不能使用ntext而只能使用text或varchar呢)
%>
在显示页面
<%
rs.Open sql, conn, adOpenStatic
content=rs("content") '一定先放到变量中,否则可能无法显示
content=replace(content,vbcrlf,"<br>"+vbcrlf) '经过此处处理,可显示出正确的段落格式
%>
注:本站部分信息可能源于互联网分享,如有侵权,请告知,我们将及时删除!
- 用户评论
- 相关文章
-
最新评论
推荐文章
-
1
bash_profile和.bashr...
详细介绍bash_profile和.bashrc之间的区别。... -
2
awstats的安装简易指南...
介绍awstats的安装使用,使其能快速部署。 -
3
分布式监控系统gangli...
详细介绍ganglia配置过程 -
4
使用IIS+Resin来配置J...
本文介绍使用IIS+Resin来配置JSP的运行环境... -
5
MYSQL的主要参数设置(...
MYSQL的主要参数设置(优化) -
6
Linux服务器安全小技巧...
Linux 服务器安全小技巧
热门文章榜