📄 admin-index.asp

📁 一个小巧的论坛程序本程序基本功能：　可开设任意数目的讨论区类别和版块使用Cookies
💻 ASP
字号:
<!--#include file="conn.asp"--><!--#include file="md5.asp"--><%
set bbs=myconn.execute("select*from bbsinfo")
sty="all"
sp=request.cookies(cn&"1")(sty)
c1=request.cookies(cn&"1")(sty&"c1")
c2=request.cookies(cn&"1")(sty&"c2")

tlinfo=bbs("tlinfo")
tli=split(tlinfo,"|?|")
tl=tli(0)
c11=tli(1)
c12=tli(2)
topinfo=tli(3)
upnum=tli(4)
upsize=tli(5)
b1s=tli(6)
autotable=tli(7)
alltb=tli(8)
cbbs=tli(9)
lmbbs=tli(10)

if sp="" then sp=b1s
if c1="" then c1=c11
if c2="" then c2=c12
set bbs=nothing

lgname=check2(Request.Cookies(cn&"0")("lgname"))
lgpwd=check2(request.cookies(cn&"0")("lgpwd"))
lgpwd=md5(lgpwd)
set cjbz=myconn.execute("select name from admin where name='"&lgname&"' and password='"&lgpwd&"' and bd='70767766'")
if cjbz.eof then
set cjbz=nothing
response.redirect"admin-login.asp"
end if
myconn.close
set myconn=nothing%><title>论坛管理</title><%
if request.querystring("action")="left" then 
call left()
else
%>
<frameset cols="20%,*" framespacing="0" border="0" frameborder="0">
  <frame name="left" src="?action=left" scrolling="auto" target="right">
  <frame name="right" src="admin-right.asp" scrolling="auto" noresize>
  <noframes>
  <body>

  <p>此网页使用了框架，但您的浏览器不支持框架。</p>

  </body>
  </noframes>
</frameset>
<%end if%>
<%
sub left()%><link rel="stylesheet" type="text/css" href="css.css"><SCRIPT src=menu.js></SCRIPT>
<base target="right">
<body topmargin="0" leftmargin="0">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="100%" height="28" background="pic/<%=sp%>3.gif" align="center">
<a target="_top" href="index.asp">
<img border="0" src="pic/home.gif"> <b> <font color="#FFFFFF">首页</font></b></a>
<a target="_top" href="admin-login.asp?menu=exit">
<img border="0" src="pic/home.gif"> <b> <font color="#FFFFFF">退出</font></b></a>
</td>
</tr><tr><td height="5"></td></tr>
</table>

<table onclick=showtb(4) border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr style='CURSOR: hand;'><td width="100%" height="22" background="pic/<%=sp%>3.gif">
&nbsp;<img border="0" src="pic/fl.gif"> <font color="#FFFFFF"><b>论坛常规设置</b></font></td></tr></table>
<table id=tbtype4 border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor=#F7F8FD height="1">
  <tr>
    <td width="100%" height="26"><img border="0" src="pic/bbsinfo.gif">
    <a href="admin-right.asp?action=bbs">论坛信息设置</a></td>
  </tr>
<tr>
    <td width="100%" height="26"><img border="0" src="pic/bbsinfo.gif">
    <a href="admin-gl1.asp?menu=closebbs">论坛开关设置</a></td>
  </tr>
  <tr>
    <td width="100%" height="26"><img border="0" src="pic/bbsinfo.gif">
    <a href="admin-gl1.asp?menu=gonggao">公告发布</a><span lang="zh-cn">·<a href="admin-gl1.asp?menu=gonggaogl">管理</a></span></td>
  </tr>
<tr>
    <td width="100%" height="26"><img border="0" src="pic/bbsinfo.gif">
    <a href="admin-gl1.asp?menu=bbszl">论坛整理</a></td>
  </tr>
    <tr>
    <td width="100%" height="10"></td>
  </tr>
  </table>

<table onclick=showtb(1) border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
  <tr style='CURSOR: hand;'>
    <td width="100%" height="22" background="pic/<%=sp%>3.gif">
    &nbsp;<img border="0" src="pic/fl.gif"> <font color="#FFFFFF"><b>论坛管理</b></font></td>
  </tr>
</table>
<table id=tbtype1 border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor=#F7F8FD height="1">
  <tr>
    <td width="100%" height="26"><img border="0" src="pic/bbsinfo.gif">
    <a href="admin-right.asp?action=addfl">添加论坛分类</a></td>
  </tr>
  <tr>
    <td width="100%" height="26"><img border="0" src="pic/bbsinfo.gif">
    <a href="admin-gl.asp?menu=addbbs">论坛添加</a>·<a href="admin-gl.asp?menu=bbsgl">管理</a>　</td>
  </tr>
  <tr>
    <td width="100%" height="26"><img border="0" src="pic/bbsinfo.gif">
    <a href="admin-right.asp?action=hbbbs">论坛合并</a></td>
  </tr>
  <tr>
    <td width="100%" height="27"><img border="0" src="pic/bbsinfo.gif">
    <a href="admin-right.asp?action=bzgl&bz=add">版主添加</a>·<a href="admin-right.asp?action=bzgl&bz=del">删除</a></td>
  </tr>
  <tr>
    <td width="100%" height="27"><img border="0" src="pic/bbsinfo.gif">
    <a href="admin-right.asp?action=lm">论坛联盟管理</a></td>
  </tr>
  <tr>
    <td width="100%" height="27"><img border="0" src="pic/bbsinfo.gif">
    <a href="admin-right.asp?action=chadmin">编辑管理员</a></td>
  </tr>
  <tr>
    <td width="100%" height="10"></td>
  </tr>
</table>
<table onclick=showtb(2) border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
  <tr style='CURSOR: hand;'>
    <td width="100%" height="22" background="pic/<%=sp%>3.gif">
    &nbsp;<img border="0" src="pic/fl.gif"> <font color="#FFFFFF"><b>用户管理</b></font></td>
  </tr>
</table>
<table id=tbtype2 border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor=#F7F8FD height="1">
  <tr>
    <td width="100%" height="26"><img border="0" src="pic/bbsinfo.gif">
    <a href="admin-right.asp?action=deluser">删除用户</a></td>
  </tr>
  <tr>
    <td width="100%" height="27"><img border="0" src="pic/bbsinfo.gif">
    <a href="admin-right.asp?action=updateuser">更改用户资料</a></td>
  </tr>
  <tr>
    <td width="100%" height="27"><img border="0" src="pic/bbsinfo.gif">
    <a href="admin-right.asp?action=chpwd">更改用户密码</a></td>
  </tr>
  <tr>
    <td width="100%" height="10"></td>
  </tr>
</table>

<table onclick=showtb(3) border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
  <tr style='CURSOR: hand;'>
    <td width="100%" height="22" background="pic/<%=sp%>3.gif">
    &nbsp;<img border="0" src="pic/fl.gif"> <font color="#FFFFFF"><b>帖子和留言管理</b></font></td>
  </tr>
</table>
<table id=tbtype3 border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor=#F7F8FD height="9">
  <tr>
    <td width="100%" height="26"><img border="0" src="pic/bbsinfo.gif">
    <a href="admin-right.asp?action=delany">批量删除帖子</a></td>
  </tr>
  <tr>
    <td width="100%" height="26"><img border="0" src="pic/bbsinfo.gif">
    <a href="admin-right.asp?action=moveany">批量移动帖子</a></td>
  </tr> <tr>
    <td width="100%" height="26"><img border="0" src="pic/bbsinfo.gif">
    <a href="admin-right.asp?action=bbsmail">论坛留言管理</a></td>
  </tr>
  <tr>
    <td width="100%" height="26"><img border="0" src="pic/bbsinfo.gif">
    <a href="admin-right.asp?action=tablegl">论坛数据表管理</a></td>
  </tr>
  <tr>
    <td width="100%" height="10"></td>
  </tr>
  </table>

<table onclick=showtb(5) border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
  <tr style='CURSOR: hand;'>
    <td width="100%" height="22" background="pic/<%=sp%>3.gif">
    &nbsp;<img border="0" src="pic/fl.gif"> <font color="#FFFFFF"><b>其他操作</b></font></td>
  </tr>
</table>
<table id=tbtype5 border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor=#F7F8FD height="9">
  <tr>
    <td width="100%" height="26"><img border="0" src="pic/bbsinfo.gif">
    <a href="mdbcon.asp">数据库操作</a></td>
  </tr>
  <tr>
    <td width="100%" height="26"><img border="0" src="pic/bbsinfo.gif">
    <a href="admin-gl2.asp?menu=uploadfile">上传文件管理</a></td>
  </tr>
</table><br>
<table onclick="javascript:window.open('http://www.6kbbs.net/')" align=center border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor=<%=c2%>>
<tr style='CURSOR: hand;'><td width="100%" height="22"><p style='margin:5px'><font color="<%=c2%>">欢迎您使用<br>6Kbbs论坛系统 ...<br>
官方支持站点http;//www.6kbbs.net/ </font></p>
</td></tr></table>
<p></p>
<%end sub%>
💿 文件大小 199 K
👤 上传用户 horse2000
📂 所属分类数据库系统
🏷️ 相关标签

#Cookies #程序 #论坛
⌨️ 快捷键说明

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