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

📄 admin_main.asp

📁 改进及新特性: 1、调整模版编辑时的流程及提示语言 2、新增sitemaps生成功能 3、优化评论页面的显示格式 BUG修正: 1、getarticlelist标签对于现有参数提示错误
💻 ASP
字号:
🔍 
<!--#Include File="../conn.asp" -->
<!--#Include File="comm/inc.asp" -->
<%
'====================================================================
'= Team Elite - Elite Article System
'= Copyright (c) 2005 Eason Chan All Rights Reserved.
'=-------------------------------------------------------------------
'= 文件名称：/Manager/Admin_Main.asp
'= 摘    要：后台-控制台文件
'=-------------------------------------------------------------------
'= 最后更新：eason007
'= 最后日期：2005-07-26
'====================================================================

	Call EA_Manager.Chk_IsMaster
	
	Call EA_Manager.Admin_Nav
	
	Dim theInstalledObjects(17)
    theInstalledObjects(0) = "MSWC.AdRotator"
    theInstalledObjects(1) = "MSWC.BrowserType"
    theInstalledObjects(2) = "MSWC.NextLink"
    theInstalledObjects(3) = "MSWC.Tools"
    theInstalledObjects(4) = "MSWC.Status"
    theInstalledObjects(5) = "MSWC.Counters"
    theInstalledObjects(6) = "IISSample.ContentRotator"
    theInstalledObjects(7) = "IISSample.PageCounter"
    theInstalledObjects(8) = "MSWC.PermissionChecker"
    theInstalledObjects(9) = "Scripting.FileSystemObject"
    theInstalledObjects(10) = "adodb.connection"
    
    theInstalledObjects(11) = "SoftArtisans.FileUp"
    theInstalledObjects(12) = "SoftArtisans.FileManager"
    theInstalledObjects(13) = "JMail.SMTPMail"
    theInstalledObjects(14) = "CDONTS.NewMail"
    theInstalledObjects(15) = "Persits.MailSender"
    theInstalledObjects(16) = "LyfUpload.UploadFile"
    theInstalledObjects(17) = "Persits.Upload.1"
    
    Dim RegUser,TopicNum,ColumnNum,MangerTopicNum,ReviewNum
    Dim UserGroup_Array
    Dim i
    
    RegUser=0
    TopicNum=0
    ColumnNum=0
    MangerTopicNum=0
    ReviewNum=0
    
    Sql="select reguser,topicnum,ColumnNum,MangerTopicNum,ReviewNum from [nb_system]"
    set rs=conn.execute(sql)
    If Not rs.eof And Not rs.bof Then 
		RegUser=rs(0)
		TopicNum=rs(1)
		ColumnNum=rs(2)
		MangerTopicNum=rs(3)
		ReviewNum=rs(4)
	End If
	
	SQL="select id,groupname from [NB_UserGroup]"
	Set rs=conn.execute(sql)
	If Not rs.eof And Not rs.bof Then UserGroup_Array=Rs.GetRows()
	
	Rs.Close
	Set Rs=Nothing
%>
<table cellpadding="0" cellspacing="0" border="0" width="98%" class="tableBorder" align=center>
	<tr>
		<th class="tableHeaderText" colspan=2 height=22><%=str_SystemInformation%></th>
	<tr>
	<tr>
		<td class="forumRow" height=22 colspan=2>&nbsp;&nbsp;<%=str_SystemStat%>：<B><%=ColumnNum%></B> <%=str_Column%>，<B><%=TopicNum%></B> <%=str_Article%>，<B><%=MangerTopicNum%></B> <%=str_AuditArticle%>，<B><%=RegUser%></B> <%=str_RegUser%>，<B><%=ReviewNum%></B> <%=str_Review%></td>
	</tr>
	<tr>
		<td class="forumRow" height=23 colspan=2>&nbsp;&nbsp;<%=str_SystemOwner%> <font color=red><%=EA_Pub.SysInfo(0)%></font>，<%=str_SystemVersion%> [<%=SysVersion%>]&nbsp;<%If iDataBaseType=1 Then Response.Write "SQL Server" Else Response.Write "Access" End If%></td>
	</tr>
	<tr>
		<td width="50%" class="forumRow" height=23>&nbsp;&nbsp;<%=str_ServerWindow%>：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
		<td width="50%" class="forumRow">&nbsp;&nbsp;<%=str_ScripEngine%>：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
	</tr>
	<tr>
		<td width="50%" class="forumRow" height=23>&nbsp;&nbsp;<%=str_SiteFolderPath%>：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
		<td width="50%" class="forumRow">&nbsp;&nbsp;</td>
	</tr>
	<tr>
		<td width="50%" class="forumRow" height=23>&nbsp;&nbsp;<%=str_FSOEnable%>：<%If Not EA_Manager.IsObjInstalled(theInstalledObjects(9)) Then%><font color="red"><b>×</b></font><%else%><b>√</b><%end if%></td>
		<td width="50%" class="forumRow">&nbsp;&nbsp;<%=str_ADOEnable%>：<%If Not EA_Manager.IsObjInstalled(theInstalledObjects(10)) Then%><font color="red"><b>×</b></font><%else%><b>√</b><%end if%></td>
	</tr>
	<tr>
		<td width="50%" class="forumRow" height=23>&nbsp;&nbsp;<%=str_JMailEnable%>：<%If Not EA_Manager.IsObjInstalled(theInstalledObjects(13)) Then%><font color="red"><b>×</b></font><%else%><b>√</b><%end if%></td>
		<td width="50%" class="forumRow">&nbsp;&nbsp;<%=str_CDONTSEnable%>：<%If Not EA_Manager.IsObjInstalled(theInstalledObjects(14)) Then%><font color="red"><b>×</b></font><%else%><b>√</b><%end if%></td>
	</tr>
	<tr>
		<td width="50%" height=23><div align="center"><script  src="http://nbarticle.com/update/checkupdate.asp?a=<%=EA_Pub.SysInfo(11)%>&b=<%=EA_Pub.SysInfo(0)%>&c=<%=RegUser%>&d=<%=TopicNum%>&e=<%=BowelVersion%>&f=<%=iDataBaseType%>"></script></div></td>
		<td width="50%" align=right><a href="admin_serverinfo.asp"><%=str_MoreSystemInformation%>>>></a>&nbsp;&nbsp;</td>
	</tr>
</table>
<p></p>
<table cellpadding="0" cellspacing="0" border="0" width="98%" class="tableBorder" align=center>
	<tr>
		<th class="tableHeaderText" colspan=2 height=25><%=str_SystemManagerShortcut%></th>
	<tr>
	<FORM METHOD=POST ACTION="admin_content.asp?w=search" id=form1 name=form1>
		<tr>
			<td width="20%"  class="forumRow" height=23>&nbsp;&nbsp;<%=str_QuickSearchArticle%></td>
			<td width="80%" class="forumRow">&nbsp;&nbsp;<input type="text" name="title" size="30"> <input type="submit" value="<%=str_SearchNow%>" id=submit1 name=submit1></td>
		</tr>
	</FORM>
	<FORM METHOD=POST ACTION="admin_member.asp?atcion=search" id=form2 name=form2>
		<tr>
			<td width="20%"  class="forumRow" height=23>&nbsp;&nbsp;<%=str_QuickSearchUser%></td>
			<td width="80%" class="forumRow">&nbsp;&nbsp;<input name="keyword" type="text">&nbsp;<%=str_UserGroup%>：<select name="group"><%
		For i=0 To UBound(UserGroup_Array,2)
			Response.Write "<option value="""&UserGroup_Array(0,i)&""">"&UserGroup_Array(1,i)&"</option>"
		Next
	%></select> <input type="submit" value="<%=str_SearchNow%>" id=submit1 name=submit1></td>
		</tr>
	</FORM>
	<tr>
		<td width="20%" class="forumRow" height=23>&nbsp;&nbsp;<%=str_FunctionShortcut%></td>
		<td width="80%" class="forumRow">&nbsp;&nbsp;<a href=admin_column.asp><%=str_ColumnAdmin%></a> | <a href=admin_content.asp><%=str_ArticleAdmin%></a> | <a href="reload.asp?atcion=reload"><%=str_ReLoadCache%></a></td>
	</tr>
</table>
<p></p>
<table cellpadding="0" cellspacing="0" border="0" width="98%" class="tableBorder" align=center>
	<tr>
		<th class="tableHeaderText" colspan=2 height=25><%=str_ProductInformation%></th>
	<tr>
	<tr>
		<td width="20%"  class="forumRow" height=23>&nbsp;&nbsp;<%=str_ProductCopyright%></td>
		<td width="80%" class="forumRow">&nbsp;&nbsp;Team Elite</td>
	</tr>
	<tr>
		<td width="20%"  class="forumRow" height=23>&nbsp;&nbsp;产品开发</td>
		<td width="80%" class="forumRow">&nbsp;&nbsp;<font color=blue>开发组</font>：eason007&nbsp;&nbsp;纯生&nbsp;&nbsp;可洛<br>
										 &nbsp;&nbsp;<font color=blue>设计组</font>：Talent&nbsp;&nbsp;随风&nbsp;&nbsp;一线风</td>
	</tr>
	<tr>
		<td width="20%"  class="forumRow" height=23>&nbsp;&nbsp;产品销售</td>
		<td width="80%" class="forumRow">&nbsp;&nbsp;<font color=blue>Talent</font>&nbsp;&nbsp;QQ：327358&nbsp;&nbsp;&nbsp;<a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=327358&Site=forum.nbarticle.com&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:327358:10 alt="点击这里给我发消息" align="absmiddle"></a>&nbsp;&nbsp;&nbsp;&nbsp;e-mail:<a href="mailto:cto@tlsw.com">cto@tlsw.com</a><br>
										 &nbsp;&nbsp;<font color=blue>ajder</font>&nbsp;&nbsp;&nbsp;QQ：43196556&nbsp;<a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=43196556&Site=forum.nbarticle.com&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:43196556:5 alt="点击这里给我发消息"></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;e-mail:<a href="mailto:ajder@163.com" align="absmiddle">ajder@163.com</a></td>
	</tr>
	<tr>
		<td width="20%"  class="forumRow" height=23>&nbsp;&nbsp;<%=str_AboutMe%></td>
		<td width="80%" class="forumRow">&nbsp;&nbsp;<a href="http://www.nbarticle.com/" target=_blank>http://Www.NBArticle.Com</a></td>
	</tr>
</table>
<table align=center>
	<tr>
	<td><BR>Copyright (c) 2002-2005 <a href=http://www.nbarticle.com target=_blank><font face=Verdana, Arial, Helvetica, sans-serif size=1><b>NBArticle<font color=#CC0000>.Com</font></b></font></a>. All Rights Reserved .<BR><BR><BR></td>
	</tr>
</table>
<%
	Call EA_Pub.Close_Obj
	Set EA_Pub=Nothing
%>

⌨️ 快捷键说明

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