这主要是因为杀毒软件将一些asp关键词当作木马特征，记录保存着，所以遇到有这个关键词，就会禁止运行或删除。解决的方法是将这些关键词给拆开。
把
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"")")