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

📄 admindefault.asp

📁 一个不错的论坛原代码
💻 ASP
📖 第 1 页 / 共 2 页
字号:
          <td width="100%" bgcolor=<%=tColor2%> class=tdc> 
          <div align="left"> ==> <a href="adminreload.asp" target="mainFrame">*恢复数据</a></div>
          </td>
        </tr>
        <tr> 
          <td width="100%" bgcolor=<%=tColor2%> class=tdc> 
          <div align="left"> ==> <a href="adminys.asp" target="mainFrame">*压缩数据</a></div>
          </td>
        </tr>
         <tr> 
          <td  height="22" <%=tColor%> class=tdc1 width="100%">
            <div align="left" >&nbsp; 友情连接</div>
          </td>
        </tr>
        <tr> 
          <td width="100%" bgcolor=<%=tColor2%> class=tdc> 
          <div align="left"> ==> <a href="adminlink.asp?action=add" target="mainFrame">添加连接</a></div>
          </td>
        </tr>

               <tr> 
          <td width="100%" bgcolor=<%=tColor2%> class=tdc> 
           <div align="left"> ==> <a href="adminlink.asp" target="mainFrame">连接管理</a></div>
          </td>
        </tr>
   <tr> 
          <td  height="22" <%=tColor%> class=tdc1 width="100%">
            <div align="left" >&nbsp; 其它</div>
          </td>
        </tr>
               <tr> 
          <td width="100%" bgcolor=<%=tColor2%> class=tdc> 
           <div align="left"> ==> <a href="adminupload.asp" target="mainFrame">*上传文件管理</a></div>
          </td>
        </tr>
      <tr> 
          <td width="100%" bgcolor=<%=tColor2%> class=tdc> 
           <div align="left"> ==> <a href="adminuploadface.asp" target="mainFrame">*上传头像管理</a></div>
          </td>
        </tr>
              <tr> 
          <td width="100%" bgcolor=<%=tColor2%> class=tdc> 
          <div align="left"> ==> <a href="adminpm.asp" target="mainFrame">短信管理</a></div>
          </td>
        </tr>
                <tr> 
          <td width="100%" bgcolor=<%=tColor2%> class=tdc> 
          <div align="left"> ==> <a href="adminemail.asp" target="mainFrame">邮件列表</a></div>
          </td>
        </tr>
    <tr> 
          <td width="100%" bgcolor=<%=tColor2%> class=tdc> 
          <div align="left"> ==> <a href="adminfav.asp" target="mainFrame">收藏夹管理</a></div>
          </td>
        </tr>
                <tr> 
          <td width="100%" bgcolor=<%=tColor2%> class=tdc> 
          <div align="left"> ==> <a href="admincheckasp.asp" target="mainFrame">服务器变量</a></div>
          </td>
        </tr>
            <tr> 
          <td width="100%" bgcolor=<%=tColor2%> class=tdc> 
            <div align="left"> ==> <a href="adminbad.asp" target="mainFrame">过滤词语</a></div>
          </td>
        </tr>
      <tr> 
          <td width="100%" bgcolor=<%=tColor2%> class=tdc> 
            <div align="left"> ==> <a href="adminbad.asp?action=lockreg" target="mainFrame">禁止注册</a></div>
          </td>
        </tr>
          <tr> 
          <td width="100%" bgcolor=<%=tColor2%> class=tdc> 
         <div align="left"> ==> <a href="adminip.asp" target="mainFrame">限制ip</a></div>
          </td>
        </tr>
       <tr> 
          <td width="100%" bgcolor=<%=tColor2%> class=tdc> 
           <div align="left"> ==> <a href="adminspace.asp" target="mainFrame">*数据占用统计</a></div>
          </td>
        </tr>

		   <tr> 
          <td  height="22" <%=tColor%> class=tdc1>
           <div align="left">&nbsp; 管理资料</div>
          </td>
        </tr>
        <tr>
	
        <tr> 
          <td width="100%" bgcolor=<%=tColor2%> class=tdc> 
           <div align="left"> ==> <a href="adminadmin.asp" target="mainFrame">管理员列表</a></div>
          </td>
        </tr>
           <tr> 
          <td width="100%" bgcolor=<%=tColor2%> class=tdc> 
          <div align="left"> ==> <a href="adminlog.asp" target="mainFrame">管理日志</a></div>
          </td>
        </tr>
             <tr> 
          <td width="100%" bgcolor=<%=tColor2%> class=tdc> 
           <div align="left"> ==> <a href="mameven.asp" target="mainFrame">事件日志</a></div>
          </td>
        </tr>
           <tr> 
          <td width="100%" bgcolor=<%=tColor2%> class=tdc> 
           <div align="left"> ==> <a href="announce.asp?action=list" target="mainFrame">公告管理</a></div>
          </td>
        </tr>
             <tr> 
          <td width="100%" bgcolor=<%=tColor2%> class=tdc> 
            <div align="left"> ==> <a href="recycle.asp" target="mainFrame">回收站管理</a></div>
          </td>
                 </tr>
          <td   width="100%" height="22" <%=tColor%> class=tdc1>
           <div align="center"><a target="_top" href="http://down.dxxo.com/">技术支持</a></div>
          </td>
        </tr>
       
            <tr> 
          <td width="100%" bgcolor=<%=tColor2%> class=tdc> 
           <div align="left"> ==> <a href="http://down.dxxo.com/bbs" target="_top" title="dxxo官方论坛">dxxo官方论坛</a></div>
          </td>
      </table>
    </td>
  </tr>
</table>
</body>

<%else
errormsg="<li>本页面为管理页面,请先登陆<a href=admindefault.asp>管理</a></li>"
call error(errormsg)
end if
end sub

sub adminsay()
if u_master="0" and  issupermaster and  isuser then
%>
 <body  <%=background%> topmargin="0" leftmargin="0">
  <table  border="0" cellspacing="1" cellpadding="4"class=tb1 >
      <td width="20%"  bgcolor=<%=tColor2%>  class=tdc>  

     <b> &nbsp;欢迎光临 dxxo论坛 管理中心</b> <A href="http://down.dxxo.com">down.dxxo.com</A> <p>
      &nbsp;官方站点:down.dxxo.com(<a target="_blank" href="http://down.dxxo.com">http://down.dxxo.com</a>)<br>
      &nbsp;官方论坛:论坛(<a target="_blank" href="http://down.dxxo.com/bbs">http://down.dxxo.com/bbs</a>)<br>
      &nbsp;程序开发:dxxo<br>  
      <p>
      <%sql="select count(*) as countuser from user where u_yzreg=1"
      set rs=conn.execute(sql)
       if not rs.eof then countuser=rs("countuser")
       response.write("&nbsp;友情提示:<a href=adminuser.asp?action=search&view=6>本论坛当前共有 "&countuser&" 位用户等待管理员验证</a><BR> &nbsp;您可以定义您论坛的所有属性和特征. 请选择左边的论坛管理选项管理和设置您的论坛. ")
       set rs=nothing
if instr(Server.MapPath("mdb/dxxobbs.mdb"),feiyudbq)>0 then
response.write("<p><font color=red size=3>&nbsp;<B>警告:</B>您没有更改数据库文件名称,请将mdb目录下的数据库文件名fy.asp<BR>&nbsp;改为其它名称,然后按照help目录下的帮助文件来更改连接</font>")
end if
%>
       <p>
 <table  border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=1 width=98% style="border-collapse: collapse" align=center >
   
    <TR>
    <td <%=tColor%> class=tdc1 height="22" colspan="2">
    <p align="center">论坛数据摘要</td>
    </tr>
<%sqltt="select n_num,t_num,r_num,o_num,h_posttoday,h_replytoday,h_regtoday from total"
set rstt=conn.execute(sqltt)
n_num=rstt("n_num")
t_num=rstt("t_num")
r_num=rstt("r_num")
h_regtoday=rstt("h_regtoday")
h_replytoday=rstt("h_replytoday")
h_posttoday=rstt("h_posttoday")
set rstt=nothing%>
    <tr> 
      <td width="100%"  bgcolor=<%=tColor2%>  class=tdc align="center">  
    论坛当前共有 <b><%=n_num%></b> 名会员 今日注册用户 <b><%=h_regtoday%></b> 名  </td>
    </tr>
    
  <tr> 
      <td width="100%"  bgcolor=<%=tColor2%>  class=tdc align="center">  
    论坛共有帖子总数:<b><%=t_num+r_num%></b> 主题总数:<b><%=t_num%></b> 回复总数:<b><%=r_num%></b> 今日主题帖数:<b><%=h_posttoday%></b> 今日回复帖数:<b><%=h_replytoday%></b> </td>
    </tr>

  </table>
 <BR>

       <table  border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=1 width=98% style="border-collapse: collapse" align=center >
   
    <TR>
    <td <%=tColor%> class=tdc1 height="22" colspan="2">
    <p align="center">当前信息</td>
    </tr>
 <TR>
      <td width="30%"  bgcolor=<%=tColor2%>  class=tdc align="right">服务器名:</td>
      <td width="70%"  bgcolor=<%=tColor2%>  class=tdc>
      <%=Request.ServerVariables("SERVER_NAME")%> </td>
    </tr>
 <TR>
      <td width="30%"  bgcolor=<%=tColor2%>  class=tdc align="right">服务器IP:</td>
      <td width="70%"  bgcolor=<%=tColor2%>  class=tdc>
      <%=Request.ServerVariables("LOCAL_ADDR")%> </td>
    </tr>
 <TR>
      <td width="30%"  bgcolor=<%=tColor2%>  class=tdc align="right">服务器操作系统:</td>
      <td width="70%"  bgcolor=<%=tColor2%>  class=tdc>
      <%=Request.ServerVariables("OS")%> </td>
    </tr>
    <tr> 
      <td width="30%"  bgcolor=<%=tColor2%>  class=tdc align="right">  
      当前时间:
      <td width="70%"  bgcolor=<%=tColor2%>  class=tdc>
     <%=now()%>  </td>
    </tr>
    <tr> 
      <td width="30%"  bgcolor=<%=tColor2%>  class=tdc align="right">您的 I P:</td>
      <td width="70%"  bgcolor=<%=tColor2%>  class=tdc>
      <%=Request.ServerVariables("REMOTE_ADDR")%> </td>
    </tr>
    <TR>
      <td width="30%"  bgcolor=<%=tColor2%>  class=tdc align="right">绝对路径:</td>
      <td width="70%"  bgcolor=<%=tColor2%>  class=tdc>
      <%=Server.MapPath("index.asp")%> </td>
    </tr>

  </table>
 <BR>
   <table border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=98% style="border-collapse: collapse" align=center>
   
    <TR>
    
    <td <%=tColor%> class=tdc1 height="22" colspan="2">
    <p align="center">管理快捷方式</td>
    </tr>
    <tr> 
    <form name="form2" method="post" action="adminuser.asp?action=search&view=5">
      <td width="30%"  bgcolor=<%=tColor2%>  class=tdc align="right">  
      快速查找用户:
      <td width="70%"  bgcolor=<%=tColor2%>  class=tdc>
        <input type="text" name="username" size="20" class="bdtj3"> 
<input type="hidden" name="topp" size="20" class="bdtj3" value=50>
  <input type="submit" name="Submit" value="查 找" class="bdtj">
           </td> </form>
    </tr>
    <tr> 
      <td width="30%"  bgcolor=<%=tColor2%>  class=tdc align="right">一些有用的链接:</td>
      <td width="70%"  bgcolor=<%=tColor2%>  class=tdc>
      <select onchange="jumpto(this.options[this.selectedIndex].value)" class=bdtj3>
      		<option>>> 有用的链接 <<</option>
		<option value="http://down.dxxo.com/">down.dxxo.com</option>
		<option value="http://down.dxxo.com">dxxo论坛</option>
</select> </td>
    </tr>
    <TR>
      <td width="30%"  bgcolor=<%=tColor2%>  class=tdc align="right">快捷功能链接:</td>
      <td width="70%"  bgcolor=<%=tColor2%>  class=tdc><A href="adminfenlei.asp?action=add" target=mainFrame>新建论坛分类</A> | <A href="adminfenlei.asp" target=mainFrame>论坛管理</A>     </td>
    </tr><TR>
  </table>
   <BR>
 <div align=center> Copyright&copy;<A href="http://down.dxxo.com"> 『down.dxxo.com』</A> All rights Reserved</div> 
 <BR>
  </td>
    </tr>
    </table>
<%else
errormsg="<li>本页面为管理页面,请先登陆<a href=admindefault.asp>管理</a></li>"
call error(errormsg)
end if
end sub

sub adminhead
if u_master="0" and  issupermaster and  isuser then%>
<table border="0" cellspacing="0" cellpadding="0"class=tb4 >
    <tr align="center"> 
      <td <%=hColor%> class=tdc1 height=22 align=left width=33%>  ==>欢迎 <%=cpbusername%> 进入管理中心 <==</td>
      <td <%=hColor%> class=tdc1 height=22 align=center width=33%> <a href=http://down.dxxo.com/bbs target=_blank><font class=tdc1>dxxo官方论坛</font></a> </td>
      <td <%=hColor%> class=tdc1 height=22 align=right width=33%> <a href=index.asp target=_top><font class=tdc1>返回论坛首页</font></a> </td>
    </tr>
</table>
<%else
errormsg="<li>本页面为管理页面,请先登陆<a href=admindefault.asp>管理</a></li>"
call error(errormsg)
end if
end sub%>















⌨️ 快捷键说明

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