怎样可以使发布新闻时编辑的格式,包括"换行" "空格"等,在查询新闻内容后也能看到(access数据库)

简单问题:  
  我在发布新闻时新闻内容分段,每段首都有缩进.然后新闻内容存入access数据库  
  可是,当我查询新闻内容时,从access数据库中读出的新闻内容却是一整段,很难看.  
  改怎麽办? 问题点数：40、回复次数：5Top

1 楼server_me（编程浪子）回复于 2004-12-02 09:54:36 得分 10

function   dvHTMLEncode(fString)  
  if   not   isnull(fString)   then  
          fString   =   replace(fString,   ">",   ">")  
          fString   =   replace(fString,   "<",   "&lt;")  
   
          fString   =   Replace(fString,   CHR(32),   "<I></I>&nbsp;")  
          fString   =   Replace(fString,   CHR(9),   "&nbsp;")  
          fString   =   Replace(fString,   CHR(34),   "&quot;")  
          fString   =   Replace(fString,   CHR(39),   "&#39;")  
          fString   =   Replace(fString,   CHR(13),   "")  
          fString   =   Replace(fString,   CHR(10)   &   CHR(10),   "</P><P>   ")  
          fString   =   Replace(fString,   CHR(10),   "<BR>   ")  
   
          fString=ChkBadWords(fString)  
          dvHTMLEncode   =   fString  
  end   if  
  end   functionTop

2 楼zmhqyw（烈 - 乖乖隆地咚，猪油凉拌菜青虫~）回复于 2004-12-02 09:55:03 得分 6

在存入之前，对数据进行如下替换  
   
  Content   =   新闻内容  
   
  Content   =   replace(Content,chr(13),"<br>")     换行  
  Content   =   replace(Content,"   ","&nbsp")           空格  
  Content   =   replace(Content,"<","&lt;")             <  
  Content   =   replace(Content,">","&gt;")             >  
   
  还可以在下面加一些其他符号的替换，来保证你的新闻正常显示。    
   
  如果新闻中包含了<a   href=""></a>这样的连接的话，就不要替换<>这样的符号了。Top

3 楼meizz（梅花雪）回复于 2004-12-02 09:55:50 得分 20

HTML标签的转换  
  <%  
  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   &"&lt;"  
              Case   ">"           :   coder   =   coder   &"&gt;"  
              Case   "&"           :   coder   =   coder   &"&amp;"  
              Case   chr(9)     :   coder   =   coder   &"&nbsp;   &nbsp;   "  
              Case   chr(13)   :   coder   =   coder   &"<br>"  
              Case   chr(32)   :   coder   =   coder   &"&nbsp;"  
              Case   chr(34)   :   coder   =   coder   &"&quot;"  
              Case   chr(39)   :   coder   =   coder   &"&#39;"  
              Case   Else         :   coder   =   coder   &   mid(str,i,1)  
          End   Select  
      Next  
  End   Function  
  %>  
   
  显示的时候把内容做一次上面的处理.Top

4 楼server_me（编程浪子）回复于 2004-12-02 09:56:09 得分 0

找一个格式新闻系统看一下就懂了！！  
   
  Top

5 楼simonzheng1（）回复于 2004-12-02 13:52:49 得分 4

Content   =   replace(Content,chr(13),"<br>")     换行  
  Content   =   replace(Content,"   ","&nbsp")           空格  
  Top

相关问题

• 数据库
• 新闻
• 内容
• access
• fstring
• coder
• chr
• 空格
• replace
• 替换

• 帖主：sunshinezss
• server_me
• zmhqyw
• meizz
• simonzheng1

• Web开发类图书