[求助]如何换行

我写了个留言板，  
  但是不支持换行，  
  怎么才能按照用户输入的  
  显示的时候也按照用户输入的格式？？？ 问题点数：5、回复次数：3Top

1 楼xiemingmei（谢明媚）回复于 2006-03-03 21:01:00 得分 0

需要把   回车换行   替换成   <br>等  
  ASP的例子：  
   
  <%  
  '字符串HTML编码  
  function   htmlencode(str)  
          dim   result  
          dim   l  
          if   isNULL(str)   then    
                htmlencode=""  
                exit   function  
          end   if  
          l=len(str)  
          result=""  
  dim   i  
  for   i   =   1   to   l  
          select   case   mid(str,i,1)  
                        case   "<"  
                                  result=result+"&lt;"  
                        case   ">"  
                                  result=result+"&gt;"  
                        case   chr(13)  
                                  result=result+"<br>"  
                        case   chr(34)  
                                  result=result+"&quot;"  
                        case   "&"  
                                  result=result+"&amp;"  
                                        case   chr(32)                        
                                  'result=result+"&nbsp;"  
                                  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+"&nbsp;"  
                                        else  
                                              result=result+"   "  
                                        end   if  
                                  else  
                                        result=result+"&nbsp;"                                          
                                  end   if  
                        case   chr(9)  
                                  result=result+"         "  
                        case   else  
                                  result=result+mid(str,i,1)  
                    end   select  
                next    
                htmlencode=result  
  end   function  
   
  'HTML编码还原  
  function   htmldecode(str)  
          str=trim(str)  
          if   isNull(str)   then  
                    htmldecode=""  
                    exit   function  
          end   if  
          str=replace(str,"&lt;","<")  
          str=replace(str,"&gt;",">")  
          str=replace(str,"<br>",chr(13))  
          str=replace(str,"&quot;",chr(34))  
          str=replace(str,"&amp;","&")  
          str=replace(str,"&nbsp;",chr(32))        
          htmldecode=str  
  end   function  
  %>  
   
  有分没有，记得给分阿。Top

2 楼xinxideyilian（心细的依恋）回复于 2006-03-03 22:18:39 得分 0

很简单了,我前几天在做活也遇到了这个问题了Top

3 楼niitlxr（NIITLXR）回复于 2006-03-04 00:06:24 得分 0

更简单的办法是  
   
  在显示时   直接给个     文本域Top

相关问题

• chr
• htmldecode
• 换行
• result
• str
• mid
• replace
• case
• then
• else

• 帖主：Sherlock_Holmes

• CSDN Java频道
• Java类图书
• Java类源码下载