应有一个字符串文字, 但找不到左引号。处理资源 '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
%>
[返回] 中文XML论坛 - 专业的XML技术讨论区 →
XML.ORG.CN讨论区 - XML技术 → 『 XML源码及示例(仅原创和转载) 』 → xml出问题了,大家帮小弟个忙!
(订阅本版)
2006/5/19 17:46:00
新浪微博
xml出问题了,大家帮小弟个忙!
