-- 作者：mmss
-- 发布时间：11/21/2007 3:19:00 PM
-- [求助]XML 分析失败: 没有较好格式化?
大家帮忙看下到底哪里错了？
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?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">
<!--#include file="conn.inc"-->
<%set rss=Server.CreateObject("ADODB.Recordset")
rsppls="select * from wap_jb where id=1"
rss.open rsppls,conn,1,2
nnn=rss("wap_name")
wwww=rss("wap_logo")
ggg=rss("wap_bm")
hhjr=rss("wap_jr")
hhzr=rss("wap_zr")
hhzl=rss("wap_zl")
hhdq=rss("wap_dq")
zzzttt=rss("wap_zt")
oooppp=rss("mmop")
aaadd=rss("wap_bm")
if aaadd="" then aaadd="left"
yyymmm=rss("ym_zt")
%>
<%r=request("r")
channelid=request("channelid")
page=request("page")
bbqq=request("bbqq")
docid=request("docid")
textpage=request("textpage")
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"UTF-8")
set http=nothing
if err.number<>0 then err.Clear
end function
Function bytestobstr(body,CSET)
DIM OBJSTREAM
SET OBJSTREAM = Server.CreateObject("adodb.stream")
objstream.type = 1
objstream.Mode = 3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.type = 2
objstream.Charset=Cset
bytesTobstr = objstream.readText
objstream.close
set objstream=nothing
end function%>
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<card id="main" title="<%=nnn%>" >
<p align="<%=aaadd%>">
<%
if len(wwww)>7 then
response.write("<img src='" & wwww & "' alt='"&nnn&"'/><br/>")
end if
if yyymmm<>"1" then
response.write("" & rss("wap_ym") & "<br/>")
end if
%>
<%if rss("mmop")=1 then%>
<%browsers=Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4))
if browsers="oper" or browsers="winw" or browsers="wapi" or browsers="mc21" or browsers="up.b" or browsers="upg1" or browsers="upsi" or browsers="qwap" or browsers="jigs" or browsers="java" or browsers="alca" or browsers="wapj" or browsers="cdr/" or browsers="nec-" or browsers="fetc" or browsers="r380" or browsers="winw" or browsers="mozi" or browsers="mozi" or browsers="m3ga" then response.redirect"sorr.asp"
end if
if rss("wap_zt")=1 then%>
站点维护中。。。。
<%else%> <%set rs=Server.CreateObject("ADODB.Recordset")
rsppl="select * from wap_lm where lx<>500 and yc<>1 and did=0 order by pid asc"
rs.open rsppl,conn,1,2
if rs.eof then
response.write("网站建设中。。<br/>")
else
rs.Move(0)
dim j
j=1
do while ((not rs.EOF) and j <=500000)%>
<%if rs("lx")="1" then%>
<%=ubb(rs("txt"))%>
<%elseif rs("lx")="2" then%>
<a href="<%=ubb(rs("txt"))%>"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="3" then%>
<img rsc="<%=ubb(rs("txt"))%>" alt="<%=ubb(rs("nxn"))%>"/>
<%elseif rs("lx")="4" then%>
<a href="<%=ubb(rs("url"))%>"><img rsc="<%=ubb(rs("txt"))%>" alt="<%=ubb(rs("nxn"))%>"/></a>
<%elseif rs("lx")="5" then%>
<a href="list.asp?id=<%=ubb(rs("id"))%>"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="6" then%>
<a href="view.asp?id=<%=ubb(rs("id"))%>"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="7" then%>
<a href="wml.asp?id=<%=rs("id")%>"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="8" then%>
<%=ubb2(rs("txt"))%>
<%elseif rs("lx")="9" then%>
<%=rs("txt")%>
<%elseif rs("lx")="10" then%>
<a href="wlist.asp?id=<%=ubb(rs("id"))%>&page=1"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="11" then%>
<a href="dowm.asp?id=<%=ubb(rs("id"))%>&page=1"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="12" then%>
<a href="soft.asp?id=<%=ubb(rs("id"))%>&page=1"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="13" then%>
<a href="piclist.asp?id=<%=ubb(rs("id"))%>&page=1"><%=ubb(rs("nxn"))%></a>
<%end if%>
<%if rs("dy")="1" then%>
<!--#include file="xw.asp"-->
<%end if%>
<%if rs("dy")="2" then%>
<br/><!--#include file="sy.asp"-->
<%end if%>
<%if rs("dy")="3" then%>
<br/><!--#include file="ad.asp"-->
<%end if%>
<%if rs("dy")="4" then%>
<br/><!--#include file="xt.asp"-->
<%end if%>
<%if rs("dy")="5" then%>
<br/><!--#include file="yl.asp"-->
<%end if%>
<%if rs("dy")="6" then%>
<br/><!--#include file="rt.asp"-->
<%end if%>
<%if rs("dy")="7" then%>
<br/><!--#include file="zxwz.asp"-->
<%end if%>
<%if rs("dy")="8" then%>
<br/><!--#include file="zrwz.asp"-->
<%end if%>
<%if rs("dy")="9" then%>
<br/><!--#include file="zxsc.asp"-->
<%end if%>
<%if rs("brr")="1" then%><br/><%end if%>
<%
rs.MoveNext
j=j+1
loop
end if
%>
<%if hhzl<>"1" or hhjr<>"1" or hhzr<>"1" then%>
<br/>----------<br/>
<%end if%>
<%if hhzl<>"1" then%>
访问总量:<%=zdfw%><br/>
<%end if%>
<%if hhjr<>"1" then%>
今日访问:<%=jtfw%><br/>
<%end if%>
<%if bbqq<>"" then%>
授权QQ：╰皇者辉少и<br/>
Q号32298使用<br/>
2007-06-13<br/>
<%end if%>
<%if hhdq<>"1" then%>
当前在线:<%=Application("OnLine")%>人
<%end if%>
<%end if%>
<br/>此程序由<a href="http://32298.cn">wap</a>提供，版权归原作者所有<br/>
技术QQ：32298 </p></card></wml>
|