📄 edit_rec.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("loginpass")<>true then Response.Redirect "notlogin.htm"
dim id,ope
id=request("id")
ope=request("ope")
'response.write id & " " & ope :response.End
if id="" or ope="" then Response.Redirect "list_query.asp"
select case ope
case 1:call complete
case 2:call edit
case 3:call del
case 4:call upedit
case else:Response.Redirect "list_query.asp"
end select
sub complete()
dim sql
sql="update Register set DealCase='已经开通注册' where ID="& id
conn.execute(sql)
Response.Redirect "list_query.asp?page="&session("page")&""
end sub
sub del()
dim sql
sql="delete * from Register where ID="& id
conn.execute(sql)
Response.Redirect "list_query.asp?page="&session("page")&""
end sub
sub upedit()
dim sql,dealcase
dealcase=request("dealcase")
if dealcase="" then
response.write "<script language='javascript'>" & chr(13)
response.write "alert('处理情况不能为空！');" & Chr(13)
response.write "window.document.location.href='list_query.asp?page="&session("page")&"';"&Chr(13)
response.write "</script>" & Chr(13)
else
sql="update Register set DealCase='"&dealcase&"' where ID="& id
end if
conn.execute(sql)
Response.Redirect "list_query.asp?page="&session("page")&""
end sub
sub edit()
dim sql,rs
sql="select * from Register 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_rec.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"><%=rs("GameId")%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFDF4">注册游戏类型：</td>
<td bgcolor="#F7F7F7"><%=rs("GameType")%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFDF4"><font size="2">自设密码</font>：</td>
<td bgcolor="#F7F7F7"><%=rs("CName")%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFDF4">电话：</td>
<td bgcolor="#F7F7F7"><%=rs("ContactTel")%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFDF4">OICQ:</td>
<td bgcolor="#F7F7F7"><%=rs("Oicq")%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFDF4">Email：</td>
<td bgcolor="#F7F7F7"><%=rs("Email")%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFDF4">处理情况：</td>
<td bgcolor="#F7F7F7"><textarea name="dealcase" cols="40" rows="2" style="overflow:auto"><%=rs("DealCase")%></textarea></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFDF4">注册日期：</td>
<td bgcolor="#F7F7F7"><%=rs("RegDate")%></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 + -