<!--#INCLUDE FILE="conn.asp" -->
<!--#include file="admin_Checkuser.asp"-->
<%Server.ScriptTimeOut=99999%>
<HTML><HEAD><title><%=StrVar(1)%>--管理页面</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<!--#include file="inc/admin_main.css"-->
</HEAD>
<BODY leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<%
if  not sysadmin or session("adminlogin")<>"0K" Then
	Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登陆</a>后进入。"
	Call Error("Information",ErrMsg)
else
%>
<table cellpadding=5 cellspacing=1 border=0 width=90% Class=TableBorder align=center>
  <tr>
        <th>欢迎<b><%=membername%></b>进入管理中心</th>
        </tr>
	</table>
<br>
<%
dim allnopassphotonum,allnojoinclass
dim allnopassusernum
dim allrs

set alltmprs=conn.Execute("select count(studid) from student where classcount=0")
allnojoinclass=alltmprs(0) 
Set alltmprs=Nothing 
if isnull(allnojoinclass) Then allnojoinclass=0 

set alltmprs=conn.Execute("select count(picid) from photo where passed=0")
allnopassphotonum=alltmprs(0) 
Set alltmprs=Nothing 
if isnull(allnopassphotonum) Then allnopassphotonum=0 

set alltmprs=conn.Execute("select count(isauditing) from joinclass where isauditing=0")
allnopassusernum=alltmprs(0) 
Set alltmprs=Nothing 
if isnull(allnopassusernum) Then allnopassusernum=0 

Set alltmprs=Nothing
%>
<%Response.Flush%>
<table cellpadding="3" cellspacing="1" border="0" class="tableBorder" align=center>
  <tr> 
    <th class="tableHeaderText" colspan=2 height=25><%=StrVar(1)%>信息统计</th>
  <tr> 
    <td class="bodytitle" height=23 colspan=2>用户总数 <B><%=usernum%></B> 
      学校总数 <B><%=classnum%></B> 相片总数 <B><%=photonum%></B> 
      留言总数 <B><%=liuyannum%></B> 未审核相片总数 <B><font color=red><%=allnopassphotonum%></font></B> 未加入学校总人数 <B><font color=red><%=allnojoinclass%></font></B> 
      未审核加入学校总人数 <B><font color=red><%=allnopassusernum%></font></B>
    </td>
  </tr>
  <tr> 
    <td  class="forumRowHighlight" height=23 colspan=2> 本校友录由风铃校友录（www.717cn.com）授权给 
      <%=StrVar(1)%> 使用，当前使用版本为 风铃校友录 
      <%
IsSqlDatabase=1
If IsSqlDatabase=1 Then
	Response.Write "SQL数据库"
Else
	Response.Write "Access数据库 "
End If
Response.Write " 1.5 版"
%>
    </td>
  </tr>
  <tr> 
    <td width="50%" class="forumRow" height=23>服务器类型： <%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
    <td width="50%" class="forumRow">脚本解释引擎： <%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
  </tr>
  <tr> 
    <td width="50%" class="forumRow" height=23>站点物理路径： <%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
    <td width="50%" class="forumRow">IIS 版本： <%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
  </tr>
  <tr> 
    <td class="forumRow" height=23>FSO文件读写： 
      <%
If IsObjInstalled("Scripting.FileSystemObject") Then
	Response.Write "<font color=green><b>√</b></font>"
Else
	Response.Write "<font color=red><b>×</b></font>"
End If
%>
    </td>
    <td class="forumRow">Jmail发送邮件支持： 
      <%
If IsObjInstalled("JMail.SmtpMail") Then
	Response.Write "<font color=green><b>√</b></font>"
Else
	Response.Write "<font color=red><b>×</b></font>"
End If
%>
    </td>
  </tr>
  <tr> 
    <td class="forumRow" height=23>CDONTS发送邮件支持： 
      <%
If IsObjInstalled("CDONTS.NewMail") Then
	Response.Write "<font color=green><b>√</b></font>"
Else
	Response.Write "<font color=red><b>×</b></font>"
End If
%>
    </td>
    <td class="forumRow">AspEmail发送邮件支持： 
      <%
If IsObjInstalled("Persits.MailSender") Then
	Response.Write "<font color=green><b>√</b></font>"
Else
	Response.Write "<font color=red><b>×</b></font>"
End If
%>
    </td>
  </tr>
  <tr> 
    <td class="forumRow" height=23>无组件上传支持： 
      <%
If IsObjInstalled("Adodb.Stream") Then
	Response.Write "<font color=green><b>√</b></font>"
Else
	Response.Write "<font color=red><b>×</b></font>"
End If
%>
    </td>
    <td class="forumRow">AspUpload上传支持： 
      <%
If IsObjInstalled("Persits.Upload") Then
	Response.Write "<font color=green><b>√</b></font>"
Else
	Response.Write "<font color=red><b>×</b></font>"
End If
%>
    </td>
  </tr>
  <tr> 
    <td width="50%" class="forumRow" height=23>SA-FileUp上传支持： 
      <%
If IsObjInstalled("SoftArtisans.FileUp") Then
	Response.Write "<font color=green><b>√</b></font>"
Else
	Response.Write "<font color=red><b>×</b></font>"
End If
%>
    </td>
    <td width="50%" class="forumRow">DvFile-Up上传支持： 
      <%
If IsObjInstalled("DvFile.Upload") Then
	Response.Write "<font color=green><b>√</b></font>"
Else
	Response.Write "<font color=red><b>×</b></font>"
End If
%>
    </td>
  </tr>
  <tr> 
    <td width="50%" class="forumRow" height=23>CreatePreviewImage生成预览图片： 
      <%
If IsObjInstalled("CreatePreviewImage.cGvbox") Then
	Response.Write "<font color=green><b>√</b></font>"
Else
	Response.Write "<font color=red><b>×</b></font>"
End If
%>
    </td>
    <td width="50%" class="forumRow">AspJpeg生成预览图片： 
      <%
If IsObjInstalled("Persits.Jpeg") Then
	Response.Write "<font color=green><b>√</b></font>"
Else
	Response.Write "<font color=red><b>×</b></font>"
End If
%>
    </td>
  </tr>
  <tr> 
    <td width="50%" class="forumRow" height=23>SA-ImgWriter生成预览图片： 
      <%
If IsObjInstalled("SoftArtisans.ImageGen") Then
	Response.Write "<font color=green><b>√</b></font>"
Else
	Response.Write "<font color=red><b>×</b></font>"
End If
%>
    </td>
    <td width="50%" class="forumRow">数据库使用：
      <%
If IsObjInstalled("adodb.connection") Then
	Response.Write "<font color=green><b>√</b></font>"
Else
	Response.Write "<font color=red><b>×</b></font>"
End If
%>
    </td>
  </tr>
  <FORM action="admin_Main.asp" method=post id=form1 name=form1>
    <tr> 
      <td height=23 colspan="2" class="forumRow">其它组件支持情况查询： <input class=input type=text value="" name="classname" size=30> 
        <INPUT type=submit value="查 询" id=submit1 name=submit1>
        输入组件的 ProgId 或 ClassId&nbsp;&nbsp; 
        <%
If Request("classname")<>"" Then
	If IsObjInstalled(Request("classname")) Then
		Response.Write "<font color=green><b>恭喜，本服务器支持 "&Request("classname")&" 组件</b></font><BR>"
	Else
		Response.Write "<font color=red><b>抱歉，本服务器不支持 "&Request("classname")&" 组件</b></font><BR>"
	End If
End If
%>
      </td>
    </tr>
  </form>
  <%Response.Flush%>
  <tr> 
    <td height=11 colspan="2" class="forumRowHighlight"><div align="center"><B>ASP脚本解释和运算速度测试</B> 
      </div></td>
  </tr>
  <tr>
    <td height=11 colspan="2" class="forumRow"><%

	Response.Write "整数运算测试，正在进行50万次加法运算..."
	dim lsabc,thetime,thetime2
	t1=timer
	for i=1 to 500000
		lsabc= 1 + 1
	next
	t2=timer
	thetime=cstr(int(( (t2-t1)*10000 )+0.5)/10)
	Response.Write "...已完成！共耗时 <font color=red>" & thetime & " 毫秒</font><br>"


	Response.Write "浮点运算测试，正在进行20万次开方运算..."
	t1=timer
	for i=1 to 200000
		lsabc= 2^0.5
	next
	t2=timer
	thetime2=cstr(int(( (t2-t1)*10000 )+0.5)/10)
	Response.Write "...已完成！共耗时 <font color=red>" & thetime2 & " 毫秒</font><br>"
%></td>
  </tr>
</table>
<%Response.Flush%>
<BR>
  
<table width="85%" border="0" cellspacing="1" cellpadding="5"  align=center Class=TableBorder>
  <form method="POST" action=admin_Update.asp?Action=update>
    <tr> 
      <th height="11" colspan="4" ><b>数据统计与更新</b></font></th>
    </tr>
    <tr> 
      <td width="5%" class=forumrow><div align="center"> 
          <input type="radio" name="DoWhat" value="1">
        </div></td>
      <td width="45%" class=forumrow>更新注册用户总数、注册学校总数</td>
      <td width="5%" class=forumrow><div align="center"> 
          <input type="radio" name="DoWhat" value="2">
        </div></td>
      <td width="45%" class=forumrow>重新统计学校成员数、重新统计用户注册的学校数</td>
    </tr>
    <tr> 
      <td width="5%" class=forumrow><div align="center"> 
          <input type="radio" name="DoWhat" value="3">
        </div></td>
      <td class=forumrow>重新统计学校留言总数、重新统计学校相片总数</font></td>
      <td class=forumrow><div align="center"> 
          <input type="radio" name="DoWhat" value="4">
        </div></td>
      <td class=forumrow>更新论坛主题数、帖子数、主题回复数</td>
    </tr>
    <tr> 
      <td width="5%" class=forumrow><div align="center"> 
          <input type="radio" name="DoWhat" value="5">
        </div></td>
      <td class=forumrow>重新统计每个用户的帖子总数</td>
      <td class=forumrow><div align="center"> 
          <input type="radio" name="DoWhat" value="6">
        </div></td>
      <td class=forumrow>清空在线用户</td>
    </tr>
    <tr> 
      <td height="23" colspan="4" align=right Class=forumrowhighlight> <input type="submit" name="Submit" value="执行操作" class=button> 
      </td>
    </tr>
  </form>
</table>
<br>
<table cellpadding=5 cellspacing=1 border=0 width=90% Class=TableBorder align=center>
  <tr>
	<th><b>校友录相关信息</b></th>
    </tr>
    
  <tr> 
    <td class="forumRow" height=23><BR>
      风铃校友录 Powered By 风铃校友录 Version 1.5<br>
      <br>
      版权所有&copy;2004-2008 <a href="http://www.717cn.com" target="_blank">风铃校友录</a>。&nbsp;保留所有权利。 
      <a href="http://www.717cn.com/" target="_blank">Http://www.717cn.com 
      </a> <BR> <br>
      【其它相关说明】<BR> <BR>
      1.此版本为官方正式版本，对免费版本我们不提供专门的技术支持，如果在校友录的安装、使用和运行过程中出现问题可以访问官方<b><a href="http://bbs.717cn.com" target="_blank">论坛</a></b>进行交流。<br>
      &nbsp;&nbsp;如果要获得功能更强的正式版本或需要更好的技术支持可以联系我们注册校友录软件。<BR> <BR>
      2.本校友录现在还有很多功能没有加入，所以请密切注意更新通告。<BR> <BR>
      3.如果你在使用这个程序的过程中，有什么错误、有什么意见、有什么建议，请告诉我们，谢谢！<BR> <BR>
      4.我们还会陆续推出风铃校友录系列的其它版本，请经常注我们的论坛！<BR> <div align="right">[<a href="http://www.717cn.com/" target="_blank">风铃校友录</a>]</div></td>
    </tr>
  </table>
<%
Function IsObjInstalled(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
end if
Call endconnection()
%>
<%Response.Flush%>
</BODY></HTML>
