DEBUGOUT('开始执行=%.0f',OPEN);
myClose := CLOSE;
myOpen := OPEN;
myHigh := HIGH;
myLow := LOW;
myVol := VOL;
myTime := TIME;
myDate := DATE;
//if timetot0(dynainfo(207))=time0-1 then begin
//extgbdataset('myClose', CLOSE);
//extgbdataset('myOpen', open);
//extgbdataset('myHigh', high);
//extgbdataset('myLow', low);
//extgbdataset('myVol', vol);
//extgbdataset('myTime', time);
//extgbdataset('myDate', date+19000000);
//end
<%
myCloses =ffl.vardata("myClose")
myClose = myCloses(0)
myOpens =ffl.vardata("myOpen")
myOpen = myOpens(0)
myHighs =ffl.vardata("myHigh")
myHigh = myHighs(0)
myLows =ffl.vardata("myLow")
myLow = myLows(0)
myVols =ffl.vardata("myVol")
myVol = myVols(0)
myTimes =ffl.vardata("myTime")
myTime = myTimes(0)
myDates =ffl.vardata("myDate")
myDate = myDates(0)
Dim conn
Dim Rst
Dim strCnn
Const strC
Set conn = CreateObject("adodb.connection")
conn.Open strConn
'查看是否连接成功，成功状态值为1
'msgbox Conn.state
'If Conn.State = 0 Then
' msgbox "连接数据库失败"
'else
' msgbox "连接数据库成功"
'End If
Set Rst =CreateObject("ADODB.Recordset")
Rst.open "insert into spr_candle_line(high,low,opens,closes,vol,times,dates) values("&myHigh&","&myLow&","&myOpen&","&myClose&","&myVol&","&myTime&","&myDate&")",conn
'Rst.open "insert into spring_test(test_no) values("&myClose&")",conn
'msgbox "数据库插入成功"
'Rst.open "select test_no from spring_test",conn
'While not Rst.eof '
' test_no = Rst("test_no").value
' msgbox test_no
' Rst.movenext
'wend
'Rst.open "update spring_test set test_no = 9999999",conn
'Rst.close '关闭记录集
Set Rst=nothing '释放对象
conn.close '关闭连接
Set cnn=nothing '释放对象
%>
DEBUGOUT('执行结束=%.0f',CLOSE)