📄 memberupgrade2.asp
字号:
<%@ LANGUAGE = VBScript %>
<!--#include file="conn.asp"-->
<!--#include file="checklogin.asp"-->
<%
Email = Request ("Email")
If Email = "" then
Conn.Close
Session ("Message") = "您必须输入要升级会员的电子邮件地址。"
Response.Redirect "error.asp"
End if
rs.Open "Select * From member Where Email = '" & Email & "'",Conn
If rs.EOF Then
rs.Close
Conn.Close
Session ("Message") = "您输入的电子邮件地址并不存在。"
Response.Redirect "error.asp"
End if
ID = rs ("ID")
UserName = rs ("UserName")
MemberShip = rs ("MemberShip")
rs.Close
rs.Open "Select * From membership Where MemberShip = " & MemberShip & "",Conn
MemberShipCn = rs ("MemberShipCn")
rs.Close
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link REL="StyleSheet" HREF="../tjscripts.css" TYPE="text/css" MEDIA="screen">
<title><%= SiteTitle %>后台管理系统</title>
</head>
<body topmargin="0" leftmargin="0">
<div align="center">
<table border="1" cellspacing="1" width="100%" bordercolor="#0033CC">
<tr>
<td width="100%" height="31" bgcolor="#FFCC00"><b>升级会员</b></td>
</tr>
<tr>
<td width="100%">
<form method="POST" action="memberupgrade_do.asp">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="95%">
<tr>
<td width="100%" align="center" colspan="4" height="30"><input type="hidden" name="UserName" value="<%= UserName %>"></td>
</tr>
<tr>
<td width="25%" height="30" align="center">编号</td>
<td width="25%" height="30" align="center">电子邮件地址</td>
<td width="25%" height="30" align="center">用户名</td>
<td width="25%" height="30" align="center">会员级别</td>
</tr>
<tr>
<td width="25%" height="30" align="center"><%= ID %></td>
<td width="25%" height="30" align="center"><input type="text" name="Email" size="15" value="<%= Email %>"></td>
<td width="25%" height="30" align="center"><%= UserName %></td>
<td width="25%" height="30" align="center"><input type="text" name="MemberShip" size="15" value="<%= MemberShip %>"></td>
</tr>
<tr>
<td width="100%" height="30" align="center" colspan="4"></td>
</tr>
<tr>
<td width="100%" height="30" align="center" colspan="4">
<input type="submit" value="升级会员" name="Button"></td>
</tr>
</table>
</div>
</form>
</td>
</tr>
<tr>
<td width="100%" align="center"><a href="javascript:history.back();"><b>返回</b></a></td>
</tr>
</table>
</div>
</body>
</html>
<%
Set rs = nothing
Conn.Close
Set Conn = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -