中文XML论坛 - 专业的XML技术讨论区--显示贴子

以文本方式查看主题

-  中文XML论坛 - 专业的XML技术讨论区  (http://bbs.xml.org.cn/index.asp)
--  『 XML基础』  (http://bbs.xml.org.cn/list.asp?boardid=1)
----  [求助] XML解析错误：未组织好  <div id=maq style=overflow:hidden;height="768"....  (http://bbs.xml.org.cn/dispbbs.asp?boardid=1&rootid=&id=79450)

--  作者：xiamenhuli_xujh
--  发布时间：1/11/2010 11:18:00 AM

--  [求助] XML解析错误：未组织好  <div id=maq style=overflow:hidden;height="768"....
<html>
<head>
<head>
<meta http-equiv="content-type" content="text/html; charset=GBK" />
<meta http-equiv="content-language" content="zh-cn" />
<title>内网输出</title>
</head>
</head>
<body>

<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编辑过]

--  作者：xiamenhuli_xujh
--  发布时间：1/11/2010 11:20:00 AM

--
<%
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
%>

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

--  作者：xiamenhuli_xujh
--  发布时间：1/11/2010 4:19:00 PM

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

--  作者：Qr
--  发布时间：1/12/2010 1:07:00 AM

--
<div id="maq" style="overflow:hidden;height:768;width:100%;backcolor:#FFFFFF">

--  作者：xiamenhuli_xujh
--  发布时间：1/12/2010 4:15:00 PM

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

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

78.125ms