admin_user.asp

本系统是一套开源WEB的网站管理系统

  <tr class="td_bgcolor"><td width="300" height="18" align="right" valign="middle">管理员名称：</td><td width="*" valign="middle"><input name="adminName" type="text" id="adminName" class="wenbenkang" value="<%=adminInfo(1)%>" Disabled></td></tr>
  <tr class="td_bgcolor"><td height="25" align="right" valign="middle">原始密码：</td><td valign="middle"> <input name="oldPass" type="password" id="oldPass" class="wenbenkang" size="21"></td></tr>
  <tr class="td_bgcolor"><td height="23" align="right" valign="middle">新密码：</td><td valign="middle"> <input name="newPass1" type="password" id="newPass1" class="wenbenkang" size="21"></td></tr>
  <tr class="td_bgcolor"><td height="23" align="right" valign="middle">确认新密码：</td><td valign="middle"> <input name="newPass2" type="password" id="newPass2" class="wenbenkang" size="21"></td></tr>
  <tr align="center" valign="middle"><td height="24" colspan="2" class="td_titleB"><div style="padding-right:120px;"><input type="submit" name="saveModify" value="保存修改"> </div></td></tr>
  </form>
</table>
<%End Sub

Sub adminLockSet()
if getPopedom("userAdmin")=false then
	popedomMsg
	exit sub
end if
adminID=Request.QueryString("adminID")
if isNumeric(adminID)=false then
	response.redirect(request.servervariables("http_referer"))
	exit sub
end if
if Request.QueryString("isLock")="yes" then
	sql="update ms_admin set islock=1 where adminID="&adminID
else
	sql="update ms_admin set islock=0 where adminID="&adminID
end if
conn.execute(sql)
response.redirect(request.servervariables("http_referer"))
End Sub

Sub saveAddadminUser()
dim errMsg,adminName,adminPass1,adminPass2,userName,islock,adminStatus,adminFlag,basicFlag,newsFlag,artFlag,downFlag,picFlag,dataFlag,otherFlag
adminName=lcase(trim(Request.Form("adminName")))
adminPass1=trim(Request.Form("adminPass1"))
adminPass2=trim(Request.Form("adminPass2"))
userName=lcase(trim(Request.Form("userName")))
isLock=trim(Request.Form("isLock"))
adminStatus=trim(Request.Form("adminStatus"))
basicFlag=trim(request.Form("maosinBasic"))
newsFlag=trim(request.form("maosinNewsFlag"))
artFlag=trim(request.form("maosinArtFlag"))
downFlag=trim(request.form("maosinDownFlag"))
picFlag=trim(request.form("maosinPicFlag"))
resFlag=trim(request.form("maosinResFlag"))
dataFlag=trim(request.form("maosinDataFlag"))
otherFlag=trim(request.form("maosinOtherFlag"))
if chkIsOut=false then
	showmsg "<font color=""#ff0000"">茂盛系统返回如下信息：</font><br><br>对不起，本站不允许从外部提交数据","系统出错信息"
	exit sub
end if
if adminName="" then
	adminShowMsg "出错信息","管理员名称不能为空"
	exit sub
end if
if userName="" then
	adminShowMsg "出错信息","前台用户名称不能为空"
	exit sub
end if
if strLength(adminName)>20 then
	errMsg="<li>管理名称不能大于 20 个字符</li>"
elseif chkIsAvaStr(adminName)=false then
	errMsg=errMsg&"<li>管理员名称含有非法字符</li>"
end if
if chkIsAvaStr(userName)=false then
	errMsg=errMsg&"<li>前台用户名含有非法字符</li>"
end if
if adminPass1="" then
	errMsg=errMsg&"<li>管理密码不能为空</li>"
elseif adminPass1<>adminPass2 then
	errMsg=errMsg&"<li>两次输入的密码不相同</li>"
elseif len(adminPass1)<6 then
	errMsg=errMsg&"<li>管理员密码最少不能少 6 个字符</li>"
elseif len(adminPass1)>20 then
	errMsg=errMsg&"<li>管理密码最多不能大于 20 个字符</li>"
end if
if errMsg<>"" then
	adminShowMsg "出错信息",errMsg
	exit sub
end if
if conn.execute("select count(user_id) from ms_user where user_name='"&userName&"'")(0)=0 then
	adminShowMsg "添加管理员失败","<font color=""#ff0000"">系统返回以下信息：</font><br/><br/>前台没有此 <font color=""#ff0000"">"&userName&"</font> 会员"
	exit sub
end if
dim rs
set rs=conn.execute("select adminName,user_name from ms_admin")
do while not rs.eof
	if rs(0)=adminName then
		adminShowMsg "添加管理员失败","<font color=""#ff0000"">系统返回以下信息：</font><br/><br/>很抱歉，系统已存在 <font color=""#ff0000"">"&adminName&"</font> 帐户，请更换其它试试"		
		rs.close
		set rs=nothing
		exit sub
	end if
	if rs(1)=userName then
	adminShowMsg "添加管理员失败","<font color=""#ff0000"">系统返回以下信息：</font><br/><br/><li>该前台用户名已被添加为管理员了</li><li>每个前台用户名只能设置一个管理帐户</li>"
		rs.close
		set rs=nothing
		exit sub
	end if
rs.movenext
loop
rs.close
set rs=nothing
if basicFlag<>"" then
	adminFlag=basicFlag
end if
if newsFlag<>"" then
	adminFlag=adminFlag&","&newsFlag
end if
if artFlag<>"" then
	adminFlag=adminFlag&","&artFlag
end if
if downFlag<>"" then
	adminFlag=adminFlag&","&downFlag
end if
if picFlag<>"" then
	adminFlag=adminFlag&","&picFlag
end if
if resFlag<>"" then
	adminFlag=adminFlag&","&resFlag
end if
if dataFlag<>"" then
	adminFlag=adminFlag&","&dataFlag
end if
if otherFlag<>"" then
	adminFlag=adminFlag&","&otherFlag
end if
adminFlag=trim(replace(adminFlag," ",""))
if cint(adminStatus)=1 then
	adminFlag=""
end if
dim operateNum
conn.execute "insert into ms_admin (adminName,adminPass,user_name,adminStatus,adminFlag,isLock,joinTime) values('"&adminName&"','"&md5(adminPass1)&"','"&userName&"',"&adminStatus&",'"&adminFlag&"',"&isLock&",#"&now()&"#)",operateNum
if operateNum<>0 then
	conn.execute("update ms_user set user_type=3 where user_name='"&userName&"'")
	adminShowMsg "成功信息","恭喜恭喜，添加管理员成功"
	exit sub
end if
End Sub

Sub saveModifyAdminUser()
dim errMsg,adminID,adminPass1,adminPass2,islock,adminStatus,adminFlag,basicFlag,newsFlag,artFlag,downFlag,picFlag,dataFlag,otherFlag
adminID=trim(Request.Form("adminID"))
adminPass1=trim(Request.Form("adminPass1"))
adminPass2=trim(Request.Form("adminPass2"))
isLock=trim(Request.Form("isLock"))
adminStatus=trim(Request.Form("adminStatus"))
basicFlag=trim(request.Form("maosinBasic"))
newsFlag=trim(request.form("maosinNewsFlag"))
artFlag=trim(request.form("maosinArtFlag"))
downFlag=trim(request.form("maosinDownFlag"))
picFlag=trim(request.form("maosinPicFlag"))
resFlag=trim(request.form("maosinResFlag"))
dataFlag=trim(request.form("maosinDataFlag"))
otherFlag=trim(request.form("maosinOtherFlag"))
if chkIsOut=false then
	showmsg "<font color=""#ff0000"">茂盛系统返回如下信息：</font><br><br>对不起，本站不允许从外部提交数据","系统出错信息"
	exit sub
end if
if isInteger(adminID)=false then
	adminShowMsg "参数出错","管理员ID参数应为一个数字整型参数"
	exit sub
end if
if adminPass1<>"" then
	if adminPass1<>adminPass2 then
		errMsg=errMsg&"<li>两次输入的密码不相同</li>"
	elseif len(adminPass1)<6 then
		errMsg=errMsg&"<li>管理员密码最少不能少 6 个字符</li>"
	elseif len(adminPass1)>20 then
		errMsg=errMsg&"<li>管理密码最多不能大于 20 个字符</li>"
	end if
end if
if errMsg<>"" then
	adminShowMsg "出错信息",errMsg
	exit sub
end if
if basicFlag<>"" then
	adminFlag=basicFlag
end if
if newsFlag<>"" then
	adminFlag=adminFlag&","&newsFlag
end if
if artFlag<>"" then
	adminFlag=adminFlag&","&artFlag
end if
if downFlag<>"" then
	adminFlag=adminFlag&","&downFlag
end if
if picFlag<>"" then
	adminFlag=adminFlag&","&picFlag
end if
if resFlag<>"" then
	adminFlag=adminFlag&","&resFlag
end if
if dataFlag<>"" then
	adminFlag=adminFlag&","&dataFlag
end if
if otherFlag<>"" then
	adminFlag=adminFlag&","&otherFlag
end if
adminFlag=trim(replace(adminFlag," ",""))
dim sql,operateNum
if cint(adminStatus)=1 then
	adminFlag=""
end if
if adminPass1="" then
	sql="update ms_admin set adminStatus="&adminStatus&",adminFlag='"&adminFlag&"',isLock="&isLock&" where adminID="&adminID
else
	sql="update ms_admin set adminPass='"&md5(adminPass1)&"',adminStatus="&adminStatus&",adminFlag='"&adminFlag&"',isLock="&isLock&" where adminID="&adminID
end if
conn.execute sql,operateNum
if operateNum<>0 then
	adminShowMsg "成功信息","恭喜恭喜，管理员信息保存成功"
else
	adminShowMsg "失败信息","很抱歉,管理员信息保存失败,此次操作不改变任何信息"
end if
exit sub