asp开发设计中textarea普遍难题

摘要: 您如今的部位是:PHP\ASP\JSP\NET 应用SQL SERVER的[导进]ess数据信息变换,但是留意原先的'自增字段名'必须改动,将相对字段名标志改动为'是'(原先的备注名称字段名也会全自动转换为ntext...

 您如今的部位是:PHP\ASP\JSP\NET

  应用SQL SERVER的[导进]ess数据信息变换,但是留意原先的'自增字段名'必须改动,将相对字段名标志改动为'是'(原先的备注名称字段名也会全自动转换为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)  '历经这里解决,可显示信息出恰当的文章段落文件格式
%



联系我们

全国服务热线:4000-399-000 公司邮箱:343111187@qq.com

  工作日 9:00-18:00

关注我们

官网公众号

官网公众号

Copyright?2020 广州凡科互联网科技股份有限公司 版权所有 粤ICP备10235580号 客服热线 18720358503