⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 setdiscount.asp

📁 在线订单系统
💻 ASP
字号:
<!--#include file="adminconn.inc" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../inc/guhongying.css" type="text/css">
</head>
<body bgcolor="6699CC" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#000000" vspace="0" hspace="0">
  <tr>
    <td bgcolor="#316395" height="27"><font color="#FFFFFF">.:: 您可以在这里设置用户的折扣率</font></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="50">&nbsp;</td>
  </tr>
</table>

<form action="setdiscount.asp" method="post" >
  <table border="0" cellspacing="1" cellpadding="4" bgcolor="#000000" width="40%" align="center">
    <tr> 
    <td bgcolor="#336699" colspan="2"><b><font color="#FFFFFF">更改用户的折扣率</font></b></td>
  </tr>
        
    <tr bgcolor="7C96B8"> 
      <td width="32%" align="right" valign="top"><font color="#FFFFFF">现在用户折扣率:</font></td>
            
      <td width="68%">
<%
sql= "select * from discount order by id desc"
set rs=server.createobject("adodb.recordset") 
rs.open sql,conn,1,1 
for i=1 to rs.recordcount  
response.write "<font color=ffffff>" & rs("leavel") & " 级用户享受折扣 " &rs("discount") & " %</font>"&"<br>"
rs.movenext
next

%>
</td>
        </tr>

        
<tr bgcolor="7C96B8"> 
<td width="32%" align="right" valign="top"><font color="#FFFFFF">要将折扣率改为:</font></td>
<td width="68%"> <font color=ffffff>将 
        <select name="leavel" class="bk">
          <option value="" selected>级</option>
          <%
'sql="select * from discount"
set rs1=server.createobject("ADODB.Recordset")
rs1.open sql,conn,1,1
while not rs1.eof
%> 
          <option value="<%=rs1("leavel")%>"><%=rs1("leavel")%></option>
          <%
rs1.movenext
wend
rs1.Close()
%> 
        </select>
用户折扣修改为
       <input type=text name="discount" size="8" maxlength="150" class="bk"></font>
</td>
        </tr>

    <tr bgcolor="eeeeee"> 
      <td align="center" colspan="2">您只需要填写数字即可,请不要填写 “%” <br><br>
如果您无须此功能,将所有折扣比率设为"0"即可<br><br>
勿删除所有级别!!!
</td>
  </tr>

<tr> 
    <td bgcolor="#336699" align="center" colspan="2"> 
      <input type="submit" name="Submit" value="修改" class="Tips_bo">
      <input type="hidden" name="action" value="modidiscount"></td>
  </tr>
</table>
</form>

</body>
</html>
<%
if request("action")<>"modidiscount" then 
response.end
else
leavel=request("leavel")
discount=request("discount")
conn.execute "update discount set discount='"&discount&"' where leavel='"&leavel&"'"
response.redirect "setdiscount.asp"
end if
%>

⌨️ 快捷键说明

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