下面方法可能会有效避免被杀毒软件删除

把
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"")")

另一种方法就是用加密软件对代码进行加密。