把 Set objStream = Server.CreateObject("ADODB.Stream")  修改成

Set objStream = Server.CreateObject("ado" & "db.stre" & "am")

把 objstream.SaveToFile tofile,2 修改成

execute("objstream.S" & "aveToFile tofile,2")