📄 edit_card.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="func.asp"-->
<%
if session("loginpass")<>true then Response.Redirect "notlogin.htm"
if session("IsAdmin")<>true then Response.Redirect "notlogin1.htm"
dim id,ope,page1
id=request("id")
ope=request("ope")
if id="" or ope="" then Response.Redirect "list_query.asp"
select case ope
case 1:call issell
case 2:call edit
case 3:call del
case 4:call upedit
case else:Response.Redirect "list_query.asp"
end select
sub issell()
dim sql
sql="update Card set Isell=1 where ID="& id
conn.execute(sql)
'Response.Write "page number is:" & request("r_page")
'Response.End
Response.Redirect "card_list.asp?page="&request("r_page")
end sub
sub del()
dim sql
sql="delete * from Card where ID="& id
conn.execute(sql)
Response.Redirect "card_list.asp?page="&session("page")&""
end sub
sub upedit()
dim sql,pwd,ctype
pwd=Encrypt(request("pwd"))
ctype=request("ctype")
sql="update Card set CardPwd='"&pwd&"',CardType='"&ctype&"' where ID="& id
conn.execute(sql)
Response.Redirect "card_list.asp?page="&session("page")&""
end sub
sub edit()
dim sql,rs
sql="select * from Card where ID="& id
set rs=server.CreateObject ("adodb.recordset")
rs.Open sql,conn,1,1
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>添加游戏类型</title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<form name="mmform" method="post" action="edit_card.asp">
<table width="103%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="22" align="center" bgcolor="#F7F7F7"><strong>注册记录修改</strong></td>
</tr>
<tr>
<td> <hr width="98%"> <div align="left">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#A5C6F1">
<tr>
<td><table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr>
<td width="30%" align="right" bgcolor="#FFFDF4">卡号：</td>
<td width="70%" bgcolor="#F7F7F7"><%=rs("CardID")%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFDF4">密码：</td>
<td bgcolor="#F7F7F7">
<input name="pwd" type="text" size="20" maxlength="20" value="<%=Uencrypt(rs("CardPwd"))%>"></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFDF4">类型：</td>
<td bgcolor="#F7F7F7"><input name="ctype" type="text" size="3" maxlength="3" value="<%=rs("CardType")%>"></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFDF4">是否已售：</td>
<td bgcolor="#F7F7F7"><%if rs("Isell") then Response.Write "<span style='color:#ff0000'>已经售出</span>" else Response.Write "<span style='color:#0000ff'>还未售出</span>"%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFDF4">是否已充：</td>
<td bgcolor="#F7F7F7"><%if rs("IsFill") then Response.Write "<span style='color:#ff0000'>已经充值</span>" else Response.Write "<span style='color:#0000ff'>还未充值</span>"%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFDF4">生成卡日期:</td>
<td bgcolor="#F7F7F7"><%=rs("MakeDate")%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFDF4"> </td>
<td bgcolor="#F7F7F7"><input name="ope" type="hidden" value="4">
<input name="id" type="hidden" value="<%=id%>">
<input name="submit" type="submit" id="submit" value="更 新"></td>
</tr>
</table></td>
</tr>
</table>
<p> </p>
</div></td>
</tr>
</table>
</form>
</body>
</html>
<%
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -