default.asp

视频源代码 视频源代码

<%response.expires=0%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/vip.asp"-->
<%
if not adminlevel=1 then
  call msgbox("您的级别不够！",0)
end if
%>
<!--#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/add.asp">
  <tr bgcolor="EFEFEF"><th colspan="2">添加新用户</th></tr>
  <tr bgcolor="FFFFFF"><td>用户名</td><td><input class="text" type="text" name="adminname"></td></tr>
  <tr bgcolor="FFFFFF"><td>口令  </td><td><input class="text" type="text" name="adminpass"></td></tr>
  <tr bgcolor="FFFFFF"><td>权限  </td><td>
<select name="adminlevel">
<option value="1">管理员</option>
<option value="2">添加者</option>
</select>
  </td></tr>
  <tr bgcolor="FFFFFF"><th colspan="2">
    <input class="button" type="submit" name="Submit" value="提　交">　　　　　　
    <input class="button" type="reset" name="reset" value="取　消">
  </th></tr>
</form>
</table>
<br><br>
<%
sql="select adminid,adminname,adminlevel from admin"
rs.open sql,conn,1,1
if rs.eof then
  response.write "<p align=""center"">现在尚无注册用户～</p>"
else
  admin=rs.getrows
end if
rs.close

Set rs=nothing
Set conn=nothing
%>
<table border="0" align="center" width="300" cellpadding="2" cellspacing="1">
  <tr bgcolor="EFEFEF"><th>用户名</th><th>权限</th><th colspan="2">进行操作</td></tr>
<%
if isarray(admin) then
  for i=0 to ubound(admin,2)
%>
  <tr bgcolor="FFFFFF">
    <td><%=admin(1,i)%></td>
<%
select case CCur(admin(2,i))
  case 1:level="管理员"
  case 2:level="添加者"
end select
%>
    <th><%=level%></th>
    <th><a href="../admin/chg.asp?adminid=<%=admin(0,i)%>">修改</a></th>
    <th><a href="javascript:del(<%=admin(0,i)%>,'<%=admin(1,i)%>');">删除</a></th>
  </tr>
<%
  next
  Set admin=nothing
end if
%>
</table>


<script>
function del(id,name){
  if (confirm("您真的要删除\n\n　　I D　："+id+"\n\n　　Name："+name+"\n\n这个用户吗？\n\n　　　　　Copyright by 2005～2008 EYZG.COM")){
      document.location.href="../admin/del.asp?adminid=" + id;
  }
}
</script>


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