checkbody.inc

来自「1.4.1 个人桌面 1.4.2 信息中心 1.4.3 人事机构 1.4.」· INC 代码 · 共 45 行

<%'"str"变量是你需要输出的内容， falg 是每行输出的字符个数
   private function showBody(Str,falg)
 
	dim dist
	dim i,j
	j=1 
	for i = 1 to len(str)
	  'if mid(str,i,1)<>"%" and ucase(mid(str,i,6))<>"SCRIPT" then
	    if mid(str,i,1)<>chr(13) and j<falg then'and mid(str,i,1)<>" " then
               dist=dist+mid(str,i,1)
	    
	    'elseif mid(str,i,1)=" " then'or mid(str,i,1)="　" then
	    'response.write dist
     	 'response.write "&nbsp;"
     	 'dist=""
	    
	    else
		response.write dist
     	        response.write "<BR>"'+chr(13)'+chr(10)
		dist=""
	    
	     j=0
	    	    
	   end if
        
      'end if
        j=j+1
        next 
	
  response.write dist
  end function

   function checktxt(Str)
	dim dist
	dim i 
	dist=""
	for i = 1 to len(str)
	  if mid(str,i,1)<>"%" and mid(str,i,1)<>chr(13) and ucase(mid(str,i,6))<>"SCRIPT" then
	       dist=dist+mid(str,i,1)
	  end if
        next 
	checktxt=dist
   end function

%>