更新 <% lang = "Ch" set rs = server.createobject("adodb.recordset") sql="select top 1 * from LiangJingCMS_Site" rs.open sql,conn,1,1 SiteTitleCH=rs("SiteTitleCH") rsscode=rs("rssSite") rs.close url = Request.ServerVariables("SERVER_NAME") if (left(url,7) = "http://") then url = Request.ServerVariables("SERVER_NAME") else url = "http://"+ Request.ServerVariables("SERVER_NAME") end if dim dates dates = Date function writeitem(description,link,title) response.write "" response.write "" response.write "" response.write "" response.write "" response.write url +"/"+ lang +"/"+ link response.write "" response.write "" response.write dates response.write "" response.write "" response.write "<![CDATA["&title&"]]>" response.write "" response.write "" end function %> <% '================ 'rss 新闻 '================ dim datafrom datafrom="LiangJingCMS_News" sql="select * from ["& datafrom &"] " set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 if instr(rsscode,"n") > 0 then while(not rs.eof) writeitem Left(rs("ContentCh"),150) ,""&rs("ClassSeo")&".html" ,rs("NewsNameCH") rs.movenext wend end if rs.close %> <% '================ 'rss 产品 '================ datafrom="LiangJingCMS_Products" sql="select * from ["& datafrom &"] " set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 if instr(rsscode,"p") > 0 then while(not rs.eof) writeitem Left(rs("ContentCH"),150) ,""&rs("ClassSeo")&".html" ,rs("ProductNameCH") rs.movenext wend end if rs.close %> <% '================ 'rss 下蝲 '================ datafrom="LiangJingCMS_Download" sql="select * from ["& datafrom &"] " set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 if instr(rsscode,"d") > 0 then while(not rs.eof) writeitem Left(rs("ContentCH"),150) ,""&rs("ClassSeo")&".html" ,rs("DownNameCH") rs.movenext wend end if rs.close %> <% response.write url %> <% response.write SiteTitleCH %> ʵϷ׬Ǯ pk10ڼƻ˹ 11ѡͼ ΢app΢ֹٷ jdb㼼Ƶ Ϻѡ4ѯ ڼҿʲôְ׬Ǯ ʲô׬Ǯ 齫app Щ׵׬Ǯapp