modtype.asp

为一网站销售代码

<!--#include file="conn.asp"-->
<%
if session("loginpass")<>true then Response.Redirect "notlogin.htm"
if session("IsAdmin")<>true then Response.Redirect "notlogin1.htm"

dim tid,GameType,CardType,Game,yuenian,del
tid=request("tid")
GameType=request("GameType")
CardType=request("CardType")
Game=request("Game")
yuenian=request("yuenian")
del=cint(request("del"))
'response.write tid & GameType & CardType & del
if GameType="" or CardType="" then response.write "AddGameType.asp"
dim sql,msg
if del then
	sql="delete * from Type where id=" & tid
	msg="ID为："&tid&"的游戏类型已经被删除！"
else
	sql="update Type set GameType='"&GameType&"',CardType='"&CardType&"',Game='"&Game&"',CardTime='"&yuenian&"' where ID=" & tid
	msg="ID为："&tid&"的游戏类型已经修改为："&GameType&" "&CardType&"类 所属游戏为："&Game
end if
conn.execute(sql)
response.write msg
CloseDatabase
response.end
%>