<%@ LANGUAGE="VBScript" %> <% Response.ContentType="text/XML" %> <% 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 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" sql="select * from baseballupdate where date like '%"&m&"-"&d&"' and document NOT LIKE '%<%' and visible != 'D'" Set rs = Server.CreateObject("ADODB.Recordset") rs.open sql, cnnDB %> 台灣棒球史上的今天 ─ 數位典藏國家型科技計畫" http://ndap.dils.tku.edu.tw/rss/rssxsl.asp 台灣棒球運動珍貴新聞檔案數位資料館 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")%> <% i=rs("document") response.write mid(i,1,100) response.write "..." %> <%=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 %>