下面方法可能会有效避免被杀毒软件删除
把
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"")")
另一种方法就是用加密软件对代码进行加密。