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(2)
myOpens =ffl.vardata("myOpen")
myOpen = myOpens(2)
myHighs =ffl.vardata("myHigh")
myHigh = myHighs(2)
myLows =ffl.vardata("myLow")
myLow = myLows(2)
myVols =ffl.vardata("myVol")
myVol = myVols(2)
myTimes =ffl.vardata("myTime")
myTime = myTimes(2)
myDates =ffl.vardata("myDate")
myDate = myDates(2)
msgbox myDate
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)