<!--#Include File="../Inc/Const.Asp"-->
<!--#Include File="Inc/Class_Setting.Asp"-->
<!--#Include File="Inc/Class_Diypage.Asp"-->
<!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=UTF-8" />
<title>WelCome</title>
<link type="text/css" rel="stylesheet" href="style/main.css"/>
<script src="js/jquery-1.3.2.min.js" language="javascript" type="text/javascript"></script>
<link href="Images/Style.Css" rel="stylesheet" type="text/css" />
<script language="JavaScript" type="text/javascript" src="Images/ajax.js"></script>
</head>
<body>
<%
Dim Rs,i,j
If Request("Act") = "ClsCache" Then
	Call ClsCache()
	Dim U
	Set U = New Cls_Setting
	Call U.Refresh()
	Set U = Nothing
	Set U = New Cls_Diypage
	Set Rs = DB("Select [ID] From [{pre}Diypage]",1)
	Do While Not Rs.Eof
	U.vID = Rs(0) : Call U.Rebuild()
	Rs.MoveNext
	Loop
	Rs.Close
End If
If Request("Act") = "Createindex" Then
	Call ClsCache()
	Call CreateIndex(1)
end if
%>
<div id="getVersion" style="display:none;">
<script language="JavaScript" type="text/javascript" src="http://www.xxzwz.com/svc/version.Asp?url=<%=Request.Servervariables("Server_Name")%>&ver=<%=SysVersion%>&char=<%=Response.Charset%>"></script>
</div>
<table width=100% border=0 cellpadding=3 cellspacing=1 class=css_table bgcolor='#E1E1E1'>
	<tr class=css_menu>
		<td colspan=3><table width=100% border=0 cellpadding=4 cellspacing=0 class=css_main_table>
				<tr>
					<td class=css_main><a href=#>系统信息</a></td>
					<td class=css_main><div align="right"><%if createhtml=1 or Createhtml = 3 then%><a href="Action.Asp?Act=Createindex" title="重新生成首页">更新首页</a> <%end if%><a href="Action.Asp?Act=ClsCache" title="更新缓存同时更新自定义页面">更新缓存</a> <a href="<%=Indexpath%>" target="_blank">访问首页</a> <a href="http://www.xxzwz.com/" target="_blank">官方网站</a></div></td>
				</tr>
			</table></td>
	</tr>
	<tr>
		<td class="css_col12" width="33%">文章总数：<%=DB("Select Count([ID]) From [{pre}Content]",1)(0)%></td>
		<td class="css_col12">当前版本：v <%=SysVersion%> &nbsp;<%=Response.Charset%></td>
		<td class="css_col12" width="33%"><!--最新版本：<span id="getVersionhelp">正在查询，请稍等...</span>--></td>
	</tr>
	<tr>
		<td class="css_col11">浏览模式：<%Select Case CreateHTML:Case 0 : Response.Write "Asp" : Case 1 : Response.Write "HTML" : Case 2 : Response.Write "Rewrite" : Case 3 Response.Write "Asp & HTML" : End Select%></td>
		<td class="css_col11">标题拼音：<%=IIF(Autopinyin=1,"启用","禁用")%></td>
		<td class="css_col11">远程抓图：<%=IIF(Remotepic=1,"启用","禁用")%></td>
	</tr>
</table>
<table width="100%" border="0" cellpadding="3" cellspacing="1" class="css_table" bgcolor='#E1E1E1'>
	<tr class="css_menu">
		<td colspan="3"><table width="100%" border="0" cellpadding="4" cellspacing="0" class="css_main_table">
				<tr>
					<td class="css_main"><a href="#">蜘蛛统计</a></td>
				</tr>
			</table></td>
	</tr>
	<%
	j = 1
	Set Rs = DB("Select [BotName],[LastDate] From [{pre}Bots] Order By [LastDate] Desc",1)
	Do While Not Rs.Eof
	j = j + 1
	%>
	<tr>
		<%For i = 1 To 3%>
		<%If Not Rs.Eof Then%>
		<td class="css_col1<%=j%>"><strong><font color=#50691B><%=Rs(0)%></font></strong>&nbsp;&nbsp;<%=IIF(Month(Rs(1))=Month(Date) And Day(Rs(1))=Day(Date),Rs(1) & " <font color=red size=1>New</font>",Rs(1))%></td>
		<%Else%>
		<td class="css_col1<%=j%>">&nbsp;</td>
		<%End If%>
		<%If Not Rs.Eof Then Rs.MoveNext%>
		<%Next%>
	</tr>
	<%
	If j >=2 Then j = 0
	Loop
	Rs.Close : Set Rs = Nothing
	%>
</table>
<br>
<table width="100%" border="0" cellpadding="3" cellspacing="1" class="css_table" bgcolor='#E1E1E1'>
	<tr class="css_menu">
		<td colspan="3"><table width="100%" border="0" cellpadding="4" cellspacing="0" class="css_main_table">
				<tr>
					<td class="css_main"><a href="#">环境信息</a></td>
				</tr>
			</table></td>
	</tr>
	<tr>
		<td class='css_col12'><div align='left' width="33%">服务器IP地址：<%=Request.ServerVariables("LOCAL_ADDR")%></div></td>
		<td class='css_col12'><div align='left'>脚本解释引擎：<%=ScriptEngine & "/" & ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion & "," & "JScript/" & GetJVer()%></div></td>
		<td class='css_col12'><div align='left' width="33%">服务器Session数量：<%=Session.Contents.Count%></div></td>
	</tr>
	<tr>
		<td class='css_col11'><div align='left'>服务器当前时间：<%=Now()%></div></td>
		<td class='css_col11'><div align='left'>站点物理路径：<%=Request.ServerVariables("APPL_PHYSICAL_PATH")%></div></td>
		<td class='css_col11'><div align='left'>IIS版本名称：<%=Request.ServerVariables("SERVER_SOFTWARE")%></div></td>
	</tr>
	<%
	Dim InstallObj(6)
	InstallObj(0) = "ADODB.Connection"
	InstallObj(1) = "Scripting.FileSystemObject"
	InstallObj(2) = "ADODB.Stream"
	InstallObj(3) = "Microsoft.XMLHTTP"
	InstallObj(4) = "Persits.Jpeg"
	InstallObj(5) = "JMail.SmtpMail"
	InstallObj(6) = "JRO.JetEngine"
	For i = 0 To Ubound(InstallObj)-2
		Response.Write "  <tr>" & Vbcrlf 
		Response.Write "    <td class='css_col1" & ((i+1) Mod 2 ) + 1 & "'><div align='left'>" & InstallObj(i) & "："
		If IsObjInstalled(InstallObj(i)) Then Response.Write "<font color='green'>√</font>" Else Response.Write "<font color='red'>×</font>"
		Response.Write "</div></td>" & Vbcrlf 
		Response.Write "    <td class='css_col1" & ((i+1) Mod 2 ) + 1 & "'><div align='left'>" & InstallObj(i+1) & "："
		If IsObjInstalled(InstallObj(i+1)) Then Response.Write "<font color='green'>√</font>" Else Response.Write "<font color='red'>×</font>"
		Response.Write "</div></td>" & Vbcrlf 
		Response.Write "    <td class='css_col1" & ((i+1) Mod 2 ) + 1 & "'><div align='left'>" & InstallObj(i+2) & "："
		If IsObjInstalled(InstallObj(i+2)) Then Response.Write "<font color='green'>√</font>" Else Response.Write "<font color='red'>×</font>"
		Response.Write "</div></td>" & Vbcrlf 
		Response.Write "  </tr>" & Vbcrlf
		i=i+2
	Next
	%>
</table>
<table width="400" height="40" border="0" align="center">
	<tr>
		<td><div align="center">Copyright 2012-2013 <a href="http://www.xxzwz.com" target="_blank">www.niuboke.cn </a></div></td>
	</tr>
</table>
<script type="text/javascript">
$("getVersionhelp").innerHTML=$("getVersion").innerHTML;
if($("getVersionhelp").innerHTML.length==0){$("getVersionhelp").innerHTML='<a href=http://www.xxzwz.com target=_blank>查询失败,访问官方网站</a>';}
</script>
<script language="JScript" runat="server">
function GetJVer(){return ScriptEngineMajorVersion() + "." + ScriptEngineMinorVersion() + "." + ScriptEngineBuildVersion();}
</script>
<%If IsObject(Conn) Then Conn.Close : Set Conn = Nothing%>
</body>
</html>