-- 作者：zhoukanpei
-- 发布时间：5/19/2006 5:46:00 PM
-- xml出问题了,大家帮小弟个忙!
应有一个字符串文字, 但找不到左引号。处理资源 'http://218.13.33.149:82/GGTZ/RssFeed_books1.asp' 时出错。第 7行，位置: 23 <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
%>
|