📄 rebate.asp
字号:
<!--#include file="../Session.asp"-->
<%
Rebate1=split(Rebate,"$")
GlevelName=split(GlevelName,"|")
on error resume next
%>
<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="0" align="center" cellpadding="1" cellspacing="0">
<tr>
<td height="50" colspan="2" align="center" class="tdstyle"><strong><font color="#000000" size="3">折扣率设置</font></strong></td>
</tr>
<tr>
<td width="50%" height="25" align="center" class="tdstyle">会员称谓</td>
<td width="50%" align="center" class="tdstyle">会员折扣率</td>
</tr>
<%for i=1 to int(glevel)
if i>ubound(GlevelName) then
GlevelName1="<font color=#FF6600>未设定会员称谓</font>"
else
GlevelName1=GlevelName(i)'GlevelName1=GlevelName(i)+"(折扣率)"
end if%>
<tr>
<td height="20" align="center" class="tdstyle"><%=GlevelName1%></td>
<td align="center" class="tdstyle">
<%if i>ubound(Rebate1) then%>
<input name="Rebate1<%=i%>" type="text" class="input1" size="3" maxlength="3"> %
<%else%>
<input name="Rebate1<%=i%>" type="text" class="input1" value="<%=Rebate1(i)*100%>" size="3" maxlength="3"> %
<%end if%> *只能填写0-100的数字,不能为空</td>
</tr>
<%next%>
<tr align="center">
<td height="30" colspan="2" class="tdstyle"> <input class="button" TYPE="Submit" NAME="SUBMIT" VALUE=" 确 定 ">
<input class="button" TYPE="RESET" NAME="RESET" VALUE=" 重 设 "> </td>
</tr>
<tr align="center">
<td height="100" colspan="2" class="text"> <font color="#993333" size="3"><strong>设置说明</strong></font><br><br>1.折扣率也就是市场价的百分之几，100时表示没有折扣。<br>2.修改后请立即执行 <input name="B12" type="button" class="button" onclick="window.location='RebateCount.asp'" value="折扣计算"> ，否则将导致系统异常！</td>
</tr>
</table>
</form>
<%
if request("action")="save" then
Rebates="1$"
for i=1 to int(glevel)
if trim(request("Rebate1"&i)*0.01)<"1" then
Rebate1="0"+trim(request("Rebate1"&i)*0.01)
else
Rebate1=trim(request("Rebate1"&i)*0.01)
end if
if i<>int(glevel) then
Rebates=Rebates+Rebate1+"$"
else
Rebates=Rebates+Rebate1
end if
next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set file=fso.opentextfile(server.mappath("../../Config/Config.asp"),1)
MB=file.readall
file.close
set file = nothing
Rebate2="Rebate="""&Rebates&""""
MB=replace(MB,"Rebate="""&Rebate&"""",Rebate2)
set file=fso.createtextfile(server.mappath("../../Config/Config.asp"),true)
file.write MB
file.close
set file = nothing
Response.write "<script>alert(""折扣率设置成功！\n\n请立即运行“折扣计算” ！不然会出问题啦：)"");location.href=""Rebate.asp"";</script>"
set fso = nothing
'work="管理员修改计算率设置，操作成功。"
'sql="insert into Diary(userid,Worksay,admin,Wtime,Wdate) values ('"&session("admin_name")&"','"&work&"','"&session("admin_name")&"',now(),date())"
'conn.execute(sql)
end if
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -