최초등록

content/board/rss.asp

@@ -0,0 +1,71 @@
+<!-- #include virtual= "/common/lib/dbcon.asp" -->
+
+<%
+Application_domain = Request.ServerVariables("HTTP_HOST")
+
+a_num = request("a_num")
+Select Case a_num
+	case "71074505":	'공지사항
+		Application_name = "대구광역시 남부교육지원청 공지사항"
+	case "7569561":		'행사앨범
+		Application_name = "대구광역시 남부교육지원청 행사앨범"
+	case "17184857":	'행사정보
+		Application_name = "대구광역시 남부교육지원청 행사정보"
+
+	Case Else
+%>
+		<script language='javascript'>
+			alert('지원되지 않습니다!');
+			history.back();
+		</script>
+<%
+	response.end
+End select
+%>
+
+<rss version='2.0' xmlns:dc='http://purl.org/dc/elements/1.1/'>
+
+<channel>
+<title><%= Application_name %></title>
+<link><%= Application_domain %></link>
+<description>RSS version 2.0</description>
+<dc:language>ko</dc:language>
+
+<%
+sql = "select a_tablename, a_bbsname from board_config where a_num = '"&a_num&"'"
+Set Rs = Dbcon.Execute (sql)
+If Not rs.eof Then
+	a_tablename = Rs("a_tablename")
+	a_bbsname = Rs("a_bbsname")
+End If
+rs.close : Set rs = nothing
+
+sql = "select top 15 b_num, b_subject, b_content, b_regdate from "&a_tablename &" order by b_ref desc, b_step"
+Set Rs = Dbcon.Execute (sql)
+If Not rs.eof Then
+	vData =rs.getrows
+
+	For i=0 To UBound(vData,2)
+		b_num = vData(0,i)
+		b_subject = vData(1,i)
+		b_content = vData(2,i)
+		b_regdate = vData(3,i)
+%>
+
+	<item>
+	<title><![CDATA[<%=b_subject%>]]></title>
+	<link><![CDATA[<%="http://"&Application_domain&"/content/board/view.asp?b_num="&b_num&"&a_num="&a_num%>]]></link>
+	<description>
+	<![CDATA[<%=b_content%>]]>
+	</description>
+	<dc:date><![CDATA[<%=b_regdate%>]]></dc:date>
+	<dc:subject><![CDATA[<%=a_bbsname%>]]></dc:subject>
+	</item>
+
+<%
+	next
+End if
+
+%>
+</channel>
+</rss>