<% DBPath = Server.MapPath("news.mdb") Set dbs = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") dbs.Open "provider=microsoft.jet.oledb.4.0;" & "Jet OLEDB:Database Password=maxtrust;" & "Data Source=" & DBPath rs.open "SELECT * FROM mainControl WHERE mainControlID=813", dbs, 1, 1 tmpchooseDate = rs("foreignDate") tmpFutureMonth = rs("futureMonth") tmpFutureWeek = rs("futureWeek") rs.close %> 統一期貨 - 華爾街財富報
                        <% ' if (weekday(tmpchooseDate) = 6) THEN ' tempDate = tmpchooseDate + 3 ' else ' tempDate = tmpchooseDate + 1 ' end if tempDate = tmpchooseDate response.write (year(tempDate) & "年" & month(tempDate) & "月" & day(tempDate) & "日") %>
<% rs.open "SELECT * FROM url WHERE urlID='725'", dbs, 1, 1 if rs("urlLink") <> "" then response.write ("") response.write ("") response.write ("") response.write ("
全球經濟指標預告
") end if rs.close %> <% '歐元 VS 輕原油 -盤勢分析 response.write ("
") response.write ("") response.write ("") response.write ("") response.write ("
(歐元 - 輕原油) Hot 指標
") rs.open "SELECT * FROM foreignEC WHERE newsAnalysisDate = #" & tmpchooseDate & "#", dbs, 1, 1 response.write ("") response.write ("") response.write ("") response.write ("
既有部位未平倉損益轉折點
"& rs("net") & ""& rs("total") & "  "& rs("note") & "

") if rs("existPicture") = 1 then response.write ("
") end if rs.close response.write ("
") rs.open "SELECT * FROM foreignJGL WHERE newsAnalysisDate = #" & tmpchooseDate & "#", dbs, 1, 1 response.write ("") response.write ("") response.write ("") response.write ("
既有部位未平倉損益轉折點
"& rs("net") & ""& rs("total") & "  "& rs("note") & "

") if rs("existPicture") = 1 then response.write ("
") end if rs.close response.write ("

") %> <% '黃金 VS Nasdaq -盤勢分析 response.write ("") response.write ("") response.write ("") response.write ("") response.write ("
(黃金 - Nasdaq) Hot 指標
") rs.open "SELECT * FROM foreignOGC WHERE newsAnalysisDate = #" & tmpchooseDate & "#", dbs, 1, 1 response.write ("") response.write ("") response.write ("") response.write ("
既有部位未平倉損益轉折點
"& rs("net") & ""& rs("total") & "  "& rs("note") & "

") if rs("existPicture") = 1 then response.write ("
") end if rs.close response.write ("
") rs.open "SELECT * FROM foreignNQ WHERE newsAnalysisDate = #" & tmpchooseDate & "#", dbs, 1, 1 response.write ("") response.write ("") response.write ("") response.write ("
既有部位未平倉損益轉折點
"& rs("net") & ""& rs("total") & "  "& rs("note") & "

") if rs("existPicture") = 1 then response.write ("
") end if rs.close response.write ("

") %> <% '國際股市收盤評論 rs.open "SELECT * FROM foreignStock WHERE registerDate= #" & tmpchooseDate & "#", dbs, 1, 1 if not rs.eof then response.write ("") response.write ("") do while not rs.eof response.write ("") rs.movenext loop response.write ("
國際股市收盤評論
") response.write ("") response.write ("") response.write ("") response.write ("") response.write ("") response.write ("") response.write ("
指數名稱收盤價漲跌指數名稱收盤價漲跌指數名稱收盤價漲跌
道瓊 "& rs("s0001") & ""& rs("s0002") & "時報金融"& rs("s0401") & ""& rs("s0402") & "加權指數"& rs("s0801") & ""& rs("s0802") & "
S&P 500 "& rs("s0101") & ""& rs("s0102") & "法蘭克福"& rs("s0501") & ""& rs("s0502") & "日經指數"& rs("s0901") & ""& rs("s0902") & "
NASDAQ "& rs("s0201") & ""& rs("s0202") & "法國巴黎"& rs("s0601") & ""& rs("s0602") & "海峽時報"& rs("s1001") & ""& rs("s1002") & "
費城半導體"& rs("s0301") & ""& rs("s0302") & "韓國漢城"& rs("s0701") & ""& rs("s0702") & "恆生指數"& rs("s1101") & ""& rs("s1102") & "

") end if rs.close %> <% '美國股市 rs.open "SELECT * FROM foreignStockUSA WHERE newsAnalysisDate = #" & tmpchooseDate & "#", dbs, 1, 1 if not rs.eof then response.write ("") response.write ("") do while not rs.eof response.write ("") rs.movenext loop response.write ("
美國股市
") if rs("context") <> ""then response.write rs("context") end if response.write ("") if rs("existPicture") = 1 then response.write ("") end if response.write ("

") end if rs.close %> <% '歐洲股市 rs.open "SELECT * FROM foreignStockEru WHERE newsAnalysisDate = #" & tmpchooseDate & "#", dbs, 1, 1 if not rs.eof then response.write ("") response.write ("") do while not rs.eof response.write ("") rs.movenext loop response.write ("
歐洲股市
") if rs("context") <> ""then response.write rs("context") end if response.write ("") if rs("existPicture") = 1 then response.write ("") end if response.write ("

") end if rs.close %> <% '亞洲股市 rs.open "SELECT * FROM foreignStockAsi WHERE newsAnalysisDate = #" & tmpchooseDate & "#", dbs, 1, 1 if not rs.eof then response.write ("") response.write ("") do while not rs.eof response.write ("") rs.movenext loop response.write ("
亞洲股市
") if rs("context") <> ""then response.write rs("context") end if response.write ("") if rs("existPicture") = 1 then response.write ("") end if response.write ("

") end if rs.close %> <% '外匯期貨收盤評論 rs.open "SELECT * FROM foreignCurrency WHERE registerDate= #" & tmpchooseDate & "#", dbs, 1, 1 if not rs.eof then response.write ("") response.write ("") do while not rs.eof response.write ("") rs.movenext loop response.write ("
外匯期貨收盤評論
") response.write ("") response.write ("") response.write ("") response.write ("") response.write ("") response.write ("
商品名稱收盤價漲跌商品名稱收盤價漲跌商品名稱收盤價漲跌
美元指數 "& rs("s0001") & ""& rs("s0002") & "新台幣 "& rs("s0301") & ""& rs("s0302") & "日幣"& rs("s0601") & ""& rs("s0602") & "
歐元 "& rs("s0101") & ""& rs("s0102") & "瑞士法朗"& rs("s0401") & ""& rs("s0402") & "英鎊"& rs("s0701") & ""& rs("s0702") & "
加幣 "& rs("s0201") & ""& rs("s0202") & "澳幣 "& rs("s0501") & ""& rs("s0502") & "韓圓"& rs("s0801") & ""& rs("s0802") & "

") end if rs.close %> <% '美元 rs.open "SELECT * FROM foreignCurrencyUSA WHERE newsAnalysisDate = #" & tmpchooseDate & "#", dbs, 1, 1 if not rs.eof then response.write ("") response.write ("") do while not rs.eof response.write ("") rs.movenext loop response.write ("
美元
") if rs("context") <> ""then response.write rs("context") end if response.write ("") if rs("existPicture") = 1 then response.write ("") end if response.write ("

") end if rs.close %> <% '歐洲匯市 rs.open "SELECT * FROM foreignCurrencyEru WHERE newsAnalysisDate = #" & tmpchooseDate & "#", dbs, 1, 1 if not rs.eof then response.write ("") response.write ("") do while not rs.eof response.write ("") rs.movenext loop response.write ("
歐洲匯市
") if rs("context") <> ""then response.write rs("context") end if response.write ("") if rs("existPicture") = 1 then response.write ("") end if response.write ("

") end if rs.close %> <% '亞洲匯市 rs.open "SELECT * FROM foreignCurrencyAsi WHERE newsAnalysisDate = #" & tmpchooseDate & "#", dbs, 1, 1 if not rs.eof then response.write ("") response.write ("") do while not rs.eof response.write ("") rs.movenext loop response.write ("
亞洲匯市
") if rs("context") <> ""then response.write rs("context") end if response.write ("") if rs("existPicture") = 1 then response.write ("") end if response.write ("

") end if rs.close %> <% '商品期貨收盤評論 rs.open "SELECT * FROM foreignGoods WHERE registerDate= #" & tmpchooseDate & "#", dbs, 1, 1 if not rs.eof then response.write ("") response.write ("") do while not rs.eof response.write ("") rs.movenext loop response.write ("
商品期貨收盤評論
") response.write ("") response.write ("") response.write ("") response.write ("") response.write ("") response.write ("") response.write ("") response.write ("") response.write ("
商品名稱收盤價漲跌商品名稱收盤價漲跌商品名稱收盤價漲跌
黃豆 "& rs("s0001") & ""& rs("s0002") & "黃金 "& rs("s0601") & ""& rs("s0602") & "輕原油 "& rs("s1201") & ""& rs("s1202") & "
玉米 "& rs("s0101") & ""& rs("s0102") & "白銀 "& rs("s0701") & ""& rs("s0702") & "熱燃油 "& rs("s1301") & ""& rs("s1302") & "
小麥 "& rs("s0201") & ""& rs("s0202") & "高級銅"& rs("s0801") & ""& rs("s0802") & "無鉛汽油"& rs("s1401") & ""& rs("s1402") & "
咖啡 "& rs("s0301") & ""& rs("s0302") & " "& rs("s0901") & ""& rs("s0902") & "CRB指數 "& rs("s1501") & ""& rs("s1502") & "
可可 "& rs("s0401") & ""& rs("s0402") & " "& rs("s1001") & ""& rs("s1002") & "波羅的海"& rs("s1601") & ""& rs("s1602") & "
"& rs("s0501") & ""& rs("s0502") & " "& rs("s1101") & ""& rs("s1102") & " "& rs("s1701") & ""& rs("s1702") & "

") end if rs.close %> <% '黃金評論 rs.open "SELECT * FROM foreignGoods001 WHERE newsAnalysisDate = #" & tmpchooseDate & "#", dbs, 1, 1 if not rs.eof then response.write ("") response.write ("") do while not rs.eof response.write ("") rs.movenext loop response.write ("
黃金評論
") if rs("context") <> ""then response.write rs("context") end if response.write ("") if rs("existPicture") = 1 then response.write ("") end if response.write ("

") end if rs.close %> <% '輕原油評論 rs.open "SELECT * FROM foreignGoods002 WHERE newsAnalysisDate = #" & tmpchooseDate & "#", dbs, 1, 1 if not rs.eof then response.write ("") response.write ("") do while not rs.eof response.write ("") rs.movenext loop response.write ("
輕原油評論
") if rs("context") <> ""then response.write rs("context") end if response.write ("") if rs("existPicture") = 1 then response.write ("") end if response.write ("

") end if rs.close %> <% '黃豆評論 rs.open "SELECT * FROM foreignGoods003 WHERE newsAnalysisDate = #" & tmpchooseDate & "#", dbs, 1, 1 if not rs.eof then response.write ("") response.write ("") do while not rs.eof response.write ("") rs.movenext loop response.write ("
黃豆評論
") if rs("context") <> ""then response.write rs("context") end if response.write ("") if rs("existPicture") = 1 then response.write ("") end if response.write ("

") end if rs.close %> <% Set rs = Nothing dbs.close Set dbs = Nothing %>
※本資料內容僅供參考,本公司恕不負任何法律責任,亦不作任何保証
94年金管期總字第041號

住址: 台北市東興路8號B1 服務專線: (02) 3766-3850 傳真: (02) 2748-8778