📄 index.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/cardshop.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_cardshop_STRING
Recordset1.Source = "SELECT * FROM game ORDER BY gamename ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim turn
Dim turn_numRows
Set turn = Server.CreateObject("ADODB.Recordset")
turn.ActiveConnection = MM_cardshop_STRING
turn.Source = "SELECT * FROM turn"
turn.CursorType = 0
turn.CursorLocation = 2
turn.LockType = 1
turn.Open()
turn_numRows = 0
%>
<html>
<head>
<title>：：：在线充值系统：：：</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_validateForm() { //v4.0
var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
if (val) { nm=val.name; if ((val=val.value)!="") {
if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
} else if (test!='R') { num = parseFloat(val);
if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
min=test.substring(8,p); max=test.substring(p+1);
if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
} if (errors) alert('The following error(s) occurred:\n'+errors);
document.MM_returnValue = (errors == '');
}
//-->
</script>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body background="pic/bg.gif" vlink="#000000">
<% If (turn.Fields.Item("turnno").Value)="on" Then %>
<table width="92%" border="0">
<tr>
<td><img src="pic/banner.png"></td>
</tr>
</table>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="770" height="42">
<param name="movie" value="pic/menu.swf">
<param name="quality" value="high">
<embed src="pic/menu.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="770" height="42"></embed></object>
<table width="767" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td background="pic/background.gif">
<div align="center"><img src="pic/bian.gif" width="53" height="160"></div></td>
<td width="88%"><table width="699" border="0" align="center" cellpadding="0" cellspacing="0">
<%
do while not recordset1.eof
%>
<tr>
<% for i=1 to 4 %>
<td width="695" height="139" align="center" valign="middle" background="pic/bg_paper_box_04.gif" class="hittd">
<font size="2">
<% If not recordset1.eof Then
If Recordset1.Fields.Item("gamepic").Value="NA" Then %>
<img src="admin/na.gif" width="145" height="102">
<% Else %>
<img src="admin/pic/<%=(Recordset1.Fields.Item("gamepic").Value)%>" width="145" height="102">
<% End If
End If %>
<br>
<% If not recordset1.eof Then %>
<a href="doit.asp?gamename=<%=(Recordset1.Fields.Item("gamename").Value)%>"><%=(Recordset1.Fields.Item("gamename").Value)%></a>
<% End If %>
</font></td>
<%
if not recordset1.eof then
recordset1.movenext()
else
exit for
end if
next %>
</tr>
<% loop %>
</table></td>
</tr>
</table>
<% Else %>
正在更新数据，本站暂停1分钟
<% End If %>
<table width="767" border="0" align="center">
<tr>
<td width="27%" height="391" valign="top">
<table width="200" height="126" border="1" cellpadding="0" cellspacing="1" bordercolor="#0066CC" bgcolor="#E2FFE1">
<tr>
<td width="215" height="16" align="center" background="pic/bbs_t01.gif" bgcolor="#0066CC"><font color="#3300FF" size="2"><strong>.::
网 站 公 告 ::.</strong></font></td>
</tr>
<TR>
<TD height=108 align=middle bgcolor="#E8F0FF"> <font size="2">
<MARQUEE id=info onmouseover=info.stop()
onmouseout=info.start() scrollAmount=1 direction=up
width=175 height=100>
<FONT
color=#0000ff> 欢迎使用游戏点卡充值系统，这里是演示程序，<a href="admin/login.asp" target="_blank">点击这里进入后台的管理地址</a>
用户名:<font color="#FF0000">admin</font> 密码：<font color="#FF0000">admin</font>
</FONT>
</MARQUEE>
</font></TD>
</TR>
</table>
<table width="200" border="1" cellpadding="0" cellspacing="1" bordercolor="#0066CC" bgcolor="#E2FFE1">
<tr>
<td height="16" align="center" background="pic/bbs_t01.gif" bgcolor="#0066CC"><font color="#0000FF" size="2"><strong>.::
充 值 系 统 ::.</strong></font></td>
</tr>
<tr>
<td height="209" valign="top" bgcolor="#E8F0FF"> <p align="center"><font size="2"><a href="doit.asp?gamename=%B4%AB%C6%E6%CA%C0%BD%E7%B0%FC%D4%C2%BF%A8" target="_blank"><font color="#0066FF">传奇世界包月卡</font></a><br>
<br>
<a href="rx.asp?gamename=%C8%C8%D1%AA%B4%AB%C6%E6%D4%C2%BF%A8" target="_blank"><font color="#0066FF">热血传奇月卡</font></a><br>
<br>
<a href="doit.asp?gamename=%B4%AB%C6%E63%D4%C2%BF%A8" target="_blank"><font color="#0066FF">传奇3月卡</font></a><br>
<br>
<a href="doit.asp?gamename=%B4%AB%BC%D2%B1%A6%D4%C2%BF%A8" target="_blank"><font color="#0066FF">传家宝月卡</font></a>
<br>
<br>
<a href="doit.asp?gamename=%BC%AB%C6%B72%D4%C2%BF%A8" target="_blank"><font color="#0066FF">极品2月卡</font></a><br>
<br>
<a href="doit.asp?gamename=%B4%AB%CA%C0%C8%E7%D2%E2%BC%B0%CA%B1%D3%EA%D4%C2%BF%A8" target="_blank"><font color="#0066FF">传世如意及时雨月卡</font></a><br>
<br>
</font></p></td>
</tr>
</table></td>
<td width="57%" valign="top"> <table width="100%" border="1" cellspacing="1" bordercolor="#0066CC">
<tr>
<td align="center" background="pic/tiao7.jpg"> </td>
</tr>
<tr>
<td height="167" bgcolor="#E8F0FF">
<form action="search.asp" method="post" name="form1" onSubmit="MM_validateForm('cardpass','','R');return document.MM_returnValue">
<p align="center"> </p>
<p align="center">请输入充值卡号:
<input name="cardname" type="text" id="cardname">
</p>
<p align="center"> 请输入卡的密码:
<input name="cardpass" type="password" id="cardpass">
</p>
<p align="center">
<input type="submit" name="Submit" value="查询">
</p>
</form></td>
</tr>
</table>
<p> </p></td>
<td width="16%" valign="top">
<table width="200" height="194" border="1" cellpadding="0" cellspacing="1" bordercolor="#0066CC" bgcolor="#E2FFE1">
<tr>
<td width="219" height="16" align="center" background="pic/bbs_t01.gif" bgcolor="#0066CC"><font color="#0066FF" size="2"><strong>.::
客 户 服 务 ::.</strong></font></td>
</tr>
<tr>
<td align="left" valign="top" bgcolor="#E8F0FF"> <p><font color="#0066FF" size="2">客服<img src="pic/QQ.gif" alt="QQ" width="27" height="29">:<font color="#FF0000">85108558</font></font></p>
<p><font color="#0066FF" size="2">投拆<img src="pic/QQ.gif" alt="QQ" width="27" height="29">:<font color="#FF0000">85108558</font></font></p>
<p><font color="#0066FF" size="2"><img src="pic/mail.gif" width="25" height="28">:<a href="mailto:mail@youname.com">mail@youname.com</a></font><font color="#0066FF" size="2"><br>
</font> </p>
<p><font color="#FF0000" size="2">网站上班时间为上午8:30到晚上23:00 在上班时间充值完成后，5-15分钟后即可使用!30分钟后若有问题请与客服联系，如在下班时间充值，要等到上班激活后才可正常使用。
</font></p></td>
</tr>
</table>
<table width="200" height="62" border="1" cellpadding="0" cellspacing="1" bordercolor="#0066CC" bgcolor="#E2FFE1">
<tr>
<td width="219" height="16" align="center" background="pic/bbs_t01.gif" bgcolor="#0066CC"><font color="#0066FF" size="2"><strong>.::
充 值 注 意 ::.</strong></font></td>
</tr>
<tr>
<td height="41" valign="top" bgcolor="#E8F0FF">
<p><font color="#FF0000" size="2"><strong>充值时请注意：充值卡的卡号前三位为字母,后六位为数字。字母区分大小写</strong></font></p></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
turn.Close()
Set turn = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -