% dim fso,f1 Const ForReading = 1 set fso=createobject("Scripting.FileSystemObject") ''使用fso对象读取信息。 set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading) ''打开要读取的文件 dim conn,rst
set conn=server.createobject("adodb.connection") ''建立数据库连接,执行操作 set rst=server.createobject("adodb.recordset")