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

📄 index.asp

📁 一个功能强大的asp招聘求职系统
💻 ASP
字号:
🔍 
<!--#include file="../Conn.asp"-->
<!-- #include file="inc/const.asp" -->
<%
Dvbbs.Stats="论坛管理控制面板"
Select Case Request("action")
Case "admin_left"
	Call admin_left()
Case "admin_main"
	Call admin_main()
Case "admin_top"
	Call admin_top()
Case "xml"
	Call Showxml()
Case Else
	Call Main()
End Select
Sub Showxml()
	Dim XMLDOM
	Set XMLDOM=Application(Dvbbs.CacheName&"_sBoradlist").cloneNode(True)
	Dim node
	Response.Clear
	Response.CharSet="gb2312"  
	Response.ContentType="text/xml"
	Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>"&vbNewLine
	Response.Write XMLDom.documentElement.XML
	Set XMLDOM=Nothing
End Sub

Sub Main()
If Not Dvbbs.Master Or Session("flag")="" Then
	Response.Redirect "../admin_login.asp"
Else
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN"
     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<title><%=Dvbbs.Forum_info(0)%>--控制面板</title>
<meta name="author" content="Dynamic Vanguard" />
<meta name="author's email" content="eway@aspsky.net" />
<meta name="author's homepage" content="www.aspsky.net" />
</head>
<frameset rows="33,*">
<frame longdesc="" src="index.asp?action=admin_top" noresize="noresize" frameborder="0" name="ads" scrolling="no" marginwidth="0" marginheight="0" />
<frameset rows="675" cols="180,*">
<frame longdesc="" src="index.asp?action=admin_left" name="list" noresize="noresize" marginwidth="0" marginheight="0" frameborder="0" scrolling="yes" />
<frame longdesc="" src="index.asp?action=admin_main" name="main" marginwidth="0" marginheight="0" frameborder="0" scrolling="yes" />
</frameset>
<noframes><body></body></noframes>
</frameset>
</html>
<%
End If
End Sub
Sub admin_top()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="60">
<title>top</title>
</head>
<%=Replace(template.html(1),"{$path}","images/")%>
<style>
#AdminTableTitleLink A {
	COLOR: #ffffff; TEXT-DECORATION: none
}
#AdminTableTitleLink A:hover {
	COLOR: #ffffff; TEXT-DECORATION: underline
}
</style>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="32" border="0" cellpadding="0" cellspacing="0" background="images/top_bg.gif">
  <tr> 
    <td width="147" bgcolor="#5298E4" style="BORDER-BOTTOM: #ffffff 0px solid"><a href="http://www.dvbbs.net/" target="_blank"><img src="images/top_logo.gif" width="147" height="32" border="0"></a></td>
    <td style="BORDER-BOTTOM: #ffffff 0px solid"> 
      <table width="100%" border="0" align="left" cellpadding="0" cellspacing="0">
        <tr> 
          <td align="right" width=15 style="BORDER-BOTTOM: #ffffff 0px solid"></td>
          <td align="left" style="BORDER-BOTTOM: #ffffff 0px solid" id=AdminTableTitleLink><b><font color=#FFffff>欢迎 <%=Dvbbs.MemberName%> 进入论坛设置面板&nbsp;&nbsp;&nbsp;&nbsp;<a href="../index.asp" target=_top>论坛首页</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="http://bbs.dvbbs.net/index.asp?boardid=143" target=_blank title="欢迎广大站长和论坛爱好者在这里交流与探讨网站的定位、管理、空间问题、网站建设技术、经验以及推广">网站建设交流</a></font></b>&nbsp;&nbsp;&nbsp;&nbsp;
	<a href="http://bbs.dvbbs.net/index.asp?boardid=111" target=_blank title="论坛相关技术问题咨询、插件和模板交流、经验交流等"><font color=#FFFFAA><B>论坛技术交流</B></font></a>
		  </td>
          <td align="Left" valign=top style="BORDER-BOTTOM: #ffffff 0px solid" id=AdminTableTitleLink width="70"><b><font color=#FFffff><a href="http:/www.dvbbs.net" target=_blank title="点击浏览更多官方信息">官方公告</a>：</b></td>
		  <td align="Left" valign=top style="BORDER-BOTTOM: #ffffff 0px solid" id=AdminTableTitleLink width="200"><b>
<%
	If Session("packjs") =empty Then 
		Dim Yrs,dupack,packjs
		set Yrs=Dvbbs.Execute("select * from Dv_setup")
		If IsNull(Yrs("forum_pack")) Or Yrs("forum_pack")="" Then
			dupack = "1|||admin|||admin888"
			dupack = Split(dupack,"|||")
		Else
			dupack = Yrs("forum_pack")
			dupack = Split(dupack,"|||")
			If Ubound(dupack)<>2 Then
				dupack(0) = 1
				dupack(1) = "admin"
				dupack(2) = "admin888"
			End If
		End If
		packjs ="http://bbs.dvbbs.net/packjs.asp?a="&dupack(1)&"&b="&dupack(2)&"&c="&Dvbbs.Forum_info(0)&"&d="&Dvbbs.Get_ScriptNameUrl&"&e="&Yrs("Forum_usernum")&"&f="&Yrs("Forum_PostNum")&"&g="&Dvbbs.Forum_info(5)&"&h="&IsSqlDatabase&"&i=Dvbbs Version "&Dvbbs.Forum_Version&"&j="&Yrs("Forum_TopicNum")&"&k="&MyBoardOnline.Forum_Online&"&l="&Dvbbs.Forum_ChanSetting(0)
		Yrs.close
		set Yrs=nothing
		Session("packjs")=packjs
	End If
	Response.Write "<script src="""&Session("packjs")&"""></script>"
%>
		  </font></b></td>
          <td align="right" width=15 style="BORDER-BOTTOM: #ffffff 0px solid"></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="1" bgcolor="#135093" style="BORDER-BOTTOM: #135093 0px solid"> </td>
  </tr>
</table>
</body>
</html>
<%
end sub

sub admin_left()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<title><%=dvbbs.Forum_info(0)%>--管理页面</title>
<style type=text/css>
body  { background:#799AE1; margin:0px; font:normal 12px 宋体; 
SCROLLBAR-FACE-COLOR: #799AE1; SCROLLBAR-HIGHLIGHT-COLOR: #799AE1; 
SCROLLBAR-SHADOW-COLOR: #799AE1; SCROLLBAR-DARKSHADOW-COLOR: #799AE1; 
SCROLLBAR-3DLIGHT-COLOR: #799AE1; SCROLLBAR-ARROW-COLOR: #FFFFFF;
SCROLLBAR-TRACK-COLOR: #AABFEC;
}
table  { border:0px; }
td  { font:normal 12px 宋体; }
img  { vertical-align:bottom; border:0px; }
a  { font:normal 12px 宋体; color:#000000; text-decoration:none; }
a:hover  { color:#428EFF;text-decoration:underline; }
.sec_menu  { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#D6DFF7; }
.menu_title  { }
.menu_title span  { position:relative; top:2px; left:8px; color:#215DC6; font-weight:bold; }
.menu_title2  { }
.menu_title2 span  { position:relative; top:2px; left:8px; color:#428EFF; font-weight:bold; }
</style>
<SCRIPT language=javascript1.2>
function showsubmenu(sid)
{
whichEl = eval("submenu" + sid);
if (whichEl.style.display == "none")
{
eval("submenu" + sid + ".style.display=\"\";");
}
else
{
eval("submenu" + sid + ".style.display=\"none\";");
}
}
</SCRIPT>
<%
REM 管理栏目设置
dim menu(8,10),trs,k
i=0
k=0
set rs=Dvbbs.Execute("select * from dv_help where h_type=1 and h_parentid=0 and not h_stype=1 order by h_id")
do while not rs.eof
	menu(i,k)=rs("h_title")
	'response.write "menu("&i&","&k&")="""&rs("h_title")&""""
	'response.write chr(10)
	k=k+1
	set trs=Dvbbs.Execute("select * from dv_help where h_type=1 and h_parentid="&rs(0)&" and not h_stype=1 order by h_id")
	do while not trs.eof
		menu(i,k)="<a href=help.asp?action=view&id="&trs(0)&" target=main><img src=images/bullet.gif border=0 alt=点击查看该项目的帮助></a>" & trs("h_title")
		'response.write "menu("&i&","&k&")="""&trs("h_title")&""""
		'response.write chr(10)
		k=k+1
	trs.movenext
	loop
	trs.close
	set trs=nothing
	i=i+1
	k=0
rs.movenext
loop
rs.close
set rs=nothing
'response.end
%>
<BODY leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<table width=100% cellpadding=0 cellspacing=0 border=0 align=left>
    <tr><td valign=top>
<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
    <td height=42 valign=bottom>
	  <img src="images/title.gif" width=158 height=38>
    </td>
  </tr>
</table>
<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
    <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background=images/title_bg_quit.gif  >
	  <span><a href="index.asp" target=_top><b>管理首页</b></a> | <a href="logout.asp" target=_top><b>退出</b></a></span>
    </td>
  </tr>
</table>
&nbsp;
<%
	dim j,i
	dim tmpmenu
	dim menuname
	dim menurl
	Dim TempStr,Menu_1,Menu_2
	TempStr = template.html(0)
	Menu_1 = Split(TempStr,"||")
for i=0 to ubound(Menu_1)
%>
<table cellpadding=0 cellspacing=0 width=158 align=center>
<%
	Menu_2 = Split(Menu_1(i),"@@")
	For j = 0 To Ubound(Menu_2)
	If j=0 Then
%>
  <tr>
    <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/admin_left_<%=i+1%>.gif" id=menuTitle1 onclick="showsubmenu(<%=i%>)">
	  <span><%=Menu_2(0)%></span>
	</td>
  </tr>
  <tr>
    <td style="display" id='submenu<%=i%>'><div class=sec_menu style="width:158"><table cellpadding=0 cellspacing=0 align=center width=150><TBODY>
<%
	Else
	if j=1 then response.write "<tr><td height=5></td></tr>"
%>
<tr><td height=20><img alt src="images/bullet.gif" border="0" width="15" height="20"><%=Menu_2(j)%></td></tr>
<%
	End If
	If i = 0 And j = Ubound(Menu_2) And Dvbbs.Forum_Setting(99)="1" Then
%>
<tr><td height=20><img alt src="images/bullet.gif" border="0" width="15" height="20"><a href="../bokeadmin.asp" target=main>论坛博客系统管理</a></td></tr>
<%
	End If
	next
%><TBODY></table></div>
<div  style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr><td height=20></td></tr>
</table>
	  </div>
	</td>
  </tr>
</table>
<%next%>
&nbsp;
<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
    <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/admin_left_9.gif" id=menuTitle1>
	  <span>动网论坛信息</span>
	</td>
  </tr>
  <tr>
    <td>
<div class=sec_menu style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr><td height=20>&nbsp;<br><a href="http://www.aspsky.net/" target=_blank>版权所有：<BR>

⌨️ 快捷键说明

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