<%@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://sczyrk.com/ zh-cn 河南黎明路橋重工有限公司 Rss Generator By 河南黎明路橋重工有限公司 webmaster@lmlq.com <%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://sczyrk.com/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://sczyrk.com/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://sczyrk.com/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&"條問(wèn)答") 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://sczyrk.com/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://sczyrk.com/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://sczyrk.com/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 %> 乾安县| 荔浦县| 岳普湖县| 洱源县| 温泉县| 龙口市| 淮阳县| 林西县| 蕉岭县| 芜湖县| 恩施市| 印江| 康平县| 松潘县| 黄山市| 陵水| 孝义市| 普兰店市| 马关县| 舟曲县| 司法| 屯门区| 大宁县| 凉城县| 西安市| 淳化县| 贵州省| 教育| 县级市| 凌海市| 东乌珠穆沁旗| 百色市| 克什克腾旗| 滁州市| 凌海市| 陆良县| 普兰店市| 榕江县| 靖宇县| 沙坪坝区| 桐乡市|