?? 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 + -