📄 modify_adm.asp
字号:
<!--#include file="function/m_conn.asp"-->
<!--#include file="function.asp"-->
<!--#include file="../../config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=ZXLCompanyStr%>后台管理会员管理</title>
<link href="RLimages/user.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
function checkform(){
if(frmUserDetail.adm_loginname.value==""){
alert("请输入管理员名称！");
frmUserDetail.adm_loginname.focus();
return false
}
if(frmUserDetail.adm_loginpasd.value==""){
alert("请输入用户密码！");
frmUserDetail.adm_loginpasd.focus();
return false
}
if(frmUserDetail.adm_loginpasd1.value==""){
alert("请输入用户确认密码！");
frmUserDetail.adm_loginpasd1.focus();
return false
}
if(frmUserDetail.adm_loginpasd1.value!=frmUserDetail.adm_loginpasd.value){
alert("密码不等于确认密码，请重新输入确认密码！");
frmUserDetail.adm_loginpasd1.focus();
return false
}
}
//-->
</script>
<script language="Javascript" src="../js/inland.js"></script>
</head>
<body>
<%
adm_id = request("adm_id")
search_word=request("search_word")
ipage=request("page")
msg=""
if adm_id<>"" then
adm_id_bak=adm_id
adm_id=cint(adm_id)
sql="select * from tadmin where adm_id = "&adm_id
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,3,1
if rs.recordcount > 0 then
adm_loginname=testdb(rs("adm_loginname"))
adm_loginpasd=testdb(rs("adm_loginpasd"))
Adm_Gread=testdb(rs("Adm_Gread"))
adm_status=testdb(rs("adm_status"))
Adm_Remark=testdb(rs("Adm_Remark"))
Adm_type=testdb(rs("Adm_type"))
Adm_StartCity=testdb(Trim(rs("Adm_StartCity")))
city_IfInclude=testdb(rs("city_IfInclude"))
rs.close
end if
msg="修改管理员资料！"
else
msg="添加管理员资料！"
end if
if adm_status="" then adm_status="Active"
if adm_type="" or isnull(adm_type) then adm_type="1"
if Adm_Gread="" then Adm_Gread="2"
if Adm_StartCity="" then Adm_StartCity="*"
%>
<table cellpadding="3" cellspacing="1" >
<form name="frmUserDetail" method="post" action="update_adm.asp">
<input type="hidden" name="adm_id" value="<%=adm_id_bak%>">
<input type="hidden" name="page" value="<%=ipage%>">
<input type="hidden" name="search_word" value="<%=search_word%>">
<tr bgcolor="#0099CC">
<td height="25" colspan="3" align="center" bgcolor="#518BCB"><strong><font color="#FFFFFF"><%=msg%></font></strong> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="14%" height="25" align="right" class="12-bak"><strong>用户名称</strong></td>
<td height="25" colspan="2"><%if adm_loginname<>"" then%><%=adm_loginname%><input name="adm_loginname" type="hidden" class="book" value="<%=adm_loginname%>"><%else%><input name="adm_loginname" type="text" class="book" id="adm_loginname" ><%end if%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="14%" height="25" align="right" class="12-bak"><strong>密 码</strong></td>
<td height="25" colspan="2"> <input name="adm_loginpasd" type="password" class="book" id="adm_loinpasd" value="<%=adm_loginpasd%>" maxlength="20"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="14%" height="25" align="right" class="12-bak"><strong>密码确认</strong></td>
<td height="25" colspan="2"> <input name="adm_loginpasd1" type="password" class="book" id="adm_loginpasd1" value="<%=adm_loginpasd%>" maxlength="20"> </td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="25" align="right" bgcolor="#FFFFFF"><span class="12-bak"><strong>身 份</strong></span></td>
<td height="25" colspan="2" bgcolor="#FFFFFF"><select name="Adm_Remark">
<option value="low" <%if Adm_Remark="low" then response.write "selected"%> >普通管理员</option>
<option value="normal" <%if Adm_Remark="normal" then response.write "selected"%> >高级管理员</option>
<option value="super" <%if Adm_Remark="super" then response.write "selected"%> >超级管理员</option>
</select> 超级管理员将有全部权限，不受下面的权限分配限制 </td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="25" align="right" bgcolor="#FFFFFF"><span class="12-bak"><strong>激 活</strong></span></td>
<td height="25" colspan="2" bgcolor="#FFFFFF"><input type="radio" name="Adm_Status" value="Active" <%if trim(adm_status)="Active" then response.Write "checked"%>>激活 <input type="radio" name="Adm_Status" value="no" <%if trim(adm_status)="no" then response.Write "checked"%>>没有激活</td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="25" align="right" bgcolor="#FFFFFF"><span class="12-bak"><strong>自动提醒</strong></span></td>
<td height="25" colspan="2" bgcolor="#FFFFFF"><input type="radio" name="adm_type" value="1" <%if trim(adm_type)="1" then response.Write "checked"%>>收到的订单 <input type="radio" name="adm_type" value="2" <%if trim(adm_type)="2" then response.Write "checked"%>>确定的订单 <input type="radio" name="adm_type" value="3" <%if trim(adm_type)="3" then response.Write "checked"%>>生效的订单 <input type="radio" name="adm_type" value="4" <%if trim(adm_type)="4" then response.Write "checked"%>>成交的订单 <input type="radio" name="adm_type" value="5" <%if trim(adm_type)="5" then response.Write "checked"%>>取消的订单</td>
</tr>
<tr bgcolor="#0099CC">
<td height="25" colspan="3" align="center" bgcolor="#518BCB" class="s-12"><strong>修改自动提醒类型后，必须重新登录才能生效</strong> </td>
</tr>
<tr bgcolor="#FFCC99">
<td width="14%" align="right" valign="middle" bgcolor="#FFFFFF"><strong>权 限</strong></td>
<td colspan="2" bgcolor="#FFFFFF">
<table width="100%" border="0" cellpadding="0" cellspacing="1" >
<tr>
<td width="37%" height="25" bgcolor="#FFFFFF"> <input name="Adm_Gread" type="checkbox" id="Adm_Gread" value="1,a"<%if instr(Adm_Gread,"1")>0 then response.write " checked"%>>
会员管理</td>
<td width="37%" height="25" bgcolor="#FFFFFF"> <input name="Adm_Gread" type="checkbox" id="Adm_Gread" value="2"<%if instr(Adm_Gread,"2")>0 then response.write " checked"%>>
订单管理</td>
<td width="37%" height="25" bgcolor="#FFFFFF"> <input name="Adm_Gread" type="checkbox" id="Adm_Gread" value="3"<%if instr(Adm_Gread,"3")>0 then response.write " checked"%>>
会员服务 </td>
</tr>
<tr>
<td width="37%" height="25" bgcolor="#FFFFFF"> <input name="Adm_Gread" type="checkbox" id="Adm_Gread" value="4"<%if instr(Adm_Gread,"4")>0 then response.write " checked"%>>
送票城市</td>
<td width="37%" height="25" bgcolor="#FFFFFF"> <input name="Adm_Gread" type="checkbox" id="Adm_Gread" value="5"<%if instr(Adm_Gread,"5")>0 then response.write " checked"%>>
短信栏目</td>
<td width="37%" height="25" bgcolor="#FFFFFF"> <input name="Adm_Gread" type="checkbox" id="Adm_Gread" value="6"<%if instr(Adm_Gread,"6")>0 then response.write " checked"%>>
</a> 发邮件 </td>
</tr>
<tr style="display:none">
<td height="25" bgcolor="#FFFFFF">
<input name="Adm_Gread" type="checkbox" id="Adm_Gread" value="7"<%if instr(Adm_Gread,"7")>0 then response.write " checked"%>>
火车票栏目</td>
<td height="25" bgcolor="#FFFFFF">
<input name="Adm_Gread" type="checkbox" id="Adm_Gread" value="8"<%if instr(Adm_Gread,"8")>0 then response.write " checked"%>>
社区管理 </td>
<td height="25" bgcolor="#FFFFFF">
<input name="Adm_Gread" type="checkbox" id="Adm_Gread" value="9"<%if instr(Adm_Gread,"9")>0 then response.write " checked"%>>
广告管理 </td>
</tr>
<tr style="display:none">
<td width="37%" height="25" bgcolor="#FFFFFF"> <input name="Adm_Gread" type="checkbox" id="Adm_Gread" value="0"<%if instr(Adm_Gread,"0")>0 then response.write " checked"%>>
俱乐部管理</td>
<td width="37%" height="25" bgcolor="#FFFFFF"> <input name="Adm_Gread" type="checkbox" id="Adm_Gread" value="a"<%if instr(Adm_Gread,"a")>0 then response.write " checked"%>>
会员管理</td>
<td width="37%" height="25" bgcolor="#FFFFFF"> </td>
</tr>
</table></td>
</tr>
<tr bgcolor="#99CCFF">
<td height="25" colspan="3" align="center" bgcolor="#FFFFFF" class="12-bak"> <input name="Submit" type="submit" class="12-bak" value=" 提 交 " OnClick="return checkform()">
<input name="Submit2" type="reset" class="12-bak" value=" 重 置 ">
<!-- <input name="button" type="button" class="12-bak" onclick="" value="重 置"> --> </td>
</tr>
</form>
<!--
</form>
<tr bgcolor="#EEEEEE">
<td colspan="3" align="center" height="50" class="12-bak"><strong><font color=red> 请在右边选择绑定城市</font></strong>
<SELECT id=StartCity
name=StartCity size=1 style="width:80;height:19">
<option value="*" selected>所有城市</option>
<script>document.write(citystr)</script>
</SELECT>
<input type="button" name="button" value="预览" title="" onClick="Javascript:PreviewAdd();"> </td>
</tr> -->
</table>
</body>
</html>
<script language="Javascript">
function PreviewAdd(){
var ifAddFlag=true;
for(i=0;i<document.all.prepareAdd.length;i++)
{
if (document.all.prepareAdd.options[i].value==document.all.StartCity.value)
{
alert("列表中已有相同的城市，添加失败!");
ifAddFlag=false;
break;
}
}
if(ifAddFlag){
var cityObj=document.all.myAdm_StartCity;
//alert(document.all.StartCity.selectedIndex);
cityObj.innerHTML=cityObj.innerHTML+" <input type='checkbox' name='Adm_StartCity' value='"+document.all.StartCity.value+"' checked>"+document.all.StartCity.options[document.all.StartCity.selectedIndex].text+" ";
var newOption=new Option(document.all.StartCity.options[document.all.StartCity.selectedIndex].text,document.all.StartCity.value);
document.all.prepareAdd.options[document.all.prepareAdd.length]=newOption;
/*var cityPreObj=document.all.myAdm_StartCityHidden;
cityPreObj.innerHTML=cityPreObj.innerHTML+"<option value='"+document.all.StartCity.value+"'>"+document.all.StartCity.options[document.all.StartCity.selectedIndex].text+"</option>";*/
}
}
</script>
<%
function ReCity(TempCity)
Set Ors= Server.CreateObject("ADODB.Recordset")
sql="select Cityname from city where citycode like '%"&TempCity&"%'"
Ors.open sql,conn,3,1
if not (Ors.eof or Ors.bof) then
ReCity=Ors("cityname")
else
Recity="未知"&TempCity
end if
Ors.close
set Ors=nothing
end function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -