checkbody.asp

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

<%
   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 and mid(str,i,1)<>" " then
               dist=dist+mid(str,i,1)
	    
	    elseif mid(str,i,1)=" " 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

%>