📄 doit.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/cardshop.asp" -->
<%
Dim game__MMColParam
game__MMColParam = "1"
If (Request.QueryString("gamename") <> "") Then
game__MMColParam = Request.QueryString("gamename")
End If
%>
<%
Dim game
Dim game_numRows
Set game = Server.CreateObject("ADODB.Recordset")
game.ActiveConnection = MM_cardshop_STRING
game.Source = "SELECT * FROM game WHERE gamename = '" + Replace(game__MMColParam, "'", "''") + "'"
game.CursorType = 0
game.CursorLocation = 2
game.LockType = 1
game.Open()
game_numRows = 0
%>
<%
Dim cardtype__MMColParam
cardtype__MMColParam = "1"
If (Request.QueryString("gamename") <> "") Then
cardtype__MMColParam = Request.QueryString("gamename")
End If
%>
<%
Dim cardtype
Dim cardtype_numRows
Set cardtype = Server.CreateObject("ADODB.Recordset")
cardtype.ActiveConnection = MM_cardshop_STRING
cardtype.Source = "SELECT * FROM gamecardtype WHERE gamename = '" + Replace(cardtype__MMColParam, "'", "''") + "' ORDER BY orderweight DESC"
cardtype.CursorType = 0
cardtype.CursorLocation = 2
cardtype.LockType = 1
cardtype.Open()
cardtype_numRows = 0
%>
<%
Dim gamedis__MMColParam
gamedis__MMColParam = "1"
If (Request.QueryString("gamename") <> "") Then
gamedis__MMColParam = Request.QueryString("gamename")
End If
%>
<%
Dim gamedis
Dim gamedis_numRows
Set gamedis = Server.CreateObject("ADODB.Recordset")
gamedis.ActiveConnection = MM_cardshop_STRING
gamedis.Source = "SELECT * FROM gamedistrict WHERE gamename = '" + Replace(gamedis__MMColParam, "'", "''") + "' ORDER BY orderweight DESC"
gamedis.CursorType = 0
gamedis.CursorLocation = 2
gamedis.LockType = 1
gamedis.Open()
gamedis_numRows = 0
%>
<%
Dim filltype__MMColParam
filltype__MMColParam = "1"
If (Request.QueryString("gamename") <> "") Then
filltype__MMColParam = Request.QueryString("gamename")
End If
%>
<%
Dim filltype
Dim filltype_numRows
Set filltype = Server.CreateObject("ADODB.Recordset")
filltype.ActiveConnection = MM_cardshop_STRING
filltype.Source = "SELECT * FROM gamefilltype WHERE gamename = '" + Replace(filltype__MMColParam, "'", "''") + "' ORDER BY orderweight DESC"
filltype.CursorType = 0
filltype.CursorLocation = 2
filltype.LockType = 1
filltype.Open()
filltype_numRows = 0
%>
<%
Dim gameserver__MMColParam
gameserver__MMColParam = "1"
If (Request.QueryString("gamename") <> "") Then
gameserver__MMColParam = Request.QueryString("gamename")
End If
%>
<%
Dim gameserver
Dim gameserver_numRows
Set gameserver = Server.CreateObject("ADODB.Recordset")
gameserver.ActiveConnection = MM_cardshop_STRING
gameserver.Source = "SELECT * FROM gameserver WHERE gamename = '" + Replace(gameserver__MMColParam, "'", "''") + "' ORDER BY orderweight DESC"
gameserver.CursorType = 0
gameserver.CursorLocation = 2
gameserver.LockType = 1
gameserver.Open()
gameserver_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">
</head>
<body background="pic/background.gif">
<table width="93%" border="0" align="center">
<tr>
<td><img src="pic/banner.gif" width="778" height="142"></td>
</tr>
</table>
<TABLE width="556" border="0" align="center" cellpadding="0" cellspacing="0">
<TBODY>
<TR>
<TD width="25" height="42"><img alt="" height="42" src="pic/main_01.gif" width="25"></TD>
<TD width="507" align="center" background="pic/main_02.gif"><font color="#FF0000">在线充值</font><font color="#FF0000">
<%
if (turn.Fields.Item("turnno").Value)="off" then
Response.Write("数据库更新,服务暂停,请稍后再提交")
end if
%>
</font></TD>
<TD width="24"><IMG alt="" height="42" src="pic/main_03.gif" width="24"></TD>
</TR>
<TR>
<TD height="27" background="pic/main_04.gif"></TD>
<TD align="center" background="pic/main_05.gif">
<form name="form1" method="post" action="<%
if (turn.Fields.Item("turnno").Value)="on" then
Response.Write("XY2.asp")
else
Response.Write("#")
end if
%>">
<p align="center"><font color="#6600CC">名称:
<input name="gname2" type="hidden" id="gname2" value="<%=(game.Fields.Item("gamename").Value)%>">
<%= (game.Fields.Item("gamename").Value) %> </font></p>
<p align="center"><img src="admin/pic/<%=(game.Fields.Item("gamepic").Value)%>" width="160" height="100" border="1"></p>
<font color="#6600CC">
<% If game.Fields.Item("gameaccount").Value="yes" Then %>
<p align="center">游戏帐号 :
<input name="gaccount2" type="text" id="gaccount2">
</p>
</font>
<p align="center"> </p>
<font color="#6600CC">
<% End If %>
<% If (game.Fields.Item("gamepassword").Value)="yse" Then %>
<p align="center">密码:
<input name="gpass2" type="text" id="gpass2">
</p>
<% End If %>
<% If (game.Fields.Item("gamedistrict").Value)="yes" Then %>
<p>区:
<select name="select" id="select">
<%
While (NOT gamedis.EOF)
%>
<option value="<%=(gamedis.Fields.Item("gamedistrict").Value)%>"><%=(gamedis.Fields.Item("gamedistrict").Value)%></option>
<%
gamedis.MoveNext()
Wend
If (gamedis.CursorType > 0) Then
gamedis.MoveFirst
Else
gamedis.Requery
End If
%>
</select>
</p>
<% End If %>
<% If (game.Fields.Item("gameserver").Value)="yes" Then %>
<p>服务器:
<select name="select" id="select2">
<%
While (NOT gameserver.EOF)
%>
<option value="<%=(gameserver.Fields.Item("gameserver").Value)%>"><%=(gameserver.Fields.Item("gameserver").Value)%></option>
<%
gameserver.MoveNext()
Wend
If (gameserver.CursorType > 0) Then
gameserver.MoveFirst
Else
gameserver.Requery
End If
%>
</select>
</p>
<% End If %>
<% If (game.Fields.Item("gamefilltype").Value)="yes" Then %>
<p>充值种类:
<select name="select" id="select3">
<%
While (NOT filltype.EOF)
%>
<option value="<%=(filltype.Fields.Item("gamefilltype").Value)%>"><%=(filltype.Fields.Item("gamefilltype").Value)%></option>
<%
filltype.MoveNext()
Wend
If (filltype.CursorType > 0) Then
filltype.MoveFirst
Else
filltype.Requery
End If
%>
</select>
</p>
<% End If %>
<% If game.Fields.Item("gamecardtype").Value="yes" Then %>
<p>点卡类型:
<select name="select" id="select4">
<%
While (NOT cardtype.EOF)
%>
<option value="<%=(cardtype.Fields.Item("gamecardtype").Value)%>"><%=(cardtype.Fields.Item("gamecardtype").Value)%></option>
<%
cardtype.MoveNext()
Wend
If (cardtype.CursorType > 0) Then
cardtype.MoveFirst
Else
cardtype.Requery
End If
%>
</select>
</p>
<% End If %>
<% If game.Fields.Item("gameother").Value="yes" Then %>
<p>备注信息:
<input name="gother2" type="text" id="gother2">
</p>
</font>
<p><font color="#6600CC">
<% End If %>
</font></p>
<p align="center"><font color="#6600CC">充值卡卡号:
<input name="cardname2" type="text" id="cardname2">
</font></p>
<p align="center"><font color="#6600CC"> 充值卡密码:
<input name="cardpass2" type="text" id="cardpass2">
</font> </p>
<p align="center"> <font color="#6600CC">
<input type="submit" name="Submit2" value="确定">
<br>
<br>
</font></p>
</form></TD>
<TD background="pic/main_06.gif"></TD>
</TR>
<TR>
<TD height="26"><IMG alt="" height="26" src="pic/main_07.gif" width="25"></TD>
<TD><IMG alt="" height="26" src="pic/main_08.gif" width="507"></TD>
<TD><IMG alt="" height="26" src="pic/main_09.gif" width="24"></TD>
</TR>
</TBODY>
</TABLE>
<p> </p>
<p> </p>
</body>
</html>
<%
game.Close()
Set game = Nothing
%>
<%
cardtype.Close()
Set cardtype = Nothing
%>
<%
gamedis.Close()
Set gamedis = Nothing
%>
<%
filltype.Close()
Set filltype = Nothing
%>
<%
gameserver.Close()
Set gameserver = Nothing
%>
<%
turn.Close()
Set turn = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -