<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%response.contenttype="text/xml"%> <%'參數(shù)設(shè)定 const list=30 '最新信息數(shù) m=trim(request.QueryString("m")) '可用參數(shù)news,product,picture,faq,provide,video %> <%function title(the_title)%> http://biegeng.cn/ zh-cn 河南黎明路橋重工有限公司 Rss Generator By 河南黎明路橋重工有限公司 [email protected] <%end function%> <% select case m case "news" call title(list&"條新聞") set rs=oConn.execute("Select top "&list&" d_id,d_title,d_classid,d_time,d_editor,d_count,d_filepath,d_content From NewsData Where d_classid=2 and d_recycle=false ORDER BY d_id DESC") while not rs.eof Response.Write(""&vbcrlf) Response.Write(""&vbcrlf) Response.Write("http://biegeng.cn/ver3.0/news/"&rs("d_classid")&"/"&rs("d_id")&".html"&vbcrlf) Response.Write(""&rs("d_editor")&""&vbcrlf) Response.Write(""&rs("d_time")&""&vbcrlf) Response.Write(""&rs("d_content")&"]]>"&vbcrlf) Response.Write(""&vbcrlf&vbcrlf) rs.movenext wend set rs=nothing case "product" call title(list&"件產(chǎn)品") set rs=oConn.execute("Select top "&list&" * From ProductData Where P_Recycle=false ORDER BY P_ProductAddTime DESC") while not rs.eof Response.Write(""&vbcrlf) Response.Write(""&vbcrlf) Response.Write("http://biegeng.cn/ver3.0/chanpin/"&oConn.execute("Select M_Name FROM Forder WHERE M_ID="&rs("P_Forder"))(0)&"/"&rs("P_filename")&""&vbcrlf) Response.Write(""&rs("P_Editor")&""&vbcrlf) Response.Write(""&rs("P_ProductAddTime")&""&vbcrlf) Response.Write(""&rs("P_ProductDesc")&"]]>"&vbcrlf) Response.Write(""&vbcrlf&vbcrlf) rs.movenext wend set rs=nothing case "picture" call title(list&"張圖片") set rs=oConn.execute("Select top "&list&" * From PictureData Where P_Recycle=false ORDER BY P_PictureAddTime DESC") while not rs.eof Response.Write(""&vbcrlf) Response.Write(""&vbcrlf) Response.Write("http://biegeng.cn/ver3.0/picture/"&rs("P_PictureClassID")&"/"&rs("P_id")&".html"&vbcrlf) Response.Write(""&rs("P_Editor")&""&vbcrlf) Response.Write(""&rs("P_PictureAddTime")&""&vbcrlf) Response.Write(""&rs("P_PictureDesc")&"]]>"&vbcrlf) Response.Write(""&vbcrlf&vbcrlf) rs.movenext wend set rs=nothing case "faq" call title(list&"條問答") set rs=oConn.execute("Select top "&list&" * From FaqData Where F_Check=1 ORDER BY F_AddTime DESC") while not rs.eof Response.Write(""&vbcrlf) Response.Write(""&vbcrlf) Response.Write("http://biegeng.cn/ver3.0/faq/"&rs("F_Class")&"/"&rs("F_Id")&".html"&vbcrlf) Response.Write(""&rs("F_Name")&""&vbcrlf) Response.Write(""&rs("F_AddTime")&""&vbcrlf) Response.Write(""&rs("F_Reply")&"]]>"&vbcrlf) Response.Write(""&vbcrlf&vbcrlf) rs.movenext wend set rs=nothing case "provide" call title(list&"條供求") set rs=oConn.execute("Select top "&list&" * From ProvideData Where P_Recycle=false ORDER BY P_AddTime DESC") while not rs.eof Response.Write(""&vbcrlf) Response.Write(""&vbcrlf) Response.Write("http://biegeng.cn/ver3.0/provide/"&rs("P_forder")&"/"&rs("P_ID")&".html"&vbcrlf) Response.Write(""&rs("P_Editor")&""&vbcrlf) Response.Write(""&rs("P_AddTime")&""&vbcrlf) Response.Write(""&rs("P_Desc")&"]]>"&vbcrlf) Response.Write(""&vbcrlf&vbcrlf) rs.movenext wend set rs=nothing case "video" call title(list&"段視頻") set rs=oConn.execute("Select top "&list&" * From CoolSiteData Where C_Recycle=false ORDER BY C_AddTime DESC") while not rs.eof Response.Write(""&vbcrlf) Response.Write(""&vbcrlf) Response.Write("http://biegeng.cn/ver3.0/video/"&rs("C_SiteClass")&"/"&rs("C_ID")&".html"&vbcrlf) Response.Write(""&rs("C_Editor")&""&vbcrlf) Response.Write(""&rs("C_AddTime")&""&vbcrlf) Response.Write(""&rs("C_SiteDesc")&"]]>"&vbcrlf) Response.Write(""&vbcrlf&vbcrlf) rs.movenext wend set rs=nothing end select %>