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>&nbsp;&nbsp;<!--<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>&nbsp;<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>&nbsp;<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>&nbsp;<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>&nbsp;<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">&nbsp; 
                  </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&nbsp;&nbsp;&nbsp;&nbsp;QQ: 3600775 &nbsp;&nbsp; 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
%>