📄 rebatecount.asp
字号:
<!--#include file="../Session.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../css/site.css" rel="stylesheet" type="text/css">
</head>
<body>
<form name="form" method="post" action="?action=save">
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="50" align="center" class="tdstyle"><font color="#000000" size="3"><strong>价格折扣计算</strong></font></td>
</tr>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from Merchandise order by Id asc"
rs.open sql,conn,1,1
if rs.eof then
response.write("<tr> <td height=30 align=center class=text>没有商品记录</td> </tr>")
else
For i=1 to rs.recordcount%>
<input type=hidden name=cpid value=<%=rs("id")%>>
<input name="moneys" type="hidden" value="<%=split(rs("Price"),"￥")(0)%>">
<%rs.movenext
Next
%>
<tr>
<td height="80" align="center" class="tdstyle">
<input TYPE="Submit" NAME="SUBMIT" class="button" VALUE=" 确 定 ">
<input name="button" type="button" class="button" onclick="javascript:window.history.go(-1)" value="返回上页">
<br><br>
[目前有<font color="#FF0000"><%=rs.recordcount%></font>条商品记录]
</td>
</tr>
<tr>
<td height="100" align="center" class="text"><strong><font color="#993300" size="3">设置说明</font></strong><br><br>1.进行折扣计算后，所有商家的商品会员价将按您设定的折扣率重置！<BR>2.进行折扣计算后，所有商家的商品会员价只保留整数部分(4舍5入)！<BR>3.如果某商家不同意您设定的折扣率，请及时通知其修改商品价格！ </td>
</tr>
</table>
</form>
<%
end if
rs.close
set rs=nothing
if request("action")="save" then
cpid=REPLACE(request("cpid"),", ",",")
moneys=REPLACE(request("moneys"),", ",",")
id=split(cpid,",")
mmoney=split(moneys,",")
Rebate=split(Rebate,"$")
for i=0 to ubound(id)
for j=0 to int(glevel)
if j>ubound(Rebate) then
Response.write "<script>alert(""折扣率不能为空"");location.href=""Rebate.asp"";</script>"
Response.end
end if
ss=ROUND(mmoney(i)*Rebate(j))
if j<>int(glevel) then
Prices=Prices+cstr(ss)+"￥"
else
Prices=Prices+cstr(ss)
end if
next
conn.execute("Update Merchandise set Price='"&Prices&"' where id="&id(i)&"")
Prices=""
next
'work="管理员使用导入计算，商品价格可能更优惠请会员看看。"
'sql="insert into Diary(userid,Worksay,admin,Wtime,Wdate) values ('userall','"&work&"','"&session("admin_name")&"',now(),date())"
'conn.execute(sql)
response.write"<SCRIPT language=JavaScript>alert('执行完毕！');"
response.write"this.location.href='RebateCount.asp';</SCRIPT>"
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -