'连接数据库
set adoconn=Createobject("adodb.connection")
adoconn.connectionstring="OraOLEDB.Oracle.1;Persist Security Info=False;User ID=test;Data Source=192.168.13.19"
const ForAppending=8
const Forreading=1
const Forwriting=2
'创建文件对象
set fso=Createobject("Scripting.filesystemobject")
set sql=fso.OpenTextFile("E:\缺陷管理.txt",1,true)
sqlstr=sql.readAll
adoconn.open
set adorst=adoconn.Execute(sqlstr)
while Not adorst.EOF
执行语句
adorst.MoveNext
Wend