%
dim Mesky,Rs,rootID,i
Set Mesky = New cls_main
'If Not IsObject(Conn) Then ConnectionDatabase
call Mesky.LoadSetting()
If Trim(Request.QueryString("rootID"))<>"" then rootID = clng(Trim(Request.QueryString("rootID")))
dim arrPage,arrMainPage,sRs
arrPage = Split(Mesky.ReadStylePage("Style_Down_Search"),"")
arrMainPage = Split(Mesky.ReadStylePage("Style_Down_Main"),"")
Call Main()
Set Mesky = Nothing
Sub Main()
Response.Write(Replace(arrMainPage(0),"{$page_title}","RSS频道聚合"))
Response.Write(arrMainPage(1))
Response.Write(arrMainPage(2))
Call RssMain()
Response.Write(arrMainPage(5))
End Sub
Sub RssMain() %>
<%
End Sub
Sub showRss(fromName,RssFileName)
set Rs = Mesky.Execute("select catalogName,Readme from "&fromName&" where depth=0 and rootID="&rootID)
%>
<% End sub %>