📄 adadmin.asp

📁 obbs完全基于Dreamweaver 和EmEditor 下面完成.采用最好的可视结构,非常用利于修改,结构很明确.代码效少.管理非常简单

💻 ASP

字号:

 <!--#include file="admin_conn.asp"-->
<%
dim id,user
id=request.form("id")
user=request.form("user")
if request.form("adduser")<>"" then
call addadminuser()
end if
if request.Form("deluser")<>"" then
call deladminuser()
end if
sub addadminuser()
dim jibie,rs,sqltext,ltbz
jibie=request.form("jibie")
set rs=server.createobject("adodb.recordset")
sqltext="select jibie,qx from userinfo where user='"&user&"'"
rs.open sqltext,conn,1,3
if rs.eof then
response.write"没找到此用名.添加不成功<a href=# onClick='history.back()'> 后退</a>"&user
exit sub
end if
rs("jibie")=jibie
rs("qx")=(request("id")&"|"&rs("qx"))
rs.update
set rs=server.createobject("adodb.recordset")
sqltext="select ltbz from ltlb where id="&request.Form("id")
rs.open sqltext,conn,1,3
ltbz=rs("ltbz")&user&"|"
rs("ltbz")=ltbz
rs.update
response.write "<script> parent.document.all.ltbz.innerHTML="""&rs("ltbz")&"""</script>"
response.write"增加管理员成功!<a href=# onClick='history.back()'> 后退</a>"
response.end
end sub

sub deladminuser()
dim rs,sqltext,bz,i,ltsel
conn.execute("update userinfo set jibie='普通用户' where user='"&user&"'")
set rs=server.createobject("adodb.recordset")
sqltext="select ltbz,id from ltlb where id="&id
rs.open sqltext,conn,1,3
bz=""
		ltsel=split(rs("ltbz"),"|")
		for i=0 to ubound(ltsel)
		if ltsel(i)=user then
		ltsel(i)=""
		end if
if ltsel(i)<>"" then		
bz=ltsel(i)+"|"+bz
end if
next
rs("ltbz")=bz
rs.update
response.write "<script> parent.document.all.ltbz.innerHTML="""&rs("ltbz")&"""</script>"
response.write"删除管理员成功!<a href=# onClick='history.back()'> 后退</a>"
response.end
end sub
%>
<link href="DEFAULT.css" rel="stylesheet" type="text/css">
<body leftmargin="0" topmargin="0">
<form name="form1" method="post" action="adadmin.asp">
  <input type="hidden" name="id" value="<%=request.QueryString("id")%>">
  <input type="text" name="user">
  <select name="jibie">
    <option value="管理员">管理员</option>
    <option value="总版主">总版主</option>
    <option value="站长">站长</option>
    <option value="版主">版主</option>
    <option value="编委">编委</option>
    <option value="编辑">编辑</option>
    <option value="撰稿人">撰稿人</option>
  </select>
  <input name="adduser" type="submit" id="adduser" value="添加">
  <input name="deluser" type="submit" id="deluser" value="删除">
</form>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -