📄 level.asp

📁 西亚电子购物系统
💻 ASP
字号:
<!--#include file="../manage/check-0.asp"-->
<!--#include file="../conn/conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../conn/css.css" type="text/css">
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="50">&nbsp;</td>
  </tr>
</table>

<form action="level-edit.asp" method="post"onsubmit="return check();" name="form1">
  <script language="javascript">
<!--
   function check() {
       if (form1.grade.value == "")
       {
	   alert("请选择会员级别！");
	   form1.grade.focus();
	   return false;	   
	   }
	    if (form1.price.value == "")
       {
	   alert("请填写金额");
	   form1.price.focus();
	   return false;	   
	   }
       return true;
    }
//-->
</script>
  <table width="400" align="center" cellpadding="2">
    <tr valign="middle"> 
      <td height="25" colspan="2" bgcolor="#CCCCCC"><font color="#FF3333">&gt;&gt;更改会员自动升级的金额</font></td>
    </tr>
    <tr valign="middle"> 
      <td width="29%" height="25" align="right" bgcolor="#f1f1f1">现在会员升级金额：</td>
      <td width="71%" height="25" bgcolor="#f1f1f1"> <%
sql= "select * from sia_discount order by id desc"
set rs=server.createobject("adodb.recordset") 
rs.open sql,conn,1,1 
for i=1 to rs.recordcount  
Select case rs("grade")
	case "0"
	Response.Write("友好会员")
	case "1"
	Response.Write("星级会员")
	case "2"
	Response.Write("铜牌会员")
	case "3"
	Response.Write("银牌会员")
	case "4"
	Response.Write("金牌会员")
    End Select
response.write "级会员升级金额 ￥" &rs("price") & "元<br>"
rs.movenext
next

%> 
      </td>
    </tr>
    <tr valign="middle"> 
      <td height="25" colspan="2" bgcolor="#f1f1f1"> &nbsp;&nbsp;将 
        <select name="grade" class="textbox">
          <option value="" selected>>>请选择</option>
          <%
'sql="select * from sia_discount"
set rs1=server.createobject("ADODB.Recordset")
rs1.open sql,conn,1,1
while not rs1.eof
%>
          <option value="<%=rs1("grade")%>"><%Select case rs1("grade")
	case "0"
	Response.Write("友好会员")
	case "1"
	Response.Write("星级会员")
	case "2"
	Response.Write("铜牌会员")
	case "3"
	Response.Write("银牌会员")
	case "4"
	Response.Write("金牌会员")
    End Select%></option>
          <%
rs1.movenext
wend
rs1.Close()
%></select>自动升级金额改为￥
        <input type=text name="price" size="8" maxlength="15" class="textbox">
        元 </td>
    </tr>
    <tr valign="middle"> 
      <td height="25" align="right" bgcolor="#f1f1f1">&nbsp;</td>
      <td height="25" bgcolor="#f1f1f1"><input type="submit" name="Submit" value="修 改" class="textbox-1">
      </td>
    </tr>
  </table>
  <br>
</form>

</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -