⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_index.asp

📁 仿雅虎论坛静态生成html版 后台管理：admin/admin.asp 用户名：admin 密码：admin TOP/top.htm 顶部模板 left.htm 左边树形菜单模板
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
     if bbsadmin<>"" then rs("版主")=bbsadmin else rs("版主")=" " end if
     if bbsimage<>"" then rs("版面标记图片")=bbsimage else rs("版面标记图片")=" " end if
     if bbskz="" then rs("访问控制")="1" else rs("访问控制")=bbskz end if
     if bbszt="" then rs("版面状态")="1" else rs("版面状态")=bbszt end if
     if OrderID<>"" then rs("OrderID")=OrderID end if
     rs.Update     
     Call BT_Board_GX
     Application.Lock
     Application(BBSname&"index")=""
     Application(BBSname&boardname)=""
     Application.UnLock
    end if
   end if%>
   <center><form name=addbbsbm  method="post" action="admin_index.asp?admin=3&editbbs=<%=editbbs%>&editbbssave=1">
   <table border=0 width=600 cellspacing=0 cellpadding=0 align=center class=table1>
   <tr><td colspan=2 height=27 class=TBHead>&nbsp;<b>编辑论坛版面</b></td></tr>
   <tr><td width=200 height=27 class=light>版面所在的分类</td><td class=light>
   <INPUT class=fminpt name=flname type=text size=60 value=<%=rs("所属分类")%>>
   </td></tr>
   <tr><td class=light><b>请输入版面名称</b><br>论坛版面的名子</td><td class=light>
   <INPUT class=fminpt name=bbsname type=text size=30 value=<%=rs("版面名称")%>>
   </td></tr>
   <tr><td class=light><b>版面介绍</b><br>这个介绍将显示在版面的名称下面</td><td class=light><INPUT class=fminpt name=bbsjs type=text size=60 value=<%=rs("版面介绍")%>>
   </td></tr>
   <tr><td class=light><b>版主设定</b><br>这个版面的版主,多位版主请用'|'<br>号分开</td><td class=light><INPUT class=fminpt name=bbsadmin type=text size=30 value=<%=rs("版主")%>>
   </td></tr>
   <tr><td class=light><b>版面图片设定</b><br>显示在首页版面名称前面的图<br>片,输入图片地址,在前面加 Http://</td><td class=light><INPUT class=fminpt name=bbsimage type=text size=40 value=<%=rs("版面标记图片")%>>
   </td></tr>
   <tr><td class=light><b>版面访问控制</b><br>1.允许匿名访问,2.用户登陆后才<br>能访问,3.版主和管理员才能访问</td><td class=light><INPUT class=fminpt name=bbskz type=text size=3 value=<%=rs("访问控制")%>>请输入数字1,2,3对前面三种访问控制进行选择(默认为1,都能访问)
   </td></tr>
   <tr><td class=light><b>版面状态设置</b><br>1.正常开放版面,2.锁定版面,只有<br>管理员能发帖,3.注册认证版面<br>4.关闭这个版面</td><td class=light><INPUT class=fminpt name=bbszt type=text size=3 value=<%=rs("版面状态")%>>请输入数字1,2,3,4对前面四种状态进行选择(默认为1,正常开放论坛)
   </td></tr>
   <tr><td class=light1><b>版面排序ID</b><br>注意ID必须是唯一的</td><td class=light><INPUT class=fminpt name=OrderID type=text size=3 value=<%=Cstr(rs("OrderID"))%>>
   </td></tr>   
   <tr><td colspan=2 align=center class=light><input type=Submit value="确定" name=add>&nbsp; <input type="reset" name="Clear" value="清除"></td></tr>
   </table></form></center><%
  end if
else 
 rs.close
 set rs=nothing
 Response.Write "不知道所编辑的版面"
end if
'-----------------------------------------------------------------
case 4 '查找编辑用户资料
 regname=Request("regname")
 if regname<>"" then
  Set rs = Server.CreateObject("ADODB.Recordset")
  sql="select top 1 * from 用户资料 where 用户名='"&regname&"' "
  rs.open sql,conn,1,3
  if rs.bof and rs.eof then
   Response.Write "没有找到这个用户"
  else
   if Request.QueryString("saveedit")=1 then
     rs("用户名")=regname
     if Request.Form("password1")<>"" and Request.Form("password2")<>"" and Request.Form("password1")=Request.Form("password2") then rs("密码")=Request.Form("password1") end if
     if Request.Form("email")<>"" then rs("电子邮件")=Request.Form("email") end if
     if Request.Form("sex")<>"" then rs("性别")=Request.Form("sex") end if
     if Request.Form("idimage")<>"" then rs("头像ID")=Request.Form("idimage") end if
     if Request.Form("Oicq")<>"" then rs("Oicq")=Request.Form("Oicq") end if
     if Request.Form("Icq")<>"" then rs("Icq")=Request.Form("Icq") end if
     if Request.Form("zsname")<>"" then rs("真实姓名")=Request.Form("zsname") end if
     if Request.Form("homedress")<>"" then rs("家庭住址")=Request.Form("homedress") end if
     if Request.Form("pf")<>"" then rs("联系电话")=Request.Form("pf") end if
     if Request.Form("sfzh")<>"" then rs("身份证号")=Request.Form("sfzh") end if
     if Request.Form("youlove")<>"" then rs("你的爱好")=Request.Form("youlove") end if
     if Request.Form("sr")<>"" then rs("生日")=Request.Form("sr") end if
     if Request.Form("photo")<>"" then rs("个人照片")=Request.Form("photo") end if
     if Request.Form("mp")<>"" then rs("门派")=Request.Form("mp") end if
     if Request.Form("qm")<>"" then rs("签名")=Request.Form("qm") end if
     if Request.Form("qx")<>"" then rs("权限")=Request.Form("qx") end if
     if Request.Form("dq")<>"" then rs("等级")=Request.Form("dq") end if
     if Request.Form("sw")<>"" then rs("声望")=Request.Form("sw") end if
     if Request.Form("jf")<>"" then rs("积分")=Request.Form("jf") end if
     if Request.Form("jy")<>"" then rs("经验")=Request.Form("jy") end if
     if Request.Form("money")<>"" then rs("金钱")=Request.Form("money") end if
     rs.update
     Response.Write "更新完成"
   else
   Response.Write "<form name=userxg action=admin_index.asp?admin=4&saveedit=1 method=post>"
   Response.Write "<table border=0 width=600>"
   Response.Write "<tr><td colspan=3 height=27 class=TBHead>&nbsp;<font class=NavColor>论坛后台管理 >> 查找编辑用户资料</font></td></tr>"
   if rs("帐号状态")="" or rs("帐号状态")="unlock" then
       Response.Write "<tr><td width=100 height=27>&nbsp;帐号状态:</td><td width=200>"&rs("帐号状态")&" &nbsp;[<a href=admin_index.asp?admin=22&userid="&rs("id")&">加入黑名单</a>]&nbsp;[<a href=admin_index.asp?admin=24&userid="&rs("id")&">删除该帐号</a>]</td><td>Lock为锁定帐号(在黑名单内),UnLock为正常使用的帐号</td></tr>"
   else
       Response.Write "<tr><td width=100 height=27>&nbsp;帐号状态:</td><td width=200>"&rs("帐号状态")&" &nbsp;[<a href=admin_index.asp?admin=23&userid="&rs("id")&">从黑名单中删除</a>]&nbsp;[<a href=admin_index.asp?admin=24&userid="&rs("id")&">删除该帐号</a>]</td><td>Lock为锁定帐号(在黑名单内),UnLock为正常使用的帐号</td></tr>"
   end if
   Response.Write "<tr><td width=100 height=27>&nbsp;访问IP:</td><td width=200>"&rs("访问IP")&"&nbsp;&nbsp;&nbsp;&nbsp;[<a href=admin_index.asp?admin=25&IpDress="&rs("访问IP")&">锁定此IP地址</a>]</td><td>最后访问的IP地址</td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;用户名:</td><td width=200><INPUT class=fminpt name=regname type=text size=20 value="&rs("用户名")&"></td><td>用户注册的名称</td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;设置密码:</td><td width=200><INPUT class=fminpt name=password1 type=password size=20 value="&rs("密码")&"></td><td>不改密码不要动它</td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;确认密码:</td><td width=200><INPUT class=fminpt name=password2 type=password size=20 value="&rs("密码")&"></td><td>不改密码不要动它</td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;电子邮件:</td><td width=200><INPUT class=fminpt name=email type=text size=30 value="&rs("电子邮件")&"></td><td>注册用户的电子邮件</td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;性别:</td><td width=200><INPUT class=fminpt name=sex type=text size=5 value="&rs("性别")&"></td><td>用户性别</td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;头像:</td><td width=200><INPUT class=fminpt name=idimage type=text size=10 value="&rs("头像ID")&">&nbsp;<a href=../board/imageid.asp target=_blank>头像一览表</a></td><td>注册用户头像文件名</td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;Oicq:</td><td width=200><INPUT class=fminpt name=oicq type=text size=10 value="&rs("Oicq")&"></td><td></td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;Icq:</td><td width=200><INPUT class=fminpt name=icq type=text size=10 value="&rs("Icq")&"></td><td></td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;真实姓名:</td><td width=200><INPUT class=fminpt name=zsname type=text size=20 value="&rs("真实姓名")&"></td><td>注册用户的真实姓名</td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;家庭住址:</td><td width=200><INPUT class=fminpt name=homedress type=text size=40 value="&rs("家庭住址")&"></td><td>注册用户的家庭住址</td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;联系电话:</td><td width=200><INPUT class=fminpt name=pf type=text size=15 value="&rs("联系电话")&"></td><td>注册用户的联系电话</td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;身份证号:</td><td width=200><INPUT class=fminpt name=sfz type=text size=20 value="&rs("身份证号")&"></td><td>用户身份证号码</td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;你的爱好:</td><td width=200><INPUT class=fminpt name=youlove type=text size=30 value="&rs("你的爱好")&"></td><td>个人爱好</td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;生日:</td><td width=200><INPUT class=fminpt name=sr type=text size=20 value="&rs("生日")&"></td><td>用户生日时间</td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;个人照片:</td><td width=200><INPUT class=fminpt name=photo type=text size=30 value="&rs("个人照片")&"></td><td></td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;门派:</td><td width=200><INPUT class=fminpt name=mp type=text size=20 value="&rs("门派")&"></td><td>注册用户所属门派</td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;签名:</td><td width=200><TEXTAREA rows=3 cols=40 name=qm>"&rs("签名")&"</textarea></td><td>用户的签名</td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;注册时间:</td><td width=200>"&rs("注册时间")&"</td><td>用户注册的时间</td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;用户权限:</td><td width=200><INPUT class=fminpt name=qx type=text size=30 value="&rs("权限")&"></td><td>如果是注册用户为reguser,版主设为bbsadmin,管理员设为admin,管理员不能同时为版主</td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;等级:</td><td width=200><INPUT class=fminpt name=dq type=text size=10 value="&rs("等级")&"></td><td>用户在论坛的等级</td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;声望:</td><td width=200><INPUT class=fminpt name=sw type=text size=10 value="&rs("声望")&"></td><td></td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;积分:</td><td width=200><INPUT class=fminpt name=jf type=text size=10 value="&rs("积分")&"></td><td></td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;经验:</td><td width=200><INPUT class=fminpt name=jy type=text size=10 value="&rs("经验")&"></td><td></td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;金钱:</td><td width=200><INPUT class=fminpt name=money type=text size=10 value="&rs("金钱")&"></td><td></td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;主题数:</td><td width=200>"&rs("主题数")&"</td><td></td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;回帖数:</td><td width=200>"&rs("回复数")&"</td><td></td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;上次登陆时间:</td><td width=200>"&rs("上次登陆时间")&"</td><td></td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;最后活动时间:</td><td width=200>"&rs("最后活动时间")&"</td><td></td></tr>"
   Response.Write "<tr><td width=100 height=27>&nbsp;登陆次数:</td><td width=200>"&rs("登陆次数")&"</td><td></td></tr>"
   Response.Write "<tr><td align=right><input type=Submit value=确定 name=add></td><td></td>"
   Response.Write "</table>"
   Response.Write "</form>"
   end if
  end if
  rs.close
  set rs=nothing
 else
   Set rs = Server.CreateObject("ADODB.Recordset")
   sql="select id,用户名,注册时间 from 用户资料 order by id "
   rs.open sql,conn,1,1%>
   <br><br><form name=userzl  method=post action=admin_index.asp?admin=4>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;请输入查找编辑的用户名
   <INPUT class=fminpt name=regname type=text size=30 value=<%=regname%>>
   <input type=Submit value="确定" name=add>
   </form><center>
   <table border=0 width=487 cellspacing=0 cellpadding=0 align=center class=table1>
   <tr><td colspan=4 height=27 class=TBHead>&nbsp;最新十个注册用户</td></tr>
   <tr><td height=27 align=center width=37 class=light1>ID</td><td align=center width=150 class=TBHead>用户名</td><td align=center width=180 class=TBHead>注册时间</td><td align=center width=120 class=TBHead>操作</td></tr><%
    if rs.bof and rs.eof then
     Response.Write "没有找到任何注册用户"
    else
     rs.movelast
     dj=0
     while not rs.bof and dj<10
     dj=dj+1
     Response.Write "<tr><td height=27 align=center class=light>"&cstr(rs("id"))&"</td><td class=light>&nbsp;<a href=admin_index.asp?admin=4&regname="&rs("用户名")&">"&rs("用户名")&"</a></td><td align=center class=light>"&cstr(rs("注册时间"))&"</td><td align=center class=light><a href=admin_index.asp?admin=4&regname="&rs("用户名")&">查看/编辑</a></td></tr>"
     rs.MovePrevious
     wend
    end if
   Response.Write "</table></center><br>"
 rs.close
 set rs=nothing
 end if
case 5
  DIM myFile  Const ForReading = 1  myFile = Server.MapPath("../board/const.asp")
  SET fileStreamObj = CreateObject("Scripting.FileSystemObject")  SET textStream = fileStreamObj.OpenTextFile(myFile,ForReading,False)  filenl=textStream.ReadAll()  textStream.Close()
  set textStream=nothing
  set fileStreamObj=nothing
  
  Response.Write "<form name=filexg action=admin_index.asp?admin=6 method=post>"
  Response.Write "<table border=0>"
  Response.Write "<tr><td width=380><TEXTAREA class=fminpt rows=25 cols=90 name=filex>"&filenl&"</textarea></td></tr>"
  Response.Write "<tr><td align=center><input type=Submit value=完成 name=add></td></tr>"
  Response.Write "</table>"
case 6
  if Request.Form("filex")<>"" then
  filex=Request.Form("filex")
  Const Forwriting = 2
  Const ForAppending = 8  myFile = Server.MapPath("../board/const.asp")
  SET fileStreamObj = CreateObject("Scripting.FileSystemObject")  SET textStream = fileStreamObj.OpenTextFile(myFile,ForWriting,False)  textStream.Write(filex)  textStream.Close()
  set textStream=nothing
  set fileStreamObj=nothing
  Response.Write "修改完成"
  else
  Response.Write "意外错误"
  end if
case 7
  Set rs = Server.CreateObject("ADODB.Recordset")
  sql="select * from 论坛等级 "
  rs.open sql,conn,1,3
  Response.Write "<table><tr><td>等级</td><td>等级名称</td><td>所需积分</td><td>所需经验</td><td>所需声望</td><td>所需发帖量</td><td align=center>操作</td></tr>"
  if not (rs.bof and rs.eof) then
  rs.movefirst
  while not rs.eof
   Response.Write "<tr><td><form name=UpdateDJ  method=post action=Admin_index.asp?admin=8&id="&cstr(rs("id"))&"><input name=Dj type=text size=2 value="&cstr(rs("等级"))&"></td><td><input name=DjName type=text size=10 value="&rs("等级名称")&"></td><td><input type=text name=JF size=4 value="&cstr(rs("所需积分"))&"></td><td><input type=text name=JY size=4 value="&cstr(rs("所需经验"))&"></td><td><input type=text name=SW size=4 value="&cstr(rs("所需声望"))&"></td><td><input type=text name=FT size=5 value="&cstr(rs("所需发帖量"))&"></td><td><input type=Submit value=更新 name=gxdj></td></tr></form>"
   rs.movenext
  wend
  end if
  Response.Write "</table>"
case 8
  Set rs = Server.CreateObject("ADODB.Recordset")
  sql="select top 1 * from 论坛等级 where id="&Request.QueryString("id")&" "
  rs.open sql,conn,1,3
  if not (rs.bof and rs.eof) then
   rs("等级")=Request.Form("DJ")
   rs("等级名称")=Request.Form("DjName")
   rs("所需积分")=Request.Form("JF")
   rs("所需经验")=Request.Form("JY")
   rs("所需声望")=Request.Form("SW")
   rs("所需发帖量")=Request.Form("FT")
   rs.update
   Response.Write "更新完成"
  else
   Response.Write "没有找到所要修改的记录"
  end if
  rs.close
  set rs=nothing
case 9 '添加友情链接
  Set rs = Server.CreateObject("ADODB.Recordset")
  sql="select * from 友情链接 "
  rs.open sql,conn,1,3
  if Request.Form("addlink")<>"" then
   if Request.Form("netname")<>"" and Request.Form("netjs")<>"" and Request.Form("linkurl")<>"" then
   rs.addnew
   rs("网站名称")=Request.Form("netname")
   rs("网站介绍")=Request.Form("netjs")
   rs("链接地址")=Request.Form("linkurl")
   rs("图片地址")=Request.Form("imageurl")
   if Request.Form("imagea")="" or IsNumeric(Request.Form("imagea"))=false then imagea=88 else imagea=Request.Form("imagea") end if
   rs("图片宽度")=imagea
   if Request.Form("imageb")="" or IsNumeric(Request.Form("imageb"))=false then imageb=31 else imageb=Request.Form("imageb") end if
   rs("图片高度")=imageb
   rs("说明")=Request.Form("netbz")
   rs.update
   Application(BBSname&"link")=""
   else
    Response.Write "网站名称,网站介绍,链接地址均不能为空!"
   end if
  end if
  Response.Write "<table width=100% class=table1><tr height=27 align=center><td class=TBHead>网站名称</td><td class=TBHead>网站介绍</td><td class=TBHead>链接地址</td><td class=TBHead>图片地址</td><td class=TBHead>图宽</td><td class=TBHead>图高</td><td class=TBHead>说明</td><td class=TBHead>操作</td></tr>"
  if not(rs.bof and rs.eof) then
   rs.movefirst
   while not rs.eof
   Response.Write "<tr><form name=gx  method=post action=admin_index.asp?admin=10&id="&cstr(rs("id"))&"><td><INPUT class=fminpt name=netname type=text size=10 value="&rs("网站名称")&"></td><td><INPUT class=fminpt name=netjs type=text size=15 value="&rs("网站介绍")&"></td><td><INPUT class=fminpt name=linkurl type=text size=15 value="&rs("链接地址")&"></td><td><INPUT class=fminpt name=imageurl type=text size=15 value="&rs("图片地址")&"></td><td><INPUT class=fminpt name=imagea type=text size=2 value="&cstr(rs("图片宽度"))&"></td><td><INPUT class=fminpt name=imageb type=text size=2 value="&cstr(rs("图片高度"))&"></td><td><INPUT class=fminpt name=netbz type=text size=10 value="&rs("说明")&"></td><td><input type=Submit value=更 name=linkgx>&nbsp;<input type=Button name=dellink value='删' onclick=window.location.href='admin_index.asp?admin=11&id="&cstr(rs("id"))&"'></td></form></tr>"
   rs.movenext
   wend
  else
   Response.Write "<tr height=27><td colspan=7 class=light align=center>还没有任何记录</td></tr>"
  end if
  Response.Write "</table>"
  Response.Write "<table>"
  Response.Write "<form name=link  method=post action=admin_index.asp?admin=9>"
  Response.Write "<tr><td>*网站名称</td><td><INPUT class=fminpt name=netname type=text size=40></td></tr>"
  Response.Write "<tr><td>*网站介绍</td><td><INPUT class=fminpt name=netjs type=text size=60></td></tr>"
  Response.Write "<tr><td>*链接地址</td><td><INPUT class=fminpt name=linkurl type=text size=50>&nbsp;请在前面加Http://</td></tr>"
  Response.Write "<tr><td>图片地址</td><td><INPUT class=fminpt name=imageurl type=text size=50></td></tr>"
  Response.Write "<tr><td>图片宽度</td><td><INPUT class=fminpt name=imagea type=text size=10></td></tr>"
  Response.Write "<tr><td>图片高度</td><td><INPUT class=fminpt name=imageb type=text size=10></td></tr>"
  Response.Write "<tr><td>说明</td><td><INPUT class=fminpt name=netbz type=text size=60></td></tr>"
  Response.Write "<tr><td colspan=2 align=center><input type=Submit value=增加 name=addlink></td>"
  Response.Write "<form>"
  Response.Write "</table>"
  rs.close
 set rs=nothing
case 10 '更新友情链接记录
  Set rs = Server.CreateObject("ADODB.Recordset")
  sql="select top 1 * from 友情链接 where id="&cint(Request.QueryString("id"))&" "
  rs.open sql,conn,1,3
  if not (rs.bof and rs.eof) then
   rs("网站名称")=Request.Form("netname")
   rs("网站介绍")=Request.Form("netjs")
   rs("链接地址")=Request.Form("linkurl")
   rs("图片地址")=Request.Form("imageurl")
   if Request.Form("imagea")="" or IsNumeric(Request.Form("imagea"))=false then imagea=88 else imagea=Request.Form("imagea") end if
   rs("图片宽度")=imagea
   if Request.Form("imageb")="" or IsNumeric(Request.Form("imageb"))=false then imageb=31 else imageb=Request.Form("imageb") end if
   rs("图片高度")=imageb
   rs("说明")=Request.Form("netbz")
   rs.update
   Application(BBSname&"link")=""
   Response.Write "更新完成"
  else
   Response.Write "没有找到所要修改的记录"
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -