<!--#include file="setup.asp"-->
<%
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.CacheControl = "no-cache"
NC_Admin.Check
Select Case Request("action")
	Case "admin_left"
		Call admin_left
	Case "admin_switch"
		Call admin_switch
	Case "admin_main"
		Call admin_main
	Case Else
		Call main
End Select
NothingObject
Private Sub main()
	Response.Write "<HTML><HEAD><TITLE>"
	Response.Write DownsysClass.Setting(0)
	Response.Write "-=>>管理中心</TITLE>" & vbCrLf
	Response.Write "<META http-equiv=Content-Type content=text/html;charset=gb2312>" & vbCrLf
	Response.Write "</HEAD>" & vbCrLf
	Response.Write " <frameset rows=""*"" cols=""181,*"" framespacing=""0"" frameborder=""no"" border=""false"" id=""frame"" scrolling=""yes"">" & vbCrLf
	Response.Write " <frame name=""left"" scrolling=""auto"" marginwidth=""10"" marginheight=""10"" src=""admin_index.asp?action=admin_left"">" & vbCrLf
	Response.Write " <frame name=""main"" scrolling=""auto"" src=""admin_index.asp?action=admin_main"" marginwidth=""10"" marginheight=""10"">" & vbCrLf
	Response.Write " </frameset>" & vbCrLf
	Response.Write "</frameset>" & vbCrLf
	Response.Write "<noframes>" & vbCrLf
	Response.Write " <body leftmargin=""2"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">" & vbCrLf
	Response.Write " <p>你的浏览器版本过低！！！本系统要求IE5及以上版本才能使用本系统。</p>"
	Response.Write " </body>" & vbCrLf
	Response.Write "</noframes>" & vbCrLf
	Response.Write "</BODY></HTML>" & vbCrLf
End Sub

Private Sub admin_left()
	Dim menu(6, 10)
	Dim n
	Dim j
	Dim i
	Dim tmpmenu
	Dim menuname
	Dim menurl
	Dim ArrayHeight
	Dim vHeight
	ArrayHeight = "100,180,120,160,140,160,120"
	vHeight = Split(ArrayHeight, ",")
	Rem 管理栏目设置
	menu(0, 0) = "常规设置"
	menu(0, 1) = "<a href=admin_setting.asp target=main>基本设置</a> | <a href=admin_adcolumn.asp target=main>广告管理</a>"
	menu(0, 2) = "<a href=admin_template.asp target=main>模板样式总管理</a>"
	menu(0, 3) = "<a href=admin_loadskin.asp target=main>模板导出</a> | <a href=admin_loadskin.asp?action=load target=main>模板导入</a>"
	menu(0, 4) = "<a href=admin_message.asp?action=add target=main>发布公告</a> | <a href=admin_message.asp target=main>公告管理</a>"

	menu(1, 0) = "软件管理"
	menu(1, 1) = "<a href=admin_software.asp?action=add target=main>添加软件</a> | <a href=admin_software.asp target=main>管理软件</a>"
	menu(1, 2) = "<a href=admin_sorting.asp?action=add target=main>添加软件分类</a> | <a href=admin_sorting.asp target=main>管理</a>"
	menu(1, 3) = "<a href=admin_server.asp target=main>下载服务器管理</a>"
	menu(1, 4) = "<a href=admin_softrec.asp target=main>回收站管理</a>"
	menu(1, 5) = "<a href=admin_publish.asp target=main>前台发布软件管理</a>"
	menu(1, 6) = "<a href=admin_softerror.asp target=main>错误软件</a> | <a href=admin_softupdate.asp target=main>更新数据</a>"
	menu(1, 7) = "<a href=admin_softessay.asp target=main>软件评论管理</a>"
	menu(1, 8) = "<a href=Create_HotTopJs.asp target=main>生成下载排行JS</a>"
	menu(2, 0) = "文章管理"

	menu(2, 1) = "<a href=admin_article.asp?action=add target=main>添加文章</a> | <a href=admin_article.asp target=main>管理文章</a>"
	menu(2, 2) = "<a href=admin_class.asp?action=add target=main>添加文章分类</a> | <a href=admin_class.asp target=main>管理</a>"
	menu(2, 3) = "<a href=admin_articleupdate.asp target=main>数据更新</a> | <a href=admin_articlerec.asp target=main>回收站</a>"
	menu(2, 4) = "<a href=admin_articlessay.asp target=main>文章评论管理</a>"
	menu(2, 5) = "<a href=Create_HotTopJs.asp target=main>生成文章排行JS</a>"
	menu(3, 0) = "生成HTML"

	menu(3, 1) = "<a href=Create_Index.Asp target=main>生成首页</a> | <a href=Create_Sorting.Asp target=main>软件列表</a>"
	menu(3, 2) = "<a href=Create_HotSoft.Asp target=main>热门软件</a> | <a href=Create_Software.Asp target=main>软件信息</a>"
	menu(3, 3) = "<a href=Create_Latenew.Asp target=main>最新软件</a> | <a href=Create_Commend.Asp target=main>推荐软件</a>"
	menu(3, 4) = "<a href=Create_ArticleIndex.asp target=main>文章首页</a> | <a href=Create_Listing.asp target=main>文章列表</a>"
	menu(3, 5) = "<a href=Create_HotArticle.Asp target=main>热门文章</a> | <a href=Create_Article.Asp target=main>文章内容</a>"
	menu(3, 6) = "<a href=Create_Catalog.asp target=main>生成分类</a> | <a href=Create_NewArticle.Asp target=main>最新文章</a>"
	menu(3, 7) = "<a href=Create_Help.asp target=main>生成帮助</a>"
	menu(4, 0) = "用户管理"

	menu(4, 1) = "<a href=admin_user.asp target=main>查看会员信息</a>"
	menu(4, 2) = "<a href=admin_password.asp target=main>管理员密码修改</a>"
	menu(4, 3) = "<a href=admin_webmaster.asp?action=add target=main>管理员添加</a> | <a href=admin_webmaster.asp target=main>管理</a>"
	menu(4, 4) = "<a href=admin_group.asp?action=addgroup target=main>用户组添加</a> | <a href=admin_group.asp target=main>管理</a>"
	menu(4, 5) = "<a href=admin_mailist.asp target=main>邮件列表</a> | <a href=admin_mailout.asp target=main>列表导出</a>"
	menu(4, 6) = "<a href=admin_mailist.asp?action=mail target=main>发邮件</a>"
	menu(5, 0) = "其它设置"

	menu(5, 1) = "<a href=admin_link.asp?action=add target=main>友情链接添加</a> | <a href=admin_link.asp target=main>管 理</a>"
	menu(5, 2) = "<a href=admin_plusmenu.asp?action=add target=main>网站栏目添加</a> | <a href=admin_plusmenu.asp target=main>管 理</a>"
	menu(5, 3) = "<a href=admin_lockip.asp?action=add target=main>IP锁定添加</a> | <a href=admin_lockip.asp target=main>管理</a>"
	menu(5, 4) = "<a href=admin_vote.asp?action=add target=main>增加投票</a> | <a href=admin_vote.asp target=main>投票管理</a>"
	menu(5, 5) = "<a href=admin_filemanage.asp?path=" & DownsysClass.SetupDir & DownsysClass.Setting(26) & " target=main>上传图片管理</a>"
	menu(5, 6) = "<a href=admin_filemanage.asp?path=" & DownsysClass.SetupDir & DownsysClass.Setting(24) & " target=main>上传文件管理</a>"
	menu(5, 7) = "<a href=admin_filemanage.asp target=main>在线文件管理</a>"
	menu(6, 0) = "数据处理(Access)"

	menu(6, 1) = "<a href=admin_database.asp#1 target=main>数据库更名</a> | <a href=admin_database.asp#2 target=main>备 份</a>"
	menu(6, 2) = "<a href=admin_database.asp#4 target=main>数据库压缩</a> | <a href=admin_database.asp#4 target=main>恢 复</a>"
	menu(6, 3) = "<a href=admin_probe.asp target=main>服务器信息</a>"
	menu(6, 4) = "<a href=admin_replace.asp target=main>数据库批量替换</a>"
	menu(6, 5) = "<a href=../SpaceSize.asp target=main>系统空间占用</a>"
	Response.Write "<head>"
	Response.Write "<title>管理页面</title>" & vbCrLf
	Response.Write "<META content=""MSHTML 5.00.3315.2870"" name=GENERATOR>" & vbCrLf
	Response.Write "<style type=text/css>" & vbCrLf
	Response.Write "<!--" & vbCrLf
	Response.Write "BODY{" & vbCrLf
	Response.Write " margin:0px;" & vbCrLf
	Response.Write " FONT-SIZE: 12px;" & vbCrLf
	Response.Write " FONT-FAMILY: ""宋体"", ""Verdana"", ""Arial"", ""Helvetica"", ""sans-serif"";" & vbCrLf
	Response.Write " background-color: #BEBFD9;" & vbCrLf
	Response.Write " scrollbar-face-color: #EAEAF2;" & vbCrLf
	Response.Write " scrollbar-highlight-color: #FFFFFF;" & vbCrLf
	Response.Write " scrollbar-shadow-color: #9395C0;" & vbCrLf
	Response.Write " scrollbar-3dlight-color: #F3F3F8;" & vbCrLf
	Response.Write " scrollbar-arrow-color: #9395C0;" & vbCrLf
	Response.Write " scrollbar-track-color: #F3F3F8;" & vbCrLf
	Response.Write " scrollbar-darkshadow-color: #F3F3F8;" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "table { border:0px; }" & vbCrLf
	Response.Write "td { font:normal 12px 宋体; }" & vbCrLf
	Response.Write "img { vertical-align:bottom; border:0px; }" & vbCrLf
	Response.Write "a { font:normal 12px 宋体; color:#111111; text-decoration:none; }" & vbCrLf
	Response.Write "a:hover { color:#6C70AA;text-decoration:underline; }" & vbCrLf
	Response.Write ".sec_menu { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#FBFBFC; }" & vbCrLf
	Response.Write ".menu_title { }" & vbCrLf
	Response.Write ".menu_title span { position:relative; top:2px; left:8px; color:#4A4F80; font-weight:bold; }" & vbCrLf
	Response.Write ".menu_title2 { }" & vbCrLf
	Response.Write ".menu_title2 span { position:relative; top:2px; left:8px; color:#596099; font-weight:bold; }" & vbCrLf
	Response.Write "input,select,Textarea{" & vbCrLf
	Response.Write "font-family:宋体,Verdana, Arial, Helvetica, sans-serif; font-size: 12px;}" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "-->"
	Response.Write "</style>" & vbCrLf

	Response.Write "<SCRIPT language=javascript>"& vbCrLf
	Response.Write "function menuShow(obj,maxh,obj2)"& vbCrLf
	Response.Write "{"& vbCrLf
	Response.Write "  if(obj.style.pixelHeight<maxh)"& vbCrLf
	Response.Write "  {"& vbCrLf
	Response.Write "    obj.style.pixelHeight+=maxh/20;"& vbCrLf
	Response.Write "	obj.filters.alpha.opacity+=5;"& vbCrLf
	Response.Write "	obj2.background=""images/title_bg_hide.gif"";"& vbCrLf
	Response.Write "    if(obj.style.pixelHeight==maxh/10)"& vbCrLf
	Response.Write "	  obj.style.display='block';"& vbCrLf
	Response.Write "	myObj=obj;"& vbCrLf
	Response.Write "	myMaxh=maxh;"& vbCrLf
	Response.Write "	myObj2=obj2;"& vbCrLf
	Response.Write "	menuShow(myObj,myMaxh,myObj2);"& vbCrLf
	Response.Write "  }"& vbCrLf
	Response.Write "}"& vbCrLf
	Response.Write "function menuHide(obj,maxh,obj2)"& vbCrLf
	Response.Write "{"& vbCrLf
	Response.Write "  if(obj.style.pixelHeight>0)"& vbCrLf
	Response.Write "  {"& vbCrLf
	Response.Write "    if(obj.style.pixelHeight==maxh/20)"& vbCrLf
	Response.Write "	  obj.style.display='none';"& vbCrLf
	Response.Write "    obj.style.pixelHeight-=maxh/20;"& vbCrLf
	Response.Write "	obj.filters.alpha.opacity-=5;"& vbCrLf
	Response.Write "	obj2.background=""images/title_bg_show.gif"";"& vbCrLf
	Response.Write "	myObj=obj;"& vbCrLf
	Response.Write "	myMaxh=maxh"& vbCrLf
	Response.Write "	myObj2=obj2;"& vbCrLf
	Response.Write "	menuHide(myObj,myMaxh,myObj2);"& vbCrLf
	Response.Write "  }"& vbCrLf
	Response.Write "  else"& vbCrLf
	Response.Write "    if(whichContinue)"& vbCrLf
	Response.Write "	  whichContinue.click();"& vbCrLf
	Response.Write "}"& vbCrLf
	Response.Write "function menuChange(obj,maxh,obj2)"& vbCrLf
	Response.Write "{"& vbCrLf
	Response.Write "  if(obj.style.pixelHeight)"& vbCrLf
	Response.Write "  {"& vbCrLf
	Response.Write "    menuHide(obj,maxh,obj2);"& vbCrLf
	Response.Write "	whichOpen='';"& vbCrLf
	Response.Write "	whichcontinue='';"& vbCrLf
	Response.Write "  }"& vbCrLf
	Response.Write "  else"& vbCrLf
	Response.Write "	{"& vbCrLf
	Response.Write "	  menuShow(obj,maxh,obj2);"& vbCrLf
	Response.Write "	  whichOpen=obj2;"& vbCrLf
	Response.Write "	  whichContinue='';"& vbCrLf
	Response.Write "	}"& vbCrLf
	Response.Write "}"& vbCrLf
	Response.Write "</SCRIPT>"& vbCrLf
	Response.Write "<base target=BoardList>"
	Response.Write "</head>"
	Response.Write "<BODY leftmargin=""0"" topmargin=""0"" marginheight=""0"" marginwidth=""0"">" & vbCrLf
	Response.Write "<table width=100% cellpadding=0 cellspacing=0 border=0 align=left> " & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write " <td valign=top> <table cellpadding=0 cellspacing=0 width=158 align=center>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=42 valign=bottom> <img src=""images/admin_title.gif"" width=158 height=38> " & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </table>" & vbCrLf
	Response.Write " <table cellpadding=0 cellspacing=0 width=158 align=center>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=25 class=menu_title onmouseover=""this.className='menu_title2';"" onmouseout=this.className='menu_title'; background=images/title_bg_quit.gif > " & vbCrLf
	Response.Write " <span><a href=""admin_index.asp"" target=_top><b>管理首页</b></a> | <a href=""logout.asp"" target=_top><b>退出</b></a></span> " & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td style=""display:""> <div class=sec_menu style=""width:158""> " & vbCrLf
	Response.Write " <table cellpadding=0 cellspacing=0 align=center width=135>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=20>用户名：<font color=red>"
	Response.Write Session(DownsysClass.CacheName & "AdminName")
	Response.Write "</font></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=20>身&nbsp;&nbsp;份：<font color=red>"
	Select Case Session(DownsysClass.CacheName & "Flag")
		Case 0
			Response.Write "管理员"
		Case 1
			Response.Write "系统CEO"
	End Select
	Response.Write " </font></td>" & vbCrLf
	Response.Write " </tr></table></td>" & vbCrLf
	Response.Write " </table>" & vbCrLf
	Response.Write " <div style=""width:158""> " & vbCrLf
	Response.Write " <table cellpadding=0 cellspacing=0 align=center width=135>" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <td height=10></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </table>" & vbCrLf
	Response.Write " </div>" & vbCrLf
	For i = 0 To UBound(menu, 1)
		Response.Write "<table cellpadding=0 cellspacing=0 width=158 align=center>" & vbCrLf
		Response.Write " <tr style=""CURSOR: hand"">" & vbCrLf
		Response.Write " <td height=25 class=menu_title id=menuTitle"&i + 1&" onmouseover=""this.className='menu_title2';"" onclick=menuChange(menu"&i + 1&","&vHeight(i)&",menuTitle"&i + 1&"); onmouseout=""this.className='menu_title';"" "
		If i = 0 Then
			Response.Write " background=""images/title_bg_hide.gif"">"
		Else
			Response.Write " background=""images/title_bg_show.gif"">"
		End If
		Response.Write Chr(9) & " <span>"
		Response.Write menu(i, 0)
		Response.Write "</span>" & vbCrLf
		Response.Write Chr(9) & "</td>" & vbCrLf
		Response.Write " </tr>" & vbCrLf
		Response.Write " <tr>" & vbCrLf
		Response.Write " <td> " & vbCrLf
		Response.Write "<div class=sec_menu id=menu"&i + 1&" "
		If i = 0 Then
			Response.Write "style=""FILTER: alpha(Opacity=100); OVERFLOW: hidden; WIDTH: 158px; HEIGHT: 100px"">"
		Else
			Response.Write "style=""DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 158px; HEIGHT: 0px"">" & vbCrLf
		End If
		Response.Write "<table style=""POSITION: relative; TOP: 10px"" cellpadding=0 cellspacing=0 align=center width=135>" & vbCrLf
		Response.Write Chr(9)
		For j = 1 To UBound(menu, 2)
			If IsEmpty(menu(i, j)) Then Exit For
			Response.Write "<tr><td height=20><img src=""images/bullet.gif"" border=0>"
			Response.Write menu(i, j)
			Response.Write "</td></tr>" & vbCrLf
		Next
		Response.Write "</table>" & vbCrLf
		Response.Write Chr(9) & " </div>" & vbCrLf
		Response.Write Chr(9) & "</td>" & vbCrLf
		Response.Write " </tr>" & vbCrLf
		Response.Write "</table>" & vbCrLf
		If i = 0 Then
			Response.Write "<SCRIPT language=javascript>"& vbCrLf
			Response.Write "  var whichOpen=menuTitle1;"& vbCrLf
			Response.Write "  var whichContinue='';"& vbCrLf
			Response.Write "</SCRIPT>"& vbCrLf
		End If
	Next
	Response.Write "<table cellpadding=0 cellspacing=0 width=158 align=center>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background=""images/admin_left_2.gif"" id=menuTitle10> " & vbCrLf
	Response.Write " <span>系统信息</span> </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td> <div class=sec_menu style=""width:158""> " & vbCrLf
	Response.Write " <table cellpadding=0 cellspacing=0 align=center width=135>" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <td height=20>" & vbCrLf
	Response.Write " 版权所有：<BR>" & vbCrLf
	Response.Write " 江南源码资源站<BR>" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </table>" & vbCrLf
	Response.Write " </div></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </table><BR>" & vbCrLf
End Sub

Private Sub admin_main()
	Dim theInstalledObjects(4)
	Dim NC_Object
	theInstalledObjects(0) = "DownloadClassAsp.DownSysObject"
	theInstalledObjects(1) = "Scripting.FileSystemObject"
	theInstalledObjects(2) = "adodb.connection"
	theInstalledObjects(3) = "JMail.SMTPMail"
	theInstalledObjects(4) = "CDONTS.NewMail"
	DownsysClass.admin_header
	Response.Write "<table cellpadding=""2"" cellspacing=""1"" border=""0"" width=""96%"" class=""tableBorder"" align=center>" & vbCrLf
	Response.Write "<tr><th colspan=2 height=25>系统信息统计</th></tr>" & vbCrLf
	Response.Write "<tr><td class=BodyTitle colspan=2 height=23 style=""FONT-SIZE: 9pt; FILTER: dropshadow(color=#FFFFFF,offx=1,offy=1); COLOR: #000000;"">系统信息："
	Set Rs = DownsysClass.Execute("select count(*) from NC_SoftInfo")
	Response.Write "共有软件数：<B>" & Rs(0) & "</B> "
	Rs.Close
	Set Rs = DownsysClass.Execute("select count(*) from NC_Article")
	Response.Write "共有文章数：<B>" & Rs(0) & "</B> "
	Rs.Close
	Set Rs = DownsysClass.Execute("select count(*) from NC_User")
	Response.Write "共有注册用户：<B>" & Rs(0) & "</B> "
	Rs.Close
	Response.Write "</td></tr>" & vbCrLf
	Response.Write "<tr><td width=""50%"" class=""forumRowHighlight"" height=23>服务器类型："
	Response.Write Request.ServerVariables("OS")
	Response.Write "(IP:"
	Response.Write Request.ServerVariables("LOCAL_ADDR")
	Response.Write ")</td>" & vbCrLf
	Response.Write "<td width=""50%"" class=""forumRow"">脚本解释引擎："
	Response.Write ScriptEngine & "/" & ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td width=""50%"" class=""forumRowHighlight"" height=23>站点物理路径："
	Response.Write Request.ServerVariables("APPL_PHYSICAL_PATH")
	Response.Write "</td>" & vbCrLf
	Response.Write "<td width=""50%"" class=""forumRow"">软件版本："
	Response.Write DownsysClass.Version&DownsysClass.SystemEdition
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td width=""50%"" class=""forumRowHighlight"" height=23>FSO文本读写："
	If Not IsObjInstalled(theInstalledObjects(1)) Then
		Response.Write "<font color=""#FF0066""><b>×</b></font>"
	Else
		Response.Write "<b>√</b>"
	End If
	Response.Write "</td>" & vbCrLf
	Response.Write "<td width=""50%"" class=""forumRow"">数据库使用："
	If Not IsObjInstalled(theInstalledObjects(2)) Then
		Response.Write "<font color=""#FF0066""><b>×</b></font>"
	Else
		Response.Write "<b>√</b>"
	End If
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td width=""50%"" class=""forumRowHighlight"" height=23>Jmail组件支持："
	If Not IsObjInstalled(theInstalledObjects(3)) Then
		Response.Write "<font color=""#FF0066""><b>×</b></font>"
	Else
		Response.Write "<b>√</b>"
	End If
	Response.Write "</td>" & vbCrLf
	Response.Write "<td width=""50%"" class=""forumRow"">CDONTS组件支持："
	If Not IsObjInstalled(theInstalledObjects(4)) Then
		Response.Write "<font color=""#FF0066""><b>×</b></font>"
	Else
		Response.Write "<b>√</b>"
	End If
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr><td colspan=2 class=""forumRow"" height=25><B>快捷操作选项：</B>"
	Response.Write " <a href=admin_setting.asp>网站基本设置</a>&nbsp;"
	Response.Write " <a href=admin_setting.asp?action=reload>重建系统缓存</a>&nbsp;"
	Response.Write " <a href=admin_softupdate.asp>更新软件数据</a>&nbsp;"
	Response.Write " <a href=admin_articleupdate.asp>更新文章数据</a>&nbsp;"
	Response.Write " <a href=admin_template.asp>模板样式总管理</a>"
	Response.Write "</td></tr>" & vbCrLf
	Response.Write "</table>" & vbCrLf
	Response.Write "<BR>" & vbCrLf
	Response.Write " <table cellpadding=""3"" cellspacing=""1"" border=""0"" width=""100%"" class=""tableBorder"" align=center>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <th colspan=2 height=25>下载系统管理说明</th>" & vbCrLf
	Response.Write " </tr> " & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <td  class=""forumRowHighlight"" height=23>"
	Response.Write "需要更强大的功能,请购买3.5版<br>3.5分标准版和增强版两个版本<br>3.5标准版功能，相对于3.2免费版：<br>超级强大的生成html功能，可以自由选择所要生成软件、文章列表、信息页面；<br>后台登陆日志管理；<br>文章分页功能;<br> 更加安全高效 <br>3.5增强版功能，相对于3.5标准版：<br>更加强大的用户组设置；<br>每个软件下载链接可单独设置下载权限<br>增加VIP用户到期后自动变成普通用户,并在到期前指定的N天内有文字提示功能。<br>有意购买者联系本人QQ ：37601774"
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write "</table><BR>" & vbCrLf
	DownsysClass.admin_footer
End Sub

Private Function IsObjInstalled(strClassString)
	Dim xTestObj
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Set xTestObj = Server.CreateObject(strClassString)
	If 0 = Err Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function
%>
