高手相助，谢谢

发现在表格单元格里使用<%response.write(rs("zd1"))%>时使用英文字串时无法自动换行，但是换成中文格式会自动换行，请问如何解决英文换行问题？ 问题点数：20、回复次数：4Top

1 楼MeXP（秦汉风）回复于 2002-06-06 17:33:27 得分 0

<td   width="20"   nowrap>wwww   wwww   wwww   wwwww   wwww   wwww<td>Top

2 楼bowlder（玩石）回复于 2002-06-06 17:36:16 得分 0

<table   style="TABLE-LAYOUT:   fixed"   width="100%"   border="0"   cellspacing="0"   cellpadding="7"   bgcolor="#f7f7f7">  
  <tr>    
  <td   style="LEFT:   0px;   WIDTH:   100%;   WORD-WRAP:   break-word"><font   color="#990000">51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM51JS.COM</font><br>  
  连串英文省略  
  </font></td>  
  </tr>  
  </table>Top

3 楼hhytsoft（雨中独行）回复于 2002-06-06 18:26:01 得分 0

<TD>元素的nowrap属性好象是不让浏览器自动换行的Top

4 楼possible_Y（████本人签名需要刮开,方可看到 ）回复于 2002-06-06 18:46:49 得分 20

1.  
  <table   style="TABLE-LAYOUT:   fixed"   width="100%"   border="0"   cellspacing="0"   cellpadding="7"   bgcolor="#f7f7f7">    
  <tr>    
  <td   style="LEFT:   0px;   WIDTH:   100%;   WORD-WRAP:   break-word"><font   color="#990000">possible,possiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossiblepossible</font><br>    
  连串英文省略    
  </font></td>    
  </tr>    
  </table>    
   
  2.  
  if   len("变量")>66   then   response.write   "<br>"    
   
  3.  
  '-------------------------------------------------    
  '    
  '   function   name:   autowrap    
  '    
  '    
  '   des   cription   :   解决长英文不自动换行的问题    
  '    
  '   parameters   :   a_strSourceString   :要转换的源字符串    
  '    
  '   a_intSize   ,   每行宽度    
  '    
  '    
  '-------------------------------------------------------    
  function   AutoWrap(a_strSourceString   ,   a_intSize)    
   
  dim   l_strDestString    
   
  '如果内容中有回车则退出    
  'if   instr(a_strSourceString   ,   chr(13)   +   chr(10)   )   <>   0   then    
  '   AutoWrap   =   replace(a_strSourceString   ,   chr(13)   +   chr(10)   ,   "<br>")    
  '   exit   function    
  'end   if    
   
  'check   if   valid   parameters    
  call   assert(vartype(a_strSourceString)   =   8   ,   "AutoWrap"   ,   "a_strSourceString   must   be   a   string")    
  call   assert(vartype(a_intSize)   =   2   ,   "AutoWrap"   ,   "a_intSize   must   be   a   integer")    
   
   
  dim   i    
  if   a_intSize   >=   len(a_strSourceString)   then    
  l_strDestString   =   a_strSourceString    
  else    
  '   l_strDestString   =   left(a_strSourceString   ,   a_intSize)    
  for   i   =   1   to   len(a_strSourceString)   step   a_intSize    
  if   instr(   i   ,   mid(a_strSourceString   ,   i   ,   a_intSize)   ,   chr(32)   )   =   0   _    
  or   instr(   i   ,   mid(a_strSourceString   ,   i   ,   a_intSize)   ,   chr(13)+chr(10)   )then    
  l_strDestString   =   l_strDestString   +   "   "   +   mid   (a_strSourceString   ,   i   +   1   ,    
  a_intSize)    
  else    
  l_strDestString   =   l_strDestString   +   mid(a_strSourceString   ,   i   +   1   ,    
  a_intSize)    
  end   if    
  next    
  end   if    
   
  call   print("[AutoWrap:]return   value   is   :   '"   +   l_strDestString   +   "'")    
  l_strDestString   =   replace(l_strDestString   ,   chr(13)   +   chr(10)   ,   "<br>")    
  AutoWrap   =   l_strDestString    
  end   function    
  3)你写这样一个函数就可以了    
  调用时这样做    
  <%=htmlencode2(你要写出的..)    
   
  函数如下：    
   
  <%   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   %>Top

相关问题

• js
• strsourcestring
• strdeststring
• intsize
• autowrap
• chr
• wwww
• com51js
• mid
• result

• 帖主：jasonwolf
• possible_Y

• Web开发类图书