<!--#include file="conn.asp"--><%
Response.Clear
Response.CharSet="utf-8"
Response.ContentType="text/xml"
Response.Write "<?xml version=""1.0"" encoding=""utf-8""?>"&vbNewLine
if right(web,1)<>"/" then web=web&"/"
sRssHead = "<rss version='2.0'>" & vbNewLine 
sRssHead = sRssHead & "<channel>" & vbNewLine 
sRssHead = sRssHead & "<title>"&sitename&"</title>" & vbNewLine 
sRssHead = sRssHead & "<description>"&homepage&"</description>" & vbNewLine 
sRssHead = sRssHead & "<link>"&web&"</link>" & vbNewLine 
sRssHead = sRssHead & "<language>zh-cn</language>" & vbNewLine 
sRssEnd = "</channel></rss>" 
response.write sRssHead
set rs=server.createobject("adodb.recordset")
rs.open "select top 50 * from WrzcNethtml_hw order by hw_id DESC",conn,1,1
do while not rs.eof
response.write "<item><title>"&rs("hw_name")&"</title><link>"&web&"Product/Pro"&rs("hw_id")&".Html</link><price>"&rs("hw_price2")&danwei&"</price><pubDate>"&rs("hw_date")&"</pubDate></item>"
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write sRssend
%>