www.gusucode.com > 新锐领秀网络相册 1.1 > admin/index.asp
<!--#include file="../include/const.asp"--> <!--#include file="admin_func.asp"--> <% CheckAdmin Select Case Request.QueryString("action") Case "admin_left" Call admin_left() Case "admin_right" Call admin_right() Case "admin_top" Call admin_top() Case "xml" Call Showxml() Case Else Call Main() End Select Sub main()%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>系统设置</title> </head> <frameset rows="56,*" cols="*" frameborder="yes" border="1" framespacing="0"> <frame src="?action=admin_top" name="header" scrolling="NO" noresize margin:0;> <frameset cols="166,*" rows="*" frameborder="yes" border="1" framespacing="0"> <frame src="?action=admin_left" name="menu" scrolling="yes" noresize > <frame src="?action=admin_right" name="main" scrolling="yes" noresize > </frameset> </frameset> <noframes><body></body></noframes> </html> <%End Sub %> <%Sub admin_top()%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <link rel="stylesheet" type="text/css" id="css" href="../images/admincp/admincp.css"> <script> var menus = new Array('basic', 'forums', 'users', 'posts', 'api', 'others', 'tools', 'home'); function togglemenu(id) { if(parent.menu) { for(k in menus) { if(parent.menu.document.getElementById(menus[k])) { parent.menu.document.getElementById(menus[k]).style.display = menus[k] == id ? '' : 'none'; } } } } function findtags(parentobj, tag) { if(typeof parentobj.getElementsByTagName != 'undefined') {return parentobj.getElementsByTagName(tag);} else if(parentobj.all && parentobj.all.tags) {return parentobj.all.tags(tag);} else {return null;} } function sethighlight(n) { var lis = findtags(document, 'li'); for(var i = 0; i < lis.length; i++) { lis[i].id = ''; } lis[n].id = 'menuon'; } togglemenu("home"); </script> </head> <script src="include/javascript/iframe.js" type="text/javascript"></script> <body> <table width="100%" border="0" cellpadding="0" cellspacing="0" class="topmenubg"> <tr> <td rowspan="2" width="160px"> <div class="logo"> <a href="http://www.0775.com.cn/" target="_blank"><img src="../images/admincp/logo.gif" alt="Discuz!" class="logoimg" border="0"/></a> <span class="editiontext">相册 <span class="editionnumber">1.0.0</span><br />系统设置</span> </div> </td><td><a href="admin_login.asp?action=logout"><font color="#FFFFFF"><b>安全退出</b></font></a> </td></tr> </table> </body></html> <%End Sub%> <%Sub admin_left()%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <title>Discuz! Administrator's Control Panel</title> <meta http-equiv="Content-Type" content="text/html; charset=gbk"> <link rel="stylesheet" type="text/css" id="css" href="../images/admincp/admincp.css"> <script> var collapsed = getcookie('cdb_collapse'); function collapse_change(menucount) { if($('menu_' + menucount).style.display == 'none') { $('menu_' + menucount).style.display = '';collapsed = collapsed.replace('[' + menucount + ']' , ''); $('menuimg' + menucount).src = '../images/admincp/menu_reduce.gif'; } else { $('menu_' + menucount).style.display = 'none';collapsed += '[' + menucount + ']'; $('menuimg' + menucount).src = '../images/admincp/menu_add.gif'; } setcookie('cdb_collapse', collapsed, 2592000); } function $() { var elements = new Array(); for (var i = 0; i < arguments.length; i++) { var element = arguments[i]; if (typeof element == 'string') element = document.getElementById(element); if (arguments.length == 1) return element; elements.push(element); } return elements; } function getcookie(name) { var cookie_start = document.cookie.indexOf(name); var cookie_end = document.cookie.indexOf(";", cookie_start); return cookie_start == -1 ? '' : unescape(document.cookie.substring(cookie_start + name.length + 1, (cookie_end > cookie_start ? cookie_end : document.cookie.length))); } function setcookie(cookieName, cookieValue, seconds, path, domain, secure) { var expires = new Date(); expires.setTime(expires.getTime() + seconds); document.cookie = escape(cookieName) + '=' + escape(cookieValue) + (expires ? '; expires=' + expires.toGMTString() : '') + (path ? '; path=' + path : '/') + (domain ? '; domain=' + domain : '') + (secure ? '; secure' : ''); } </script> </head> <body style="margin:5px!important;margin:3px;"> <table width="146" border="0" cellspacing="0" align="center" cellpadding="0" class="leftmenulist" style="margin-bottom: 5px;"> <tr class="leftmenutext"> <td> <div align="center"><a href="http://<%=Request.ServerVariables("SERVER_NAME") & left(left(Request.ServerVariables("Url"),InStrRev(Request.ServerVariables("Url"),"/")-1),InStrRev(left(Request.ServerVariables("Url"),InStrRev(Request.ServerVariables("Url"),"/")-1),"/")-1)%>/" target="_blank">网站首页</a> <!--<a href="#" onClick="parent.menu.location='admincp.php?action=menu'; parent.main.location='admincp.php?action=home';return false;">后台首页</a>--></div> </td> </tr> </table> <div id="home"> <table width="146" border="0" cellspacing="0" align="center" cellpadding="0" class="leftmenulist" style="margin-bottom: 5px;"> <tr class="leftmenutext"> <td><a href="###" onclick="collapse_change(0)"><img id="menuimg1" src="../images/admincp/menu_reduce.gif" border="0"/></a> <a href="###" onclick="collapse_change(0)">站点设置</a></td> </tr> <tbody id="menu_0" style="display:"> <tr class="leftmenutd"> <td> <table border="0" cellspacing="0" cellpadding="0" class="leftmenuinfo"> <tr> <td><a href="config.asp" target="main">基本设置</a></td> </tr> </table> </td> </tr> </tbody> </table> <table width="146" border="0" cellspacing="0" align="center" cellpadding="0" class="leftmenulist" style="margin-bottom: 5px;"> <tr class="leftmenutext"> <td><a href="###" onclick="collapse_change(1)"><img id="menuimg1" src="../images/admincp/menu_reduce.gif" border="0"/></a> <a href="###" onclick="collapse_change(1)">分类管理</a></td> </tr> <tbody id="menu_1" style="display:"> <tr class="leftmenutd"> <td> <table border="0" cellspacing="0" cellpadding="0" class="leftmenuinfo"> <tr> <td><a href="types.asp?action=add" target="main">添加分类</a></td> </tr> <tr> <td><a href="types.asp" target="main">管理分类</a></td> </tr> </table> </td> </tr> </tbody> </table> </div> <table width="146" border="0" cellspacing="0" align="center" cellpadding="0" class="leftmenulist" style="margin-bottom: 5px;"> <tr class="leftmenutext"> <td><a href="###" onclick="collapse_change(2)"><img id="menuimg2" src="../images/admincp/menu_reduce.gif" border="0"/></a> <a href="###" onclick="collapse_change(2)">图片管理</a></td> </tr> <tbody id="menu_2" style="display:"> <tr class="leftmenutd"> <td> <table border="0" cellspacing="0" cellpadding="0" class="leftmenuinfo"> <tr> <td><a href="post.asp" target="main">添加图片</a></td> </tr> <tr> <td><a href="photos.asp" target="main">图片管理</a></td> </tr> </table> </td> </tr> </tbody> </table> <table width="146" border="0" cellspacing="0" align="center" cellpadding="0" class="leftmenulist" style="margin-bottom: 5px;"> <tr class="leftmenutext"> <td><a href="###" onclick="collapse_change(7)"><img id="menuimg7" src="../images/admincp/menu_reduce.gif" border="0"/></a> <a href="###" onclick="collapse_change(7)">设置</a></td> </tr> <tbody id="menu_7" style="display:"> <tr class="leftmenutd"> <td> <table border="0" cellspacing="0" cellpadding="0" class="leftmenuinfo"> <tr> <td><a href="edit_password.asp" target="main">修改密码</a></td> </tr> </table> </td> </tr> </tbody> </table> </body> </html> <%End Sub%> <%Sub admin_right()%> <HTML> <HEAD> <TITLE>FSCMS</TITLE> <META HTTP-EQUIV="Content-Type" ONTENT="text/html; charset=gb2312"> </HEAD> <style> a{text-decoration: none;} /* 链接无下划线,有为underline */ a:link {color: #000000;} /* 未访问的链接 */ a:visited {color: #000000;} /* 已访问的链接 */ a:hover{color: #FF0000;} /* 鼠标在链接上 */ a:active {color: #FF0000;} /* 点击激活链接 */ /*BodyCSS定义*/ BODY { scrollbar-face-color: #f6f6f6; scrollbar-highlight-color: #ffffff; scrollbar-shadow-color: #cccccc; scrollbar-3dlight-color: #cccccc; scrollbar-arrow-color: #000000; scrollbar-track-color: #EFEFEF; scrollbar-darkshadow-color: #ffffff; } td {font-family: "Verdana, Arial, Helvetica, sans-serif"; font-size: 11.5px; color: #000000; text-decoration:none ; text-decoration:none ; } </style><BODY bgcolor="#FFFFFF" LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes> <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> <tr> <td><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#E0E0E0"> <tr> <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="1"></td> </tr> </table> <div align="center"> <table width="98%" height="30" border="0" cellpadding="0" cellspacing="0" background="Images/main_bg.gif"> <tr> <td> <font color="#006699"><strong>服务器信息</strong></font></td> </tr> </table> <% Dim theInstalledObjects(24) 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" theInstalledObjects(18) = "CreatePreviewImage.cGvbox" 'CreatePreviewImage theInstalledObjects(19) = "Persits.Jpeg" 'AspJpeg theInstalledObjects(20) = "SoftArtisans.ImageGen" 'SoftArtisans ImgWriter V1.21 theInstalledObjects(21) = "sjCatSoft.Thumbnail" theInstalledObjects(22) = "Microsoft.XMLHTTP" theInstalledObjects(23) = "Adodb.Stream" theInstalledObjects(24) = gJpeg %> </div> <table width="98%" height="221" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CDCDCD"> <tr bgcolor="#FAFAFA"> <td height="32"> 服务器类型:<font face="Verdana, Arial, Helvetica, sans-serif"><%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</font></td> <td height="32"> 站点物理路径<font face="Verdana, Arial, Helvetica, sans-serif">:已加密</font></td> </tr> <tr bgcolor="#FAFAFA"> <td width="44%" height="32"> 返回服务器的主机名,<font face="Verdana, Arial, Helvetica, sans-serif">IP</font>地址<font face="Verdana, Arial, Helvetica, sans-serif">:<font color=#0076AE><%=Request.ServerVariables("SERVER_NAME")%></font></font></td> <td width="56%" height="32"> 服务器操作系统<font face="Verdana, Arial, Helvetica, sans-serif">:<font color=#0076AE><%=Request.ServerVariables("OS")%></font></font></td> </tr> <tr bgcolor="#FAFAFA"> <td width="44%" height="32"> 脚本解释引擎<span class="small2">:</span><font face="Verdana, Arial, Helvetica, sans-serif"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %> </font></td> <td width="56%" height="37"> <span class="small2"><font face="Verdana, Arial, Helvetica, sans-serif">WEB</font></span>服务器的名称和版本<font face="Verdana, Arial, Helvetica, sans-serif">:<font color=#0076AE><%=Request.ServerVariables("SERVER_SOFTWARE")%></font></font></td> </tr> <tr bgcolor="#FAFAFA"> <td width="44%" height="32"> 脚本超时时间<span class="small2">:</span><font color=#0076AE><%=Server.ScriptTimeout%></font>毫秒</td> <td width="56%" height="32"> <font face="Verdana, Arial, Helvetica, sans-serif">CDONTS</font>组件支持<span class="small2">:</span> <% On Error Resume Next Server.CreateObject("CDONTS.NewMail") if err=0 then response.write("<font color=#0076AE>√</font>") else response.write("<font color=red>×</font>") end if err=0 %> </td> </tr> <tr bgcolor="#FAFAFA"> <td width="44%" height="32"> 虚拟路径<font face="Verdana, Arial, Helvetica, sans-serif">:已加密</font></td> <td width="56%" height="32"> <font face="Verdana, Arial, Helvetica, sans-serif"><span class="small2">Jmail</span></font>邮箱组件支持<span class="small2"><font face="Verdana, Arial, Helvetica, sans-serif">:</font></span> <%If Not IsObjInstalled(theInstalledObjects(13)) Then%> <font color="red">×</font> <%else%> <font color="0076AE"> √</font> <%end if%> </td> </tr> <tr bgcolor="#FAFAFA"> <td height="32"> 返回服务器处理请求的端口<font face="Verdana, Arial, Helvetica, sans-serif">:<%=Request.ServerVariables("SERVER_PORT")%></font></td> <td height="32"> 协议的名称和版本<font face="Verdana, Arial, Helvetica, sans-serif">:<%=Request.ServerVariables("SERVER_PROTOCOL")%></font></td> </tr> <tr bgcolor="#FAFAFA"> <td height="32"> 服务器 <font face="Verdana, Arial, Helvetica, sans-serif">CPU</font> 数量<font face="Verdana, Arial, Helvetica, sans-serif">:X</font> 个 </td> <td height="32"> 客户端操作系统: <% dim thesoft,vOS thesoft=Request.ServerVariables("HTTP_USER_AGENT") if instr(thesoft,"Windows NT 5.0") then vOS="Windows 2000" elseif instr(thesoft,"Windows NT 5.2") then vOs="Windows 2003" elseif instr(thesoft,"Windows NT 5.1") then vOs="Windows XP" elseif instr(thesoft,"Windows NT") then vOs="Windows NT" elseif instr(thesoft,"Windows 9") then vOs="Windows 9x" elseif instr(thesoft,"unix") or instr(thesoft,"linux") or instr(thesoft,"SunOS") or instr(thesoft,"BSD") then vOs="类Unix" elseif instr(thesoft,"Mac") then vOs="Mac" else vOs="Other" end if response.Write(vOs) %> </td> </tr> </table> <table width="98%" height="30" border="0" align="center" cellpadding="0" cellspacing="0" background="Images/main_bg.gif"> <tr> <td> <font color="#006699"><strong>使用本系统,请确认的服务器和你的浏览器满足以下要求:</strong></font></td> </tr> </table> <table width="98%" height="105" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CDCDCD"> <tr bgcolor="#FAFAFA"> <td width="44%" height="25"> <font face="Verdana, Arial, Helvetica, sans-serif">JRO.JetEngine(ACCESS</font><font face="Verdana, Arial, Helvetica, sans-serif"> </font> 数据库<span class="small2"><font face="Verdana, Arial, Helvetica, sans-serif">)</font>:</span> <% On Error Resume Next Server.CreateObject("JRO.JetEngine") if err=0 then response.write("<font color=#0076AE>√</font>") else response.write("<font color=red>×</font>") end if err=0 %> </td> <td width="56%" height="25"> 数据库使用<span class="small2">:</span> <% On Error Resume Next Server.CreateObject(gRS) if err=0 then response.write("<font color=#0076AE>√,可以使用本系统</font>") else response.write("<font color=red>×,不能使用本系统</font>") end if err=0 %> </td> </tr> <tr bgcolor="#FAFAFA"> <td height="25"> <span class="small2"><font face="Verdana, Arial, Helvetica, sans-serif">FSO</font></span>文本文件读写<span class="small2">:</span> <% On Error Resume Next Server.CreateObject(gFSO) if err=0 then response.write("<font color=#0076AE>√,可以使用本系统</font>") else response.write("<font color=red>×,不能使用此系统</font>") end if err=0 %> </td> <td height="25"> Persits.Jpeg <%If Not IsObjInstalled(theInstalledObjects(24)) Then%> <font color="red">×</font> <%else%> <font color="0076AE"> √</font> <%end if%> (非必须) Adodb.Stream <%If Not IsObjInstalled(theInstalledObjects(23)) Then%> <font color="red">×</font> <%else%> <font color="0076AE"> √</font> <%end if%> </td> </tr> <tr bgcolor="#FAFAFA"> <td height="25" colspan="2"> 客户端浏览器版本: <% Dim Agent,Browser,version,tmpstr Agent=Request.ServerVariables("HTTP_USER_AGENT") Agent=Split(Agent,";") If InStr(Agent(1),"MSIE")>0 Then Browser="MS Internet Explorer " version=Trim(Left(Replace(Agent(1),"MSIE",""),6)) ElseIf InStr(Agent(4),"Netscape")>0 Then Browser="Netscape " tmpstr=Split(Agent(4),"/") version=tmpstr(UBound(tmpstr)) ElseIf InStr(Agent(4),"rv:")>0 Then Browser="Mozilla " tmpstr=Split(Agent(4),":") version=tmpstr(UBound(tmpstr)) If InStr(version,")") > 0 Then tmpstr=Split(version,")") version=tmpstr(0) End If End If response.Write(""&Browser&" "&version&"") %> [需要IE5.5或以上,服务器建议采用Windows 2000或Windows 2003 Server]</td> </tr> </table> <table width="98%" height="30" border="0" align="center" cellpadding="0" cellspacing="0" background="Images/main_bg.gif"> <tr> <td> <font color="#006699"><strong>技术支持:新锐领秀 13307750001 13877509343 QQ: 3600775 81123555</strong></font></td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </BODY> </HTML> <%End Sub%> <% Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If Err = 0 Then IsObjInstalled = True If Err = -2147352567 Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function %>