鏇存柊 <% 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 ?#26570;?#26888; '================ 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 %> 22选5开奖直播河南