📄 discount.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="discount-end.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.discount.value == "")
       {
	   alert("请填写折扣");
	   form1.discount.focus();
	   return false;	   
	   }
       return true;
    }
//-->
</script>
  <table width="400" align="center">
    <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("discount") & " %"&"<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="discount" size="10" maxlength="4" 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>
    <tr valign="middle"> 
      <td height="25" colspan="2">您只需要填写西亚即可，请不要填写“%” <br>
        如果您无须此功能，将所有折扣比率设为"100"即可</td>
    </tr>
  </table>
  <br>
</form>

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

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