请求帮助。。。。。谢谢
Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象: ''
/test.asp，行 158
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/lib.asp"-->
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="惊天动地私服,变态惊天动地私服,新开惊天动地国际私服,网通惊天动地私服,惊天动地SF,惊天动地私服发布网,找惊天动地私服,今天新开惊天动地私服">
<meta name="description" content="全国规模最大惊天动地私服宣传基地找新开惊天动地私服,变态惊天动地私服,找网通惊天动地私服.惊天动地私服技术文章信息,电信网通各线路惊天动地私服和最牛B的惊天动地SF万能登陆器这里总有你想要的。.">
<meta name="robots" content="all">
<meta name="AUTHOR" content="惊天动地私服,
<script language="javascript" src="images/swfobject2.js"></script>
<script src="inc/title.js" type="text/javascript"></script>
<title>惊天动地私服,惊天动地国际私服,新开惊天动地私服,变态惊天动地私服</title>
<link href="IMAGES/style.css" rel="stylesheet" type="text/css"/>
<script language="vbscript">
function checkform()
Set regEx = New RegExp
struserid = Document.form.UserName.value
if struserid = "" then
msgbox("请输入你的帐号！")
document.form.UserName.focus()
checkform=false
exit function
end if
regEx.Pattern = "\W"
regEx.IgnoreCase = false
Set Match = regEx.Execute(struserid)
if Match.count>0 then
msgbox("您的帐号不符合规则!")
document.form.UserName.focus()
checkform=false
exit function
End if
set Match = nothing
if len(struserid) < 4 or len(struserid)>12 then
msgbox("帐号长度不正确，请输入长度4-12位的帐号！")
document.form.UserName.focus()
checkform=false
exit function
end if
if len(document.form.password.value) < 4 or len(document.form.password.value) > 18 then
msgbox("错误的密码长度,请输入长度4-18位的密码！")
document.form.password.focus()
checkform=false
exit function
end if
if instr(document.form.password.value," ") > 0 then
msgbox("密码中不能有空格")
document.form.password.focus()
checkform=false
exit function
end if
if (document.form.checkcode.value = "") then
msgbox("请输入验证码！")
document.form.checkcode.focus()
checkform=false
exit function
end if
document.form.action="checklogin.asp"
return true
end function
</script>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#0C0C0C" onLoad="if(top!=window) top.location.href=window.location.href" style="background-color: #0D0D0D">
<table border="0" width="1002" style="border-collapse: collapse">
<tr>
<td height="48" background="images/indexbg_r1_c1.jpg">
<div align="right">
<table border="0" width="90%" cellpadding="0" style="border-collapse: collapse">
<tr>
<td>
<div align="right">
<table border="0" width="754" cellpadding="0" style="border-collapse: collapse">
<tr>
<td>
<img border="0" src="images/lan_r1_c1.gif" width="48" height="31"></td>
<td>
<a href="index.asp">
<img border="0" src="images/lan_r1_c2.gif" width="59" height="31"></a></td>
<td>
<a href="news.asp">
<img border="0" src="images/lan_r1_c3.gif" width="87" height="31"></a></td>
<td>
<a href="Login.asp">
<img border="0" src="images/lan_r1_c4.gif" width="87" height="31"></a></td>
<td>
<a href="down.asp">
<img border="0" src="images/lan_r1_c5.gif" width="87" height="31"></a></td>
<td>
<a href="shoplist.asp">
<img border="0" src="images/lan_r1_c6.gif" width="87" height="31"></a></td>
<td>
<a href="pay.asp">
<img border="0" src="images/lan_r1_c7.gif" width="87" height="31"></a></td>
<td>
<a href="Contact.asp">
<img border="0" src="images/lan_r1_c8.gif" width="87" height="31"></a></td>
<td>
<a href="/bbs">
<img border="0" src="images/lan_r1_c9.gif" width="74" height="31"></a></td>
<td>
<img border="0" src="images/lan_r1_c10.gif" width="51" height="31"></td>
</tr>
</table>
</div>
</td>
<td width="71"> </td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td height="88" background="images/indexbg_r2_c1.jpg"> </td>
</tr>
<tr>
<td height="121" background="images/indexbg_r3_c1.jpg"> </td>
</tr>
<tr>
<td height="103" background="images/indexbg_r4_c1.jpg"> </td>
</tr>
<tr>
<td height="143" background="images/indexbg_r5_c1.jpg"> </td>
</tr>
<tr>
<td height="153" background="images/indexbg_r6_c1.jpg"> </td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<div style="position: absolute; width: 923px; height: 965px; top: 293px; margin-right:auto; left:37px" id="main">
<table border="0" width="100%" style="border-collapse: collapse" cellpadding="0">
<tr>
<td valign="top" width="226">
<table border="0" width="100%" cellpadding="0" style="border-collapse: collapse" height="946">
<tr>
<td valign="top" height="86" background="images/left_r1_c1.gif" colspan="3"> </td>
</tr>
<tr>
<td valign="top" background="images/left_r5_c1.gif" width="15"> </td>
<td valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="871">
<tr>
<td height="154">
<div align="center">
<form name='form' name="thisForm" id="thisForm" method='post' action='' onSubmit="javascript:return checkform();">
<table border="0" width="94%" style="border-collapse: collapse">
<tr>
<td width="74" align="right"><b>游戏帐号:</b></td>
<td>
<input name="UserName" type="text" class="inp3" id="textfield" size="16"></td>
</tr>
<tr>
<td width="74" align="right"><b>游戏密码:</b></td>
<td>
<input name="password" type="password" class="inp3" id="textfield0" size="16"></td>
</tr>
<tr>
<td width="74" align="right"><b>验证码:</b></td>
<td>
<input name="CheckCode" type="text" class="inp3" id="textfield1" size="16"></td>
</tr>
<tr>
<td width="74" height="10"></td>
<td height="10"><script language = javascript>
function refreshimg(){
document.all.checkcode.src = 'inc/checkcode.asp';}
</script>
<a href="javascript:refreshimg()"><img class="checkcode" id='checkcode' src='inc/CheckCode.Asp' border="0"><a></td>
</tr>
<tr>
<td colspan="2">
<p align="center">
<input class="inp4" type="submit" value=" 登陆 " name="B1">
<input class="inp4" type="button" value=" 注册 " name="B2" onClick="location.href='register.html'"></td>
</tr>
<tr>
<td colspan="2">
<p align="center"><b>
<a target="_blank" href="Password.asp">修改密码</a>
<a target="_blank" href="Getpass.asp">忘记密码</a></b></td>
</tr>
</table></form>
</div>
</td>
</tr>
<tr>
<td background="images/bott.gif" height="36">
<p align="center"><b>热门商品</b></td>
</tr>
<tr>
<td height="394">
<div align="center">
<table border="0" width="90%" height="348">
<tr>
<td height="243">
<%
set rs = server.createobject("adodb.recordset")
sql="select top 9 * from [Sp_Shopping] order by Hits desc"
rs.open sql,connweb,1,3
if rs.eof then
rs.close
response.write "暂时无任何商品"
else
for i=1 to 9
%>
<p align="center"><div id="fresh_<%=i%>" style="display: none; overflow: hidden;">
<div id="shoppic">
<p align="center"><img alt="<%=rs("Name")%>" src="<%=rs("img")%>" border="0" width="92" height="92"/></div>
<div id="shopbut">
<p align="center"><a href="shopitem.asp?id=<%=rs("id")%>" target="_blank"><img src="images/but.jpg" border="0" alt="立即购买 <%=rs("Name")%>" /></a></div>
<div id="shoptext"><ul><li>原价：<%=rs("Price")%>点数</li>
<li>Vip价：<%=rs("Price")*VipShopA%>点数</li>
<li><font color="#00FF00">限量：<%=rs("num")%> 件</font></li></ul></div>
</div>
<%rs.movenext
next
rs.close
end if
%>
</td>
</tr>
<tr>
<td><div style="width:150px; margin-left:26px; margin-bottom:9px;">
<%
sql="select top 9 * from [Sp_Shopping] order by Hits desc"
rs.open sql,connweb,1,3
if rs.eof then
rs.close
response.write "暂时无任何商品"
else
for i=1 to 9%>
<div class="spic" onmouseover="showFresh('<%=i%>');"><a href="shopitem.asp?id=<%=rs("id")%>" target="_blank"><img src="<%=rs("img")%>" border="0" width="40" height="40" alt="<%=rs("Name")%>"></a></div>
<%rs.movenext
next
rs.close
end if
%>
</div>
</td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td background="images/bott.gif" height="36">
<p align="center"><b>服务特色</b></td>
</tr>
<tr>
<td valign="top">
<p align="center" style="line-height: 200%">
<br>
<br>
<a target="_blank">
<img src="images/1.jpg" border="0" alt="" width="205" height="23" /></a><br>
<a target="_blank">
<img src="images/2.jpg" border="0" alt="" width="205" height="23" /></a><br>
<a target="_blank">
<img src="images/3.jpg" border="0" alt="" width="205" height="23" /></a><br>
<a target="_blank">
<img src="images/4.jpg" border="0" alt="" width="205" height="23" /></a><br>
<a target="_blank">
<img src="images/5.jpg" border="0" alt="" width="205" height="23" /></a><br>
<a target="_blank">
<img src="images/6.jpg" border="0" alt="" width="205" height="23" /></a></td>
</tr>
</table>
</td>
<td valign="top" background="images/left_r5_c3.gif" width="6"> </td>
</tr>
</table>
</td>
<td valign="top" width="471">
<table border="0" width="100%" cellpadding="0" style="border-collapse: collapse">
<tr>
<td background="images/cen_r1_c1.gif" height="57" colspan="3"> </td>
</tr>
<tr>
<td background="images/cen_r2_c1.gif" height="38" colspan="3" width="471">
<p align="center"><b>新闻公告</b></td>
</tr>
<tr>
<td background="images/cen_r3_c1.gif" width="12"> </td>
<td height="192" bgcolor="#000000" valign="center" width="446">
<div align="center">
<table border="0" width="410">
<%
sql = "select top 7 * from [Sp_article] where type<2 order by date desc"
rs.open sql,connweb,1,1
if rs.eof then
response.write "<tr><td width=410 height=23>目前无任何新闻！！！</td></tr>"
else
do while not rs.eof
%>
<tr>
<td width="410" height="23" background="images/line.gif">
<table border="0" width="100%" style="border-collapse: collapse">
<tr>
<td width="12"> </td>
<td width="75"><%select case rs("type")
case "0"
response.write "<a href=News.asp?typeid=0 target=_blank><font color=CCCCCC>[游戏新闻]</font></a>"
case "1"
response.write "<a href=News.asp?typeid=1 target=_blank><font color=CCCCCC>[活动公告]</font></a>"
end select
%></td>
<td><a href="shownews.asp?id=<%=rs("id")%>" target="_blank" title="文章标题：<%=rs("title")%><br>文章作者：<%=rs("writer")%><br>文章来源：<%=rs("copyright")%><br>更新日期：<%=rs("date")%>"><%=left(rs("title"),20)%></a></td>
<td width="53"><font class=copyriht color=#929292>
<p align="right"><%=month(rs("date"))%>月<%=day(rs("date"))%>日</font></td>
</tr>
</table>
</td>
</tr>
<%
rs.movenext
loop
end if
rs.close
%>
</table>
</div>
</td>
<td background="images/cen_r3_c5.gif" width="13"> </td>
</tr>
<tr>
<td background="images/cen_r2_c1.gif" height="38" colspan="3" width="471">
<p align="center"><b>游戏指南</b></td>
</tr>
<tr>
<td background="images/cen_r3_c1.gif" width="12"> </td>
<td bgcolor="#000000" height="192" width="446" valign="top">
<div align="center">
<table border="0" width="410">
<%
sql = "select top 7 * from [Sp_article] where type=4 order by date desc"
rs.open sql,connweb,1,1
if rs.eof then
response.write "<tr><td width=410 height=23>目前无任何新闻！！！</td></tr>"
else
do while not rs.eof
%>
<tr>
<td width="410" height="23" background="images/line.gif">
<table border="0" width="100%" style="border-collapse: collapse">
<tr>
<td width="12"> </td>
<td width="75"><a href=News.asp?typeid=4 target=_blank><font color=CCCCCC>[指南攻略]</font></a>
</td>
<td><a href="shownews.asp?id=<%=rs("id")%>" target="_blank" title="文章标题：<%=rs("title")%><br>文章作者：<%=rs("writer")%><br>文章来源：<%=rs("copyright")%><br>更新日期：<%=rs("date")%>"><font color=FF6600><%=left(rs("title"),20)%></font></a></td>
<td width="53"><font class=copyriht color=#929292>
<p align="right"><%=month(rs("date"))%>月<%=day(rs("date"))%>日</font></td>
</tr>
</table>
</td>
</tr>
<%
rs.movenext
loop
end if
rs.close
%>
</table>
</div>
</td>
<td background="images/cen_r3_c5.gif" width="13"> </td>
</tr>
<tr>
<td background="images/cen_r2_c1.gif" height="37" colspan="3" width="471">
<p align="center"><b>精彩截图</b></td>
</tr>
<tr>
<td background="images/cen_r3_c1.gif" width="12"> </td>
<td bgcolor="#000000" height="162" width="446">
<table cellspacing="0" cellpadding="0" align="center" border="0">
<tr>
<%
sql="select top 3 * from [Sp_pic] where isbest=1 order by id DESC"
rs.open sql,connweb,1,1
if rs.eof then
response.write "<td>没有任何图片信息</td>"
rs.close
else
do while not rs.eof%>
<td width=148 align=center>
<a href="showimg.asp?id=<%=rs("id")%>" target="_blank"><img src="<%=rs("imgurl")%>" width=140 height=100 alt="<img src=<%=rs("imgurl")%> border=0 width=320 height=240><br>图片标题：<%=rs("title")%><br>图片作者：<%=rs("writer")%><br>图片来源：<%=rs("copyright")%><br>更新日期：<%=rs("date")%>" border=0>
<br>图片名称：<%=left(rs("title"),7)%></a><br>图片分类：<%select case rs("type")
case "0"
response.write "<a href=Images.asp?typeid=0 target=_blank><font color=CCCCCC>[游戏截图]</font></a>"
case "1"
response.write "<a href=Images.asp?typeid=1 target=_blank><font color=CCCCCC>[玩家风采]</font></a>"
end select
%>
</td>
<%
rs.movenext
loop
rs.close
end if
%>
</tr>
</table>
</td>
<td background="images/cen_r3_c5.gif" width="13"> </td>
</tr>
<tr>
<td background="images/cen_r5_c1.gif" height="38" colspan="3" width="471">
<div align="center">
<table border="0" width="90%" style="border-collapse: collapse">
<tr>
<td>
<p align="center"><b>心情故事</b></td>
<td>
<p align="center"><b>经验心得</b></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td background="images/cen_r3_c1.gif" width="12"> </td>
<td bgcolor="#000000" height="162" width="446">
<div align="center">
<table border="0" width="100%" height="200" style="border-collapse: collapse">
<tr>
<td width="222" valign="top">
<div align="center">
<table border="0" width="200">
<%
set rs = server.createobject("adodb.recordset")
sql = "select top 7 * from [Sp_article] where type=2 order by date desc"
rs.open sql,connweb,1,1
if rs.eof then
response.write "<tr><td width=200 height=23>目前无任何新闻！！！</td></tr>"
else
do while not rs.eof
%>
<tr>
<td width="200" height="23" background="images/line.gif"> <a href="shownews.asp?id=<%=rs("id")%>" target="_blank" title="文章标题：<%=rs("title")%><br>文章作者：<%=rs("writer")%><br>文章来源：<%=rs("copyright")%><br>更新日期：<%=rs("date")%>"><%=left(rs("title"),13)%></a>
</td>
</tr>
<%
rs.movenext
loop
end if
rs.close
%>
</table>
</div></td>
<td width="2" background="images/cen_r6_c3.gif"></td>
<td width="222" valign="top">
<div align="center">
<table border="0" width="200">
<tr>
<%
sql = "select top 7 * from [Sp_article] where type=3 order by date desc"
rs.open sql,connweb,1,1
if rs.eof then
response.write "<tr><td width=200 height=23>目前无任何新闻！！！</td></tr>"
else
do while not rs.eof
%>
<tr>
<td width="200" height="23" background="images/line.gif"> <a href="shownews.asp?id=<%=rs("id")%>" target="_blank" title="文章标题：<%=rs("title")%><br>文章作者：<%=rs("writer")%><br>文章来源：<%=rs("copyright")%><br>更新日期：<%=rs("date")%>"><%=left(rs("title"),13)%></a>
</td>
</tr>
<%
rs.movenext
loop
end if
rs.close
%> </tr>
</table>
</div>
</td>
</tr>
</table>
</div>
</td>
<td background="images/cen_r3_c5.gif" width="13"> </td>
</tr>
</table>
</td>
<td valign="top" width="226">
<table border="0" width="100%" cellpadding="0" style="border-collapse: collapse" height="946">
<tr>
<td height="77" background="images/right_r1_c1.gif" colspan="3">
<table border="0" width="100%" height="76">
<tr>
<td width="226" height="41"> </td>
</tr>
<tr>
<td>
<p align="center"><b>服务器状态</b></td>
</tr>
</table>
</td>
</tr>
<tr>
<td valign="top" background="images/right_r3_c1.gif" width="6"> </td>
<td valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="787">
<tr>
<td height="94" width="205"> </td>
</tr>
<tr>
<td background="images/bott.gif" height="35">
<p align="center"><b>英雄排行</b></td>
</tr>
<tr>
<td height="139" valign="top">
<div align="center">
<table border="0" width="96%" cellpadding="0" style="border-collapse: collapse">
<%
sql="select top 10 Name,Lev from [cabal_character_table] order by Lev desc"
rs.open sql,conndb,1,1
for k=1 to 10
%>
<tr>
<td width="16" height="23">
<p align="center"><img src=images/<%=k%>.gif width=14 height=14 border=0></td>
<td> <%=rs("Name")%></td>
<td width="42">
<p align="center"><%=rs("Lev")%>级</td>
</tr>
<%
rs.movenext
next
rs.close
%>
</table>
</div>
</td>
</tr>
<tr>
<td height="36" background="images/bott.gif">
<p align="center"><b>客服中心</b></td>
</tr>
<tr>
<td height="131">
<div align="center">
<table border="0" width="90%" style="border-collapse: collapse">
<tr>
<td><b>客服热线:暂未开放<br>
客服QQ:624746666<br>
玩家QQ群:63555105<br>
玩家论坛:<a target="_blank" href="/bbs"><font color="#FF6600">点击进入</font></a><br>
网址:www. color=FFFF00>惊天动地私服</font></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td background="images/bott.gif" height="36">
<p align="center"><b>互动导航</b></td>
</tr>
<tr>
<td>
<p align="center"><br>
<a target="_blank">
<img src="images/R1.jpg" border="0" alt="" width="200" height="60" /></a><br>
<a target="_blank">
<img src="images/R5.jpg" border="0" alt="" width="200" height="60" /></a><br>
<a target="_blank">
<img src="images/R2.jpg" border="0" alt="" width="200" height="60" /></a><br>
<a target="_blank">
<img src="images/R3.jpg" border="0" alt="" width="200" height="60" /></a><br>
<a target="_blank">
<img src="images/R4.jpg" border="0" alt="" width="200" height="60" /></a></td>
</tr>
</table>
</td>
<td valign="top" background="images/right_r3_c3.gif" width="15"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td valign="top" width="226" height="98" background="images/down_r1_c1.gif"> </td>
<td valign="top" width="471" height="98" background="images/down_r1_c2.gif" bgcolor="#000000">
<div align="center">
<table border="0" width="94%" style="border-collapse: collapse" height="76">
<tr>
<td width="189">
<p align="center">抵制不良游戏 拒绝盗版游戏 <br>
注意自我保护 谨防受骗上当 </td>
<td width="69" height="76">
<img border="0" src="images/76.gif" width="69" height="76"></td>
<td width="188">
<p align="center">适度游戏益脑 沉迷游戏伤身 <br>
合理安排时间 享受健康生活</td>
</tr>
</table>
</div>
</td>
<td valign="top" width="226" height="98" background="images/down_r1_c3.gif"> </td>
</tr>
</table>
</div>
<div id="flashbg">
<DIV id="ad2" style="width:561px; height:105px; position:absolute; margin:-14px 0 0 -42px; left: 262px; top: 259px;"></DIV>
</div>
<div style="position: absolute; width: 924px; height: 36px; z-index: 1; left: 36px; top: 1349px" id="layer1">
<p align="center"><font color="#0D0D0D">惊天动地私服,新开惊天动地私服<br>
</font><font color="#FFFFFF">Copyright (C) 2008
<a href="http://www. All Right.<br></font>
<script src='http://' language='JavaScript' charset='gb2312'></script>
</div>
</body>
</html>
<script language="javascript" type="text/javascript">
<!--
var fo = new SWFObject("images/top.swf", "ad", "561", "105", "9", "");
fo.addParam("base", "swf");
fo.addParam("wmode", "transparent");
fo.write("ad2");
//-->
</script>
<script language="javascript" type="text/javascript">
// <![CDATA[
function showFresh(areaId) {
for(var i = 1; i < 10; i++ ) {
document.getElementById("fresh_" + i).style.display = "none";
}
document.getElementById("fresh_" + areaId).style.display = "block";
}
showFresh(1);
// ]] >
</script>
<%
set rs=nothing
%><!--#include file="inc/close.asp"-->