<% dim url,rs,strSQL,i dim arrProducts,rowsProducts dim arrCases,rowsCases dim strXml url = "http://www.lapuasi.com/" strXml = "" strXml = strXml & "" strXml = strXml & "" strXml = strXml & "" strXml = strXml & "http://www.lapuasi.com/" strXml = strXml & "Lapuasi's Programs Design (ASP) | [Lapuasi.com]" strXml = strXml & "zh-cn" strXml = strXml & "lapuasi@yahoo.com.cn" strXml = strXml & "lapuasi@yahoo.com.cn" strXml = strXml & "www.Lapuasi.com" strXml = strXml & "http://www.lapuasi.com/rss2.asp" set rs=Server.CreateObject("ADODB.Recordset") strSQL="Select * From products Order By product_id Asc" rs.open strSQL,conn,0,1 if not rs.bof and not rs.eof then arrProducts=rs.GetRows rowsProducts=UBound(arrProducts,2) else rowsProducts=-1 end if rs.Close set rs=nothing call closeDataBase() 'Output Products Information 'strXml=strXml & " " if rowsProducts=-1 then strXml=strXml & "" strXml=strXml & "" strXml=strXml & "暂无" strXml=strXml & "" & now() & "" strXml=strXml & "" else for i=0 to rowsProducts strXml=strXml & "" strXml=strXml & "" strXml=strXml & "" strXml=strXml & "" & arrProducts(5,i) & "" strXml=strXml & "" next end if 'strXml=strXml & " " strXml = strXml & "" strXml = strXml & "" Response.ContentType = "text/xml" Response.Write strXml %>