<!--#include file="../Include/conig.asp"-->
<!--#include file="Admin_check.asp"-->
<%
response.expires = 0 
response.expiresabsolute = now() - 1 
response.addHeader "pragma","no-cache" 
response.addHeader "cache-control","private" 
Response.cachecontrol = "no-cache"
if Instr(session("AdminPurview"),"|111,")=0 then 
  response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
  response.end
end if
'========判断是否具有管理权限 
%>
<%
Dim theInstalledObjects(6)
theInstalledObjects(0) = "ADODB.Stream"
theInstalledObjects(1) = "Scripting.FileSystemObject"
theInstalledObjects(2) = "adodb.connection"
theInstalledObjects(3) = "msxml2.XMLHTTP"

theInstalledObjects(4) = "JMail.SMTPMail"	'Jamil 4.2
theInstalledObjects(5) = "JMail.Message"	'Jamil 4.3
theInstalledObjects(6) = "CDONTS.NewMail"

Function IsObjInstalled(ByVal strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If 0 = Err Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function
Function CheckObj(objid)
	If Not IsObjInstalled(objid) Then
		CheckObj = "<font color=""#ff0066""><strong>&times;</strong></font>"
	Else
		CheckObj = "<strong>&radic;</strong>"
	End If
End Function

Dim SYS_SERVER_NAME,SYS_LOCAL_ADDR
SYS_SERVER_NAME = Request.ServerVariables("SERVER_NAME")
SYS_LOCAL_ADDR = Request.ServerVariables("LOCAL_ADDR")
%>
<!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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="cache-control" content="no-cache" />
<meta http-equiv="pragma" content="no-cache" />
<title>后台控制面板--首页</title>
<link rel="stylesheet" type="text/css" href="images/skin/style.css" />
</head>
<body class="indexbody">
<table class="tableborder" cellspacing="1" cellpadding="3" align="center" border="0">
	<tr>
		<th colspan="2" align="left">后台首页<span class="tableline">欢迎：<%=session("webruiAdmin")%>[<%=session("webruiUser")%>]</span></th>
	</tr>
	<tr>
		<td class="tablerow1" colspan="2" align="left">本程序由网联网络（WebRui.Net）授权给使用，当前使用版本为 网联投票评选管理系统(WebRuiVote)</td>
	</tr>
	<tr>
		<td class="tablerow2" width="50%">服务器名：<%=SYS_SERVER_NAME%> (IP:<%=SYS_LOCAL_ADDR%>)</td>
		<td class="tablerow2" width="50%">数据库使用：<strong style="color: blue"><%If IsSqlDataBase = 1 Then
		Response.Write "Microsoft SQL Server"
	Else
		Response.Write "Microsoft Access"
	End If%></strong></td>
	</tr>
	<tr>
		<td class="tablerow1">IIS 版本： <%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
		<td class="tablerow1">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
	</tr>
	<tr>
		<td class="tablerow2">站点物理路径：<%=Request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
		<td class="tablerow2">远程采集组件： <%=CheckObj(theInstalledObjects(3))%></td>
	</tr>
	<tr>
		<td class="tablerow1">FSO文本读写：<%=CheckObj(theInstalledObjects(1))%></td>
		<td class="tablerow1">无组件上传类： <%=CheckObj(theInstalledObjects(0))%></td>
	</tr>
	<tr>
		<td class="tablerow2">Jmail组件支持：<%=CheckObj(theInstalledObjects(4))%></td>
	  <td class="tablerow2">CDONTS组件支持：<%=CheckObj(theInstalledObjects(6))%></td>
	</tr>
</table>
<table class="tableborder" cellspacing="1" cellpadding="3" width="100%" align="center" border="0">
	<tr>
		<th colspan="2" align="left">网站管理系统说明</th>
	</tr>
	<tr>
		<td class="tablerow1" width="60" height="23">高级管理员</td>
	  <td class="tablerow1" style="line-height: 150%">拥有系统的最高管理权限。<br />
		第一次使用时请到<font color="#ff0000">用户管理</font>-<a href="Admin_PassUp.asp"><font color="#ff0000">管理员密码修改</font></a>重新设置管理密码</td>
	</tr>
	<tr>
		<td class="tablerow2" height="23">普通管理员</td>
	  <td class="tablerow2" style="line-height: 150%">需要高级管理员给予权限。<br />
		注:<a href="Admin_list.asp"><font color="#ff0000">在管理员管理－设置权限!</font></a></td>
	</tr>
	<tr>
		<td class="tablerow1" height="23">使用设置</td>
		<td class="tablerow1" style="line-height: 150%">第一次使用<font color="#ff0000">网联</font>网站管理系统<%=Vers%><br />
		点击左边管理导航菜单中的&ldquo;<a href="admin_config.asp"><font color="#ff0000">常规设置-基本设置</font></a>&rdquo;<br />
		对你的网站信息和一些网站配置参数进行配置。</td>
	</tr>
</table>
<table class="tableborder" cellspacing="1" cellpadding="3" align="center" border="0">
	<tr>
		<th colspan="2" align="left">网站管理系统版本</th>
	</tr>
	<tr>
		<td class="tablerow1" width="60" height="23">当前版本</td>
		<td class="tablerow1" style="line-height: 150%"><strong style="color: blue"><%=VER%></strong></td>
	</tr>
	<tr>
		<td class="tablerow2" height="23">版权声明</td>
		<td class="tablerow2" style="line-height: 150%">　1、本软件为共享软件,未经书面授权，不得向任何第三方提供本软件系统;<br />
		　2、用户自由选择是否使用,在使用中出现任何问题和由此造成的一切损失作者将不承担任何责任;<br />
		　3、您可以对本系统进行修改和美化，但必须保留完整的版权信息; <br />
		　4、本软件受中华人民共和国《著作权法》《计算机软件保护条例》等相关法律、法规保护，作者保留一切权利。　</td>
	</tr>
</table>
<table class="tableborder" cellspacing="1" cellpadding="3" align="center" border="0">
	<tr>
		<th colspan="2" align="left">网站管理系统开发</th>
	</tr>
	<tr>
		<td class="tablerow1" width="60" height="23">程序制作</td>
		<td class="tablerow1">网联网络</td>
	</tr>
	<tr>
		<td class="tablerow2" height="23">联系方式</td>
		<td class="tablerow2">E-mail：webrui@126.com&nbsp;&nbsp;&nbsp;&nbsp;QQ：1345941532&nbsp;&nbsp;<a target="_blank" href="http://sighttp.qq.com/authd?IDKEY=19ed0eb6b6cc7c0e96769500b9ed2a08a218ebe6d2637f14"><img border="0"  src="Images/style_42.jpg" alt="网联在线咨询" title="网联在线咨询"></a><br />
	  <b>说明：</b><font color="red">以上联系方式，只用于售前咨询，不提供技术支持</font></td>
	</tr>
	<tr>
		<td class="tablerow1" height="23">程序主页</td>
		<td class="tablerow1"><a target="_blank" href="www.webrui.net">www.webrui.net</a><a target="_blank" href="http://www.xinyun.org/"></a></td>
	</tr>
</table>
