sp1000je
71 lines
1.7 KiB
Plaintext
71 lines
1.7 KiB
Plaintext
<!-- #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> |