<font face="宋体" size=2>

源代码:

<!-- #Include File="../include/conn.asp"-->
<%
Dim sSQL,rs,sCrLf,sXmlClear,sRssHead,sRssEnd
sCrLf = chr(13) & chr(10)  '代表回车+换行
sXmlClear="<?xml version='1.0' encoding='gb2312'?>" & sCrLf
sRssHead ="<rss version='2.0'>" & sCrLf
sRssHead = sRssHead & "<channel>" & sCrLf
sRssHead = sRssHead & "<title>催书通知单</title>" & sCrLf
sRssHead = sRssHead & "<description>催书通知单,望有关更新信息,请大家注意!</description>" & sCrLf
sRssHead = sRssHead & "<link>http://218.13.33.149/index.jsp</link>" & sCrLf
sRssHead = sRssHead & "<language>zh-cn</language>" & sCrLf

sRssEnd = "</channel></rss>"

Response.CharSet="gb2312"  '数据集
Response.ContentType="text/xml"  '数据流格式定义

'输出：
Response.write sXmlClear
Response.write sRssHead

sSQL = "select 读者证号,读者姓名,索取号,条形码,正题名,借出时刻,限还时刻 from vjyxxb where datediff(day,限还时刻,getdate()) >-3 order by 读者证号"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sSQL, s_Conn, 1, 1
  if not (rs.eof and rs.bof) then
    do while not rs.eof
      response.write "<item>" & sCrLf
      response.write "<title> " & rs("读者姓名") & " </title>" & sCrLf
      response.write "<link> " & "http://218.13.33.149:82/GGTZ/CUISHU.ASP" & "</link>" & sCrLf
      response.write "<description> ""你有下列书即将到期或超期,请登录查询你所将到期或超期的图书.."" </description>" & sCrLf
      response.write "</item>" & sCrLf & sCrLf
      rs.movenext
    loop
  end if
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing

  Response.write sRssEnd
%>