asp游戏收信程序过滤代码

帮朋友写的一个函数，现在这些程序混乱，数据量大,性能很不好。
 

	
<%    
	
'Format String  
	
 
	
 
	
 
	
'过滤大区  
	
Function CutBadArea(str1)  
	
    str = Trim(str1)  
	
    badword=split(badarea,"|")    
	
    For i=0 to Ubound(badword)    
	
    If instr(str,badword(i)) > 0 Then  
	
      'response.write("大区不合格!")  
	
      response.End 
	
    End If    
	
    Next  
	
    End Function   
	
 
	
'过滤服务器  
	
Function CutBadServer(str2)  
	
    str = Trim(str2)  
	
    badword=split(badserver,"|")    
	
    For i=0 to Ubound(badword)    
	
    If instr(str,badword(i)) > 0 then   
	
      'response.write("小服不合格!")  
	
      response.End 
	
    End If    
	
    Next  
	
    End Function  
	
 
	
'过滤等级  
	
Function CutBadLevel(level)           '5  
	
...  
	
...