chg.asp

视频源代码 视频源代码

<%response.expires=0%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/vip.asp"-->
<%
if adminlevel=1 then
  adminid	=CCur(request("adminid"))
end if
adminname	=request.form("adminname")
adminpass	=request.form("adminpass")

sql="select top 1 adminname from admin where adminid="&adminid
rs.open sql,conn,1,1
if not rs.eof then
  admin=rs(0)
else
  rs.close
  call msgbox("该用户不存在！",1)
end if
rs.close

if adminlevel=1 then
  adminlevel	=request.form("adminlevel")
  if not (adminname="" or adminpass="" or adminlevel="") then
    sql="select top 1 * from admin where adminid="&adminid
    rs.open sql,conn,1,3
    if not rs.eof then
      rs("adminname")	=adminname
      rs("adminpass")	=adminpass
      rs("adminlevel")	=adminlevel
      rs.update
    end if
    rs.close

    call msgbox("管理员修改成功！","../admin/default.asp")
  end if
else
  if not (adminname="" or adminpass="") then
    sql="select top 1 * from admin where adminid="&adminid
    rs.open sql,conn,1,3
    if not rs.eof then
      rs("adminname")	=adminname
      rs("adminpass")	=adminpass
      rs.update
    end if
    rs.close

    call msgbox("添加员修改成功！","../admin/default.asp")
  end if
end if

Set rs=nothing
Set conn=nothing
%>
<!--#include file="../inc/head.asp"-->

<table width="300" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#FFFFFF">
<form name="form" method="post" action="../admin/chg.asp?adminid=<%=request("adminid")%>">
  <tr bgcolor="EFEFEF"><th colspan="2">用户资料修改</th></tr>
  <tr bgcolor="FFFFFF"><td>用户名</td><td><input class="text" type="text" name="adminname" value="<%=admin%>"></td></tr>
  <tr bgcolor="FFFFFF"><td>口令  </td><td><input class="text" type="text" name="adminpass"></td></tr>
<%if Session("adminlevel")=1 then%>
  <tr bgcolor="FFFFFF"><td>权限  </td><td>
<select name="adminlevel">
<option value="1">管理员</option>
<option value="2">添加者</option>
</select>
  </td></tr>
<%end if%>
  <tr bgcolor="FFFFFF"><th colspan="2">
    <input class="button" type="button" value="返　回" onclick="window.location.href='default.asp';">　
    <input class="button" type="submit" name="Submit" value="提　交">　
    <input class="button" type="reset" name="reset" value="取　消">
  </th></tr>
</form>
</table>

<!--#include file="../inc/foot.asp"-->