www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_adminmodify.asp
<%CheckAdmin3%>
<!--#include file="const.asp"-->
<!--#include file="inc/char.inc"-->
<LINK href="admin_style.css" type=text/css rel=stylesheet>
<META http-equiv=Content-Type content=text/html; charset=gb2312>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0" class=tdbg>
<%
founderr=false
id=request.QueryString("id")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where id="&id
rs.open sql,conn,1,1
if rs.eof then
errmsg=errmsg+"<br>"+"<li>服务器出错！请联系管理员"
founderr=true
else
Username=rs("Username")
Password=rs("Password")
oskey=rs("oskey")
rs.close
end if
if founderr=true then
call error()
else
%>
<TABLE class=tdbg cellSpacing=1 cellPadding=3 align=center border=0 width=100%>
<TR>
<TH class=title colSpan=2 height=25>修 改 管 理 员 资 料</TH>
</TR>
<form method="POST" action="admin_AdminSave.asp?id=<%=id%>" id=form2 name=form2>
<tr>
<td width="30%" align="right" height="22" class=TableRow2>用户名：</td>
<td width="70%" class="TableRow2">
<input type="text" name="username" value="<%=Username%>" size="20"></td>
</tr>
<tr>
<td width="30%" align="right" height="22" class=TableRow2>密码：</td>
<td width="70%" class="TableRow2"> <font size="2">
<input type="password" name="password" size="20" style="20">
如不修改密码保持空白 </font></td>
</tr>
<tr>
<td width="30%" align="right" height="22" class=TableRow2>权限：</td>
<td width="70%" height="22" class="TableRow2">
<select name="oskey" style="font-size:9pt">
<option value=super<%if oskey="super" then%> selected<%end if%>>高级管理员</option>
<option value=check<%if oskey="check" then%> selected<%end if%>>中级管理员</option>
<option value=input<%if oskey="input" then%> selected<%end if%>>初级管理员</option>
</select>
</td>
</tr>
<tr align="center" height="24">
<th colspan=2>
<input type="hidden" value="edit" name="act">
<input type="submit" class="Button" value=" 修 改 " name="cmdok2">
<input type="reset" value=" 清 除 " name="cmdcance2l">
</th>
</tr>
</form>
</table>
<%end if%>