delgame.asp

游戏卡点销售充值程序,供大家研究学习游戏卡点销售充值程序,供大家研究学习

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Connections/cardshop.asp" -->
<% 

gamename=Trim(Request.QueryString("gamename"))
if gamename ="" then
Response.Write("系统错误，请重试!")
response.End()
end if

  %><%

if(gamename <> "") then Command1__a1 = gamename

%>
<%

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_cardshop_STRING
Command1.CommandText = "DELETE FROM game  WHERE gamename ='" + Replace(Command1__a1, "'", "''") + "'"
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()

%>
<%

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_cardshop_STRING
Command1.CommandText = "DELETE FROM gamecardtype  WHERE gamename ='" + Replace(Command1__a1, "'", "''") + "'"
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()

%>
<%

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_cardshop_STRING
Command1.CommandText = "DELETE FROM gamedistrict  WHERE gamename ='" + Replace(Command1__a1, "'", "''") + "'"
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()

%>
<%

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_cardshop_STRING
Command1.CommandText = "DELETE FROM gamefilltype  WHERE gamename ='" + Replace(Command1__a1, "'", "''") + "'"
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()

%>
<%

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_cardshop_STRING
Command1.CommandText = "DELETE FROM gameserver  WHERE gamename ='" + Replace(Command1__a1, "'", "''") + "'"
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()

%>
<% 
response.Redirect("modifygame.asp")
 %>