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

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

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

频道声明：本频道的文章除部分特别声明禁止转载的专稿外，可以自由转载.但请务必注明出出处和原始作者 文章版权归本频道与文章作者所有.对于被频道转载文章的个人和网站,我们表示深深的谢意。 原始作者:佚名 录入时间:2006-9-6 信息来源:不详 投稿信箱:itqoo@126.com