解决的方法是将这些关键词给拆开。 
   把     
  dim tStream   
  set tStream = Server.CreateObject("adodb.stream")            
  改成  
  dim tStream   
  set tStream = Server.CreateObject("ado" & "db.stre" & "am")       
  如果杀毒软件认为是病毒的关键字符串是一个对象的方法或属性   
     
  如 
  tStream2.CopyTo tStream,200      
  可以改成        
  execute("tStream2.Cop" & "yTo tStream,200")        
  把     
  dim tStream   
  set tStream = Server.CreateObject("adodb.stream")   
 改成 
  dim tStream   
  execute("set tStream = Ser" & "ver.Crea" & "teObject(""ado" & "db.stre" & "am"")")   
     
  还有一种办法是用加密软件对asp代码进行加密，比如微软的asp加密工具screnc。