我装了个科林WAP建站程序源码 上传到WEB目录 总是出现语法错误如下
用OPERA打开其他的 像 http://568wap.cn/wapreg.asp 可以进入注册 可是就是显示
错误!
XML 解析失败
XML 解析失败: 语法错误 (行号: 2, 字符: 1)
将文档重解析为 HTML
错误:illegal byte sequence in encoding
规范: http://www.w3.org/TR/REC-xml/#charencoding
1: <?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">
2: <font face="����" size=2>
3: <p>Microsoft OLE DB Provider for ODBC Drivers</font> <font face="����" size=2>���� '80004005'</font>
4: <p>
5: <font face="����" size=2>[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server �����ڻ���ʱ��ܾ�</font>
高手请指教下
源码原文 看有什么错的
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %><% 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">
<%'dim startime
'startime=timer()%><!--#include file="config.asp"--><!--#include file="bbs/wmlubb.asp"--><%
on error resume next
dim i, rsUser,sqlUser,rsUser2,sqlUser2,classid,jump,urlpath,mytype,linkstr,password
siteid="1000"
i=0
classid=0
if request("classid")<>"" then
classid = Clng(split(request("classid"),",")(0))
end if
''''''''''''''''''网上流量统计
if classid<>0 then
conn.execute("update [class] set hits=hits+1 where classid="&classid)
else
conn.execute("DELETE FROM fcount WHERe (DATEDIFF(hh, ftime, GETDATE()) > 1)")
end if
'''''从外部来的流量
if request("linkid")<>"" then
linkid=request("linkid")
if(IsNumeric(linkid)) then
'这里要过滤模拟器登临统计
if instr(agent,"Opera")=0 and instr(agent,"M3Gate")=0 and instr(agent,"timewe")=0 and instr(agent,"wapie")=0 and instr(agent,"NEC-N820 YES")=0 then
conn.execute("update [wap_link] set book_re=book_re+1,last_time='"&now()&"' where id="&linkid)
end if
end if
end if
%><wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
</head><%
if classid<>0 then
if siteright=1 then
if getUserRight(userid,classid)="NO" then
if userid<>"" then
response.write "<card id=""d"" title=""提示""><p>抱歉,您没有权限访问此页面!请与管理员联系!<a href="""&http_start&"wapindex.asp?siteid="&siteid&""">返回</a></p></card></wml>"
response.end
else
response.write "<card id=""d"" title=""提示""><p>抱歉,您还没有登录或您没有权限访问此页面!请与管理员联系!<br/><a href="""&http_start&"waplogin.asp?siteid="&siteid&""">登陆|注册</a><br/><a href="""&http_start&"wapindex.asp?siteid="&siteid&""">返回上一级</a></p></card></wml>"
response.end
end if
end if
end if
end if
jump=Cint(SiteList)
SiteList=1
if classid<>0 then
sqlUser="select a.classname,a.position,a.siteimg,a.siterowremark,a.sitedowntip,a.introduce,a.password,b.typepath,b.type from [class] a,[systype] b where a.typeid=b.typeid and a.classid="&classid&" and a.userid="&siteid
set rsUser=conn.execute(sqlUser)
if not (rsUser.eof or rsUser.bof) then
SiteName= rsUser("classname")
SitePosition =rsUser("position")
LogoUrl=rsUser("siteimg")
siterowremark=rsUser("siterowremark")
SiteDownTip=rsUser("sitedowntip")
SiteUpTip=rsUser("introduce")
password=rsUser("password")
urlpath=rsUser("typepath")
urlpath=replace(urlpath,"&","&")
mytype=rsUser("type")
end if
rsUser.close
set rsUser=nothing
'判断是否需要密码访问
if password<>"" then
if request.queryString("password")="" then
response.write "<card id=""main"" title="""&SiteName&"""><p align=""left"">" & vbnewline
response.write "请输入访问密码：<br/><input title=""输入密码"" name=""password"" format=""*m"" size=""8"" /><anchor><go href="""&http_start&"wapindex.asp?siteid="&siteid&"&classid="&classid&jid2&""" method=""get"" accept-charset=""utf-8""><postfield name=""password"" value=""$(password)""/></go>访问</anchor>" & vbnewline
response.write "<br/><br/><a href="""&http_start&"wapindex.asp?siteid="&siteid&jid2&""">返回首页</a>" & vbnewline
response.write "</p></card></wml>"
response.end
elseif request.queryString("password")<>password then
response.write "<card id=""main"" title="""&SiteName&"""><p align=""left"">" & vbnewline
response.write "密码错误，请重新输入访问密码：<br/><input title=""输入密码"" name=""password"" format=""*m"" size=""8"" /><anchor><go href="""&http_start&"wapindex.asp?siteid="&siteid&"&classid="&classid&jid2&""" method=""get"" accept-charset=""utf-8""><postfield name=""password"" value=""$(password)""/></go>访问</anchor>" & vbnewline
response.write "<br/><br/><a href="""&http_start&"wapindex.asp?siteid="&siteid&jid2&""">返回首页</a>" & vbnewline
response.write "</p></card></wml>"
response.end
end if
end if
end if
%>
<card id="main" title="<%=SiteName%>">
<p align="<%=SitePosition%>">
<%if LogoUrl<>"UploadFiles/no.gif" then%><img src="<%=http_start&LogoUrl%>" alt="load..."/><br/>
<%end if%>
<%if SiteListFlag=1 then%>欢迎您
<%
if userid="" then
%><a href="<%=http_start%>waplogin.asp?siteid=<%=siteid%>">登录|注册</a>
<%else
nickname=getNickName(userid)
%><a href="<%=http_start%>myfile.asp?siteid=<%=siteid%>&userid=<%=userid%><%=jid2%>"><%=nickname%></a>
<%end if%><br/>
<%end if%><%
if Application("static_info")<>"" then
linkstr=linkstr&(Application("static_info"))&"[br]"
end if
%><%
'显示顶部信息
if SiteUpTip<>"" then
linkstr=linkstr&SiteUpTip&"[br]"
end if
%><%
if classid<>0 then
if urlpath <>"null/index.asp" then
linkstr=linkstr&"[url="&http_start&mid(urlpath,1,instrrev(urlpath,"/"))&"book_search.asp?siteid="&siteid&"&classid="&classid&jid2&"]搜索[/url]-[url="&http_start&urlpath&"?siteid="&siteid&"&action=new&classid="&classid&jid2&"]最新[/url]-[url="&http_start&urlpath&"?siteid="&siteid&"&action=hot&classid="&classid&jid2&"]热点[/url][br]"
end if
end if
'显示栏目
dim path,kk
kk=0
sqlUser2="select a.siterowremark,a.ishidden,a.smallimg,b.typepath,b.type,a.classid,a.classname from [class] a,[systype] b where a.userid="&siteid &" and a.childid="&classid&" and a.typeid=b.typeid order by a.rank asc"
set rsUser2=conn.execute(sqlUser2)
while not (rsUser2.eof or rsUser2.bof)
'栏目分行说明
linkstr=linkstr&rsUser2("siterowremark")
if rsUser2("ishidden")<>1 then
if rsUser2("smallimg")<>"" and rsUser2("smallimg")<>"UploadFiles/no.gif" then
linkstr=linkstr&"[img]"&http_start&rsUser2("smallimg")&"[/img]"
end if
topath=replace(rsUser2("typepath"),"&","&")
if Cstr(rsUser2("type"))="42" then
topath="http"
end if
linkstr=linkstr& "[url="&http_start&"wapindex.asp?siteid="&siteid&"&classid="&rsUser2("classid")&"&path="&topath&jid2&"]"&rsUser2("classname")&"[/url] "
end if
i=i+1
rsUser2.movenext
wend
rsUser2.close
set rsUser2=nothing
'startime=timer()
%><!--#include file="VcountConn.asp" --><%
if i=0 and classid<>0 and urlpath<>"null/index.asp" then
if Cstr(mytype)="42" then
if jump=2 then
response.redirect replace(urlpath,"&","&")
response.end
else
toJump(urlpath)
response.end
end if
end if
getpath=right(urlpath,4)
if getpath=".asp" or getpath=".jsp" or getpath=".htm" or getpath=".php" or getpath="aspx" or getpath="html" or getpath=".wml" then
tourl= urlpath&"?siteid="&siteid &"&classid="&classid&jid2'WAP页面显示
elseif getpath=".com" or getpath=".net" or getpath=".org" or right(urlpath,3)=".cn" or right(urlpath,1)="/" then
tourl= urlpath&"/?siteid="&siteid &"&classid="&classid&jid2'WAP页面显示
else
tourl= urlpath&"&siteid="&siteid &"&classid="&classid&jid2'WAP页面显示
end if
'response.write tourl
if jump=2 then
path="http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME")
path=replace(path,"wapindex.asp","")
if left(tourl,4)="http" then
response.redirect replace(tourl,"&","&")
else
response.redirect path&replace(tourl,"&","&")
end if
response.end
else
toJump(tourl)
response.end
end if
end if
%><%
if classid<>0 then
ahead=getpid(classid)
if ahead<>"0" then
linkstr=linkstr&"[br][url="&http_start&"wapindex.asp?siteid="&siteid&"&classid="&ahead&jid2&"]返回上级[/url]"
end if
linkstr=linkstr&"[br][url="&http_start&"wapindex.asp?siteid="&siteid&jid2&"]返回首页[/url]"
end if
linkstr=linkstr&"[br]"&(SiteDownTip)
response.write towml(linkstr)
'dim endtime
'endtime=timer()
'response.write "<br/>页面执行时间："&FormatNumber((endtime-startime)*1000,3)&"毫秒"
call CloseConn()%>
</p>
</card></wml>
<%
sub toJump(tourl)
dim temp
temp=right(tourl,4)
temp2=replace(temp,".","")
if len(temp)=len(temp2) then
tourl=tourl&"&jump=ok"
else
tourl=tourl&"?jump=ok"
end if
response.clear
Response.ContentType="text/vnd.wap.wml; charset=utf-8"
Response.Expires = -1
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "Cache-Control", "no-cache, must-revalidate"
%><?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="max-age=0"/>
<meta http-equiv="Cache-control" content="no-cache" />
</head>
<card id="card3" ontimer="<%=tourl%>" title="请稍后">
<timer value="1"/>
<p align="left">
<br/>
<big>正在加载中...</big>
</p>
<p>如果页面无法跳转请<a href="<%=tourl%>">点击此进入</a>。</p>
</card>
</wml>
<%end sub%>