📄 glevel.asp
字号:
<!--#include file="../Session.asp"-->
<%
GlevelName1=split(GlevelName,"|")
GlevelMoney1=split(GlevelMoney,"|")
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 action="?action=save" method="post" name="myform" id="myform">
<table width="100%" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="50" colspan="3" align="center" class="tdstyle"><strong><font color="#000000" size="3">会员称谓及自动升级设置</font></strong></td>
</tr>
<tr>
<td width="15%" height="25" align="center" class="tdstyle"><strong>会员级别号</strong></td>
<td width="35%" align="center" class="tdstyle"><strong>会员称谓</strong></td>
<td width="35%" align="center" class="tdstyle"><strong>升级金额</strong></td>
</tr>
<%for i=1 to int(glevel)%>
<tr>
<td height="25" align="center" class="tdstyle"><%=i%></td>
<td align="center" class="tdstyle"><input name="GlevelName1" type="text" class="input1" id="GlevelName1" value="<%=GlevelName1(i)%>" size="26" maxlength="20"></td>
<td align="center" class="tdstyle"><input name="GlevelMoney1" type="text" class="input1" id="GlevelMoney1" value="<%=GlevelMoney1(i)%>" size="20"></td>
</tr>
<%next%>
<tr>
<td height="60" colspan="3" align="center" class="tdstyle"> <input name="Submit1" type="submit" class="button" id="Submit1" onClick="javascript:return checksignup()" value="提交">
<input name="Submit2" type="reset" class="button" id="Submit2" value="重置">
<input name="Submit3" type="button" class="button" id="Submit3" onClick="javascript:window.history.go(-1)" value="返回">
</td>
</tr>
<tr>
<td height="120" colspan="3" align="center" class="text"><strong><font color="#993333" size="3">设置说明</font></strong><br><br><strong>级 别 号:</strong>系统自动生成,越大级别越高,为1时级别最低。<br><strong>会员称谓:</strong>显示在前后台,方便管理员、商家及用户识别。<br><strong>升级金额:</strong>相关会员自动升级的金额，为“0”时不启用。</td>
</tr>
</table>
</form>
</body>
</html>
<%
if request("action")="save" then
for i=1 to int(Glevel)
if Request("GlevelName1")(i)="" then
Response.Write("<script>alert(""会员称谓“"&i&"”不能为空！"");history.back();</script>")
response.end
end if
next
for i=1 to int(Glevel)
if Request("GlevelMoney1")(i)="" then
Response.Write("<script>alert(""会员自动升级金额“"&i&"”不能为空！"");history.back();</script>")
response.end
end if
next
GlevelName1=REPLACE(Request("GlevelName1"),", ","|")
GlevelNames="会员称谓"+"|"+GlevelName1
GlevelMoney1=REPLACE(Request("GlevelMoney1"),", ","|")
GlevelMoneys="升级金额"+"|"+GlevelMoney1
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set file=fso.opentextfile(server.mappath("../../Config/Config.asp"),1)
MB=file.readall
file.close
set file = nothing
GlevelName2="GlevelName="""&GlevelNames&""""
GlevelMoney2="GlevelMoney="""&GlevelMoneys&""""
MB=replace(MB,"GlevelName="""&GlevelName&"""",GlevelName2)
MB=replace(MB,"GlevelMoney="""&GlevelMoney&"""",GlevelMoney2)
set file=fso.createtextfile(server.mappath("../../Config/Config.asp"),true)
file.write MB
file.close
set file = nothing
Response.write "<script>alert(""修改成功"");location.href=""Glevel.asp"";</script>"
set fso = nothing
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -