<%
Server.ScriptTimeout = 3600'定义时间
'SQLite 数据库部分
Dim Conn,rs,arrResult
Set Conn = Server.CreateObject("ADODB.Connection")
With Conn
.ConnectionString = "DRIVER={SQLite3 ODBC Driver};Database=" & Server.MapPath("122.db3")
.Open
End With
' Conn.Execute "INSERT INTO [HD](head,remark,company)VALUES('123000','测试XX','测试');"
' Conn.Close
' Set Conn = Nothing
strs = now()
'定义事件开始
Conn.BeginTrans
Dim fsread,read,item,arr,sql
Set fsread=Server.CreateObject("Scripting.FileSystemObject")
Set read=fsread.opentextfile(server.mappath("HD-BB.csv"))'需要导入的数据文件,以,为分割的3列数据
Do Until read.atendofstream
item=read.readline
arr=Split(item,",")
sql="insert into [HD] (head,remark,company)values('"&arr(0)&"','"&arr(1)&"','"&arr(2)&"')"
'response.write sql&"<br>"
conn.execute(sql)
Loop
read.close
Set read=nothing
if conn.Errors.Count>0 then
conn.Errors.Clear '//如果插入数据操作失败,则事务向前回滚
conn.RollBackTrans '撤消/放弃一个事务
response.Redirct RegisterFail.html
end if
'执行事件
Conn.CommitTrans
stre = now()
strc = datediff("s",strs,stre)
Response.Write ""&strc&"秒</br>"
Response.Write "Insert Data OK!"
'●Connection.BeginTrans方法:启动一个事务;
'●Connection.CommitTrans方法:完成/提交一个事务;
'●Connection.RollBackTrans方法:撤消/放弃一个事务