XML 分析失败: 没有较好格式化
请问下面的代码错在哪了?
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<!--#include file="curl.asp"-->
<!--#include file="ccnn.inc"-->
<!--#include file="ubb.inc"-->
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<%response.write "<card title='" & urlname & "™'>"%>
<p align='left'>
<%
'.LOGO.
user=request.querystring("user")
if user<>"" then
response.redirect"card.asp?user=" & user &url1
response.end
end if
if len(logo)>1 then
Response.write "<img src='" & logo & "' alt='LOGO...'/><br/>"
end if
'.LOGO.
%>
<%
set rst=server.createobject("ADODB.Recordset")
Sql="select * from class order by ClassID asc"
rst.open Sql,conn,1,1
%>
<%
Dim ad03(3)
ad03(0)="<img src='/lt/logo0.jpg' alt='logo'/>"
ad03(1)="<img src='/lt/logo1.jpg' alt='logo'/>"
ad03(2)="<img src='/lt/logo2.jpg' alt='logo'/>"
ad03(3)="<img src='/lt/logo3.jpg' alt='logo'/>"
Randomize
I=Int(Rnd()*4)
ad=ad03(i)
Response.Write(ad)
%><br/>
<%
'-顶部信息-
if len(wel)>1 then
Response.write ubb2(wel) & "<br/>"
end if
set rs1=server.createobject("ADODB.Recordset")
Sql1="select * from ad where class=1 and open=1"
rs1.open Sql1,conn,1,1
i=1
do while not rs1.eof
i=i+1
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
<%'.广告.
set rs2=server.createobject("ADODB.Recordset")
Sql2="select * from ad where class=2 and open=1"
rs2.open Sql2,conn,1,1
i=1
do while not rs2.eof
Response.write "<a href='" & rs2("url") & url2&"'>" & rs2("name") & "</a><br/>"
i=i+1
rs2.movenext
loop
rs2.close
set rs2=nothing
%>
<a href="http://ad.gtyes.com/ad.asp?id=11126">美女</a>|<a href="http://serv.wapnow.cn/wadc_rl.do?97000080.97000011.e11b1bfe">禁区</a>|<a href="http://ads.dwap.cn/ads1.aspx?id=1,aid=5550">少女</a><br/>
=*动态推荐*=<br/>
<%
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select top 10 + from [urls] where check=1 order by [time] desc"
rs.open rsstr,conn,1,2
dim j
j=1
do while ((not rs.EOF) )
%>
*<a href='view.asp?ids=<%=rs("classid")%>&wid=<%=rs("wid")%><%=url1%>'><%=ubb(rs("site"))%></a><br/>
<%
if j mod 4 = 0 then
response.write ""
end if %>
<%
rs.MoveNext
j=j+1
loop
%>
=*分类排名*=<br/>
<%
if rst.recordcount = 0 then response.write("暂无分类<br/>")
if rst.recordcount > 0 then
i=1
do while not rst.eof
set objgbrs=Server.CreateObject("ADODB.Recordset")
ssql="select top 3 * from urls where classid="&rst("id")&" and check=1 order by rw desc"
objgbrs.open ssql,conn,1,2
%>
[<a href="list.asp?ids=<%=rst("id")%>"><%=ubb(rst("ClassName"))%></a>]
<%
If objgbrs.eof then
Response.write "空缺?"
Else
for i=1 to 3
%><a href='view.asp?ids=<%=objgbrs("classid")%>&wid=<%=objgbrs("wid")%><%=url1%>'><%=ubb(objgbrs("name"))%></a>|<%
objgbrs.Movenext
if objgbrs.EOF then Exit for
Next
End if
objgbrs.Close
set objgbrs=nothing
%><br/><%
i=i+1
rst.movenext
loop
rst.Close
set rst=nothing
end if
%>
=*极品推荐*=
<% '-广告-
set rs3=server.createobject("ADODB.Recordset")
Sql3="select * from ad where class=3 and open=1"
rs3.open Sql3,conn,1,1
i=1
do while not rs3.eof
Response.write "<br/><a href='" & rs3("url") & "'>" & rs3("name") & "</a>"
i=i+1
rs3.movenext
loop
rs3.close
set rs3=nothing
conn.close
set conn=nothing
%>
<br/>
-------------
<br/>
<a href='shuoming.asp'>合作说明</a>‖<a href='add.asp<%=url2%>'>加盟</a><br/>
<a href="search.asp<%=url2%>">站内搜索</a>‖<a href="http://paowa.cn/ly">留言</a><br/>
泡蛙极品导航(<%=Formatdatetime(now(),4)%>)<br/>
QQ:243068396<br/>
<br/>
</p>
</card>
</wml>
