W3CHINA.ORG讨论区--[求助] XML解析错误：未组织好 <div id=maq style=overflow:hidden;height="768"....

姓名：(无权查看)
城市：(无权查看)
院校：(无权查看)

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="664">
  <tr>
    <td width="100%" height="768">　
    <div id="maq" style=overflow:hidden;height="768";width="100%";backcolor:#FFFFFF>
          <div id="mtext">
    <%
Dim sSQL, rs, sCrLf, sXmlClear, sRssHead, sRssEnd,db,s_Conn
sCrLf = chr(13) & chr(10) '回车+换行
db="database/adsfkldfogowerjnokfdslwejhdfsjhk22.mdb"      '数据库文件的位置
Set conn = Server.CreateObject("ADODB.Connection")
s_Conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open s_Conn
sXmlClear = "<?xml version='1.0' encoding='GBK'?>" & sCrLf

sRssHead = "<rss version='2.0'>" & sCrLf
sRssHead = sRssHead & "<channel>" & sCrLf
sRssHead = sRssHead & "<title>RSS创建示例</title>" & sCrLf
sRssHead = sRssHead & "<description> RSS创建示例</description>" & sCrLf
sRssHead = sRssHead & "<link>http://1234.com/</link>" & sCrLf
sRssHead = sRssHead & "<language>zh-cn</language>" & sCrLf
sRssHead = sRssHead & "<docs>RSS创建示例r</docs>" & sCrLf
sRssHead = sRssHead & "<generator>Rss Generator By 1234.com</generator>" & sCrLf

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

function dvHTMLCode(byval fString)
if isnull(fString) or trim(fString)="" then
dvHTMLCode=""
exit function
end if
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, ""," ")
fString = Replace(fString, """, CHR(34))
fString = Replace(fString, "'", CHR(39))
fString = Replace(fString, "</P><P> ",CHR(10) & CHR(10))
fString = Replace(fString, "<BR> ", CHR(10))
fString = Replace(fString, CHR(10),"<BR> ")
dvHTMLCode = fString
end function

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

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

sSQL="select top 8 * from Article order by ArticleID desc"
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") & " </title>" & sCrLf
response.write "<description><![CDATA["& dvHTMLCode(rs("Content")) &"]]></description>" & sCrLf
'response.write "<link> " & "http://www.1234.com/_news/show_a_new.asp?autoid=" & rs("f_i_autoid") & " </link>" & sCrLf
response.write "<author> " & rs("Author") & " </author>" & sCrLf
'response.write "<pubDate> " & rs("f_datetime") & " </pubDate>" & sCrLf
response.write "</item>" & sCrLf & sCrLf
rs.movenext
loop
end if
rs.close
set rs=nothing

Response.write sRssEnd
%>
  </div>
          <div id="m0"></div>
          </div>
          <script>
var speed=100 //调整滚动速度
m0.innerHTML=mtext.innerHTML
function Marquee(){
if(m0.offsetTop-maq.scrollTop<=0)
maq.scrollTop-=mtext.offsetHeight
else{
maq.scrollTop++
}
}
var MyMar=setInterval(Marquee,speed)
maq.onmouseover=function() {clearInterval(MyMar)}
maq.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
           </script>

    </td>
  </tr>
</table>

</body>

</html>

大侠们，帮忙看下。

[此贴子已经被作者于2010-1-11 16:24:46编辑过]

姓名：(无权查看)
城市：(无权查看)
院校：(无权查看)

<%
Dim sSQL, rs, sCrLf, sXmlClear, sRssHead, sRssEnd,db,s_Conn
sCrLf = chr(13) & chr(10) '回车+换行
db="database/adsfkldfogowerjnokfdslwejhdfsjhk22.mdb" '数据库文件的位置
Set conn = Server.CreateObject("ADODB.Connection")
s_Conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open s_Conn
sXmlClear = "<?xml version='1.0' encoding='GBK'?>" & sCrLf

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

function dvHTMLCode(byval fString)
if isnull(fString) or trim(fString)="" then
dvHTMLCode=""
exit function
end if
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, " "," ")
fString = Replace(fString, """, CHR(34))
fString = Replace(fString, "'", CHR(39))
fString = Replace(fString, "</P><P> ",CHR(10) & CHR(10))
fString = Replace(fString, "<BR> ", CHR(10))
fString = Replace(fString, CHR(10),"<BR> ")
dvHTMLCode = fString
end function

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

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

Response.write sRssEnd
%>

这段程序可以用，但是想加上滚动输出部分程序出错。请帮忙啊

姓名：(无权查看)
城市：(无权查看)
院校：(无权查看)

有没有做过类似的程序的，帮帮忙阿，先谢谢了。

姓名：(无权查看)
城市：(无权查看)
院校：(无权查看)

姓名：(无权查看)
城市：(无权查看)
院校：(无权查看)

<div id="maq" style="overflow:hidden;height:768;width:100%;backcolor:#FFFFFF">
修改之后，还是不能实现滚动。还是要谢谢楼上的


	W 3 C h i n a ( since 2003 ) 旗下站点苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》	6,339.844ms