|
#2
苯苯的神2008-08-04 04:01
<!--#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"--> |
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: ''
/test.asp，行 158