<% '--------------------------------------------------------------------------------- Dim class_1, class_2 Dim strSQL, conn, rs, rsTemp '--------------------------------------------------------------------------------- AntiInjection() '避免 injection 攻擊 '-------------------------------------------------------------------------- '將表格資料做去除前後空白處理再從左側取規定內字元並放入變數中 '-------------------------------------------------------------------------- class_1 = Trim(Request.QueryString("a")) class_2 = Trim(Request.QueryString("b")) '-------------------------------------------------------------------------- strSQL = "SELECT * FROM rss WHERE class_1 = '" & class_1 & "' AND class_2 = '" & class_2 & "' ORDER BY update_date DESC " Set conn = GetConn_InterSelect() Set rs = GetSQLServerRecordset(conn,strSQL,1,3) '-------------------------------------------------------------------------- '因為 xml 最上面不可是空白行, 所以 <%=class_2%><%=IIf(Len(class_2)," - ","")%>鈦思科技 http://www.terasoft.com.tw MATLAB, Simulink, Nastran, Adams, Marc, Jacket 影像視覺運算, 專業技術服務盡在 "鈦思科技" 鈦思科技 2009 版權所有 All Rights Reserved. zh-TW http://www.terasoft.com.tw/images/index/images001.jpg 鈦思科技 TeraSoft, Inc. http://www.terasoft.com.tw 132 42 10 <% '-------------------------------------------------------------------------- If Not ( rs.EOF And rs.BOF ) Then rs.MoveFirst Do While Not rs.EOF '-------------------------------------------------------------------------- %> <%=rs("title")%> <%=rs("link")%> <%=GetRFC822DateTime(rs("update_date"))%> <%=rs("description")%> <%=rs("class_1")%> / <%=rs("class_2")%> / <%=rs("build_date")%> <% '-------------------------------------------------------------------------- rs.MoveNext Loop Elseif ( class_1 = "" And class_2 = "" ) Then strSQL = "SELECT TOP 5 * FROM rss ORDER BY update_date DESC " Set rsTemp = GetSQLServerRecordset(conn,strSQL,1,3) If Not ( rsTemp.EOF And rsTemp.BOF ) Then rsTemp.MoveFirst Do While Not rsTemp.EOF '-------------------------------------------------------------------------- %> <%=rsTemp("title")%> <%=rsTemp("link")%> <%=GetRFC822DateTime(rsTemp("update_date"))%> <%=rsTemp("description")%> <%=rsTemp("class_1")%> / <%=rsTemp("class_2")%> / <%=rsTemp("build_date")%> <% '-------------------------------------------------------------------------- rsTemp.MoveNext Loop End If rsTemp.Close : Set rsTemp = Nothing End If '-------------------------------------------------------------------------- %> <% '-------------------------------------------------------------------------- CloseRecordsetConnection rs,conn '-------------------------------------------------------------------------- '函式區 '-------------------------------------------------------------------------- Function GetRFC822DateTime(varInput) Dim str str = varInput : If Not IsDate(str) Then str = Now() str = GetWeekDayName(WeekDay(str)) & ", " & Right("0"&CStr(Day(str)),2) & " " & GetMonthName(Month(str)) & " " & CStr(Year(str)) & " " & FormatDateTime(str,4) & ":00 +0800" GetRFC822DateTime = str End function '-------------------------------------------------------------------------- Function GetWeekDayName(iWeekDay) Dim str Select Case iWeekDay Case 1 str = "Sun" Case 2 str = "Mon" Case 3 str = "Tue" Case 4 str = "Wed" Case 5 str = "Thu" Case 6 str = "Fri" Case 7 str = "Sat" End Select GetWeekDayName = str End Function '-------------------------------------------------------------------------- Function GetMonthName(iMonth) Dim str Select Case iMonth Case 1 str = "Jan" Case 2 str = "Feb" Case 3 str = "Mar" Case 4 str = "Apr" Case 5 str = "May" Case 6 str = "Jun" Case 7 str = "Jul" Case 8 str = "Aug" Case 9 str = "Sep" Case 10 str = "Oct" Case 11 str = "Nov" Case 12 str = "Dec" End Select GetMonthName = str End Function '-------------------------------------------------------------------------- %>