<% articleid=CLng(Request("id")) tid=CLng(Request("tid")) if request.querystring("id")<>"" then sql="select top 15 * from article where typeid="&articleid&" order by dateandtime desc" elseif request.querystring("tid")<>"" then sql="select top 15 * from article where ntypeid="&tid&" order by dateandtime desc" else sql="select top 15 * from article where shenghe=1 order by dateandtime desc" end if Response.ContentType = "text/XML" SrssStr=""&chr(10) SrssStr=SrssStr & ""&chr(10) SrssStr=SrssStr&""&chr(10) SrssStr=SrssStr&" "&chr(10) SrssStr=SrssStr&" "&weburl&" RSS"&chr(10) SrssStr=SrssStr&" "&wzxt&""&chr(10) SrssStr=SrssStr&" zh-cn"&chr(10) SrssStr=SrssStr&" 超简单文章更新系统"&chr(10) SrssStr=SrssStr&" "&mail&""&chr(10) set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then SrssStr=SrssStr&" "&chr(10) SrssStr=SrssStr&" "&chr(10) SrssStr=SrssStr&" "&wzxt&""&chr(10) SrssStr=SrssStr&" 无内容"&chr(10) SrssStr=SrssStr&" "&now()&"" &chr(10) SrssStr=SrssStr&" "&chr(10)&chr(10) end if do while not rs.eof strskoftName=rs("content") SrssStr=SrssStr&" "&chr(10) SrssStr=SrssStr&" "&chr(10) SrssStr=SrssStr&" http://www.gy16.com/cg/info/"&rs("newsid")&"-1.htm"&chr(10) SrssStr=SrssStr&" "&chr(10) SrssStr=SrssStr&" "&rs("dateandtime")&"" &chr(10) SrssStr=SrssStr&" "&chr(10)&chr(10) rs.movenext loop rs.close conn.close set conn=nothing SrssStr=SrssStr&""&chr(10) SrssStr=SrssStr&""&chr(10) Response.Write SrssStr%>