<%@ LANGUAGE="VBScript" %> <% Response.ContentType="text/XML" %> <% Set cnnDB=Server.CreateObject("ADODB.Connection") cnnDB.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=LocalHost;PORT=3306;" &_ "DATABASE=baseball20050422;OPTION=18435;UID=root;PWD=alex111" y=session("y") m= DatePart("m",Now) if len(m)=1 then m="0"&m end if d= DatePart("d",Now) if len(d)=1 then d="0"&d end if h= DatePart("h",Now) if len(h)=1 then h="0"&h end if n= DatePart("n",Now) if len(n)=1 then n="0"&n end if s= DatePart("s",Now) if len(s)=1 then s="0"&s end if sql="select * from baseballupdate where date like '" & y & "%' and visible ='Y'" Set rs = Server.CreateObject("ADODB.Recordset") rs.open sql, cnnDB %> 台灣棒球史上的<%response.write y %>年─數位典藏國家型科技計畫 http://ndap.dils.tku.edu.tw/ 台灣棒球運動珍貴新聞檔案數位資料館 zh-tw 聯合報系 <% response.write t %> <%response.write t %> 棒球新聞 http://ndap.dils.tku.edu.tw/rss/rss.asp <% rs.movefirst do while not rs.eof %> <%=rs("hotline")%> <% if len(rs("subhotline"))<>0 then response.write ":" response.write rs("subhotline") end if response.write "(" response.write rs("paperid") response.write ")" %> http://ndap.dils.tku.edu.tw:8080/ndap/querynews2.jsp?id=<%=rs("autoid")%> ]]> <%=rs("author")%> <% if len(rs("pagename"))<>0 or rs("pagename")<>null then response.write rs("pagename") else response.write "體育新聞" end if %> <% a=rs("date") b=mid(a,1,4) if len(rs("date"))=10 then c=mid(a,6,2) d=mid(a,9,2) elseif len(rs("date"))=9 and mid(a,7,1)="/" then c=mid(a,6,1) d=mid(a,8,2) elseif len(rs("date"))=9 and mid(a,8,1)="/" then c=mid(a,6,2) d=mid(a,9,1) elseif len(rs("date"))=8 then c=mid(a,6,1) d=mid(a,8,1) end if response.write b&"-"&c&"-"&d %> 台灣棒球運動珍貴新聞檔案數位資料館 <% rs.movenext loop rs.close set rs=nothing cnnDB.close set cnnDB=nothing %>