www.gusucode.com > 木犁IT产品管理系统 1.0 beta1码程序 > manage/ES_Main.asp
<!--#include file="conn.asp" -->
<%
if not session("check")="checked" then
response.Redirect "login.asp"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>栏目管理</title>
<link href="images/private.css" rel="stylesheet" type="text/css" />
<script language='javascript' src='images/private.js'></SCRIPT>
<style type="text/css">
<!--
.STYLE1 {
color: #FF0000;
font-size: 14px;
}
-->
</style>
</head>
<body>
<table border=0 cellspacing=1 align=center class=navi>
<tr>
<th>当前位置：管理首页</th>
</tr>
</table>
<br>
<table border=0 cellspacing=1 align=center class="list">
<tr>
<th height="24" colspan="2" align="center"><strong>欢迎您使用</strong>随缘网络产品管理系统2.0(奥运特别)版</th>
</tr>
<tr>
<td width="508" height="24" align="left">程序版本：厦门随缘网络产品管理系统2.0(奥运特别)版</td>
<td width="228" align="left">现在时间：<%Response.Write(Application("date_chinese"))%><%=now%></td>
</tr>
<tr>
<td height="243" colspan="2" align="left" style="padding-top:10px;padding-bottom:10px;"><table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#ffffff" class="list">
<tr>
<th height="25" align="center"><div align="left" class="xingmu"><strong>服务器有关参数</strong>
</div></th>
</tr>
<tr class="hback">
<td style="display" id='submenu0'><table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#FFFFFF">
<tr height="18">
<td width="130" bgcolor="#7BB6E7"> 服务器名</td>
<td width="170" height="18" bgcolor="#7BB6E7"> <%=Request.ServerVariables("SERVER_NAME")%></td>
<td width="130" height="18" bgcolor="#7BB6E7"> 服务器操作系统</td>
<td width="170" height="18" bgcolor="#7BB6E7"> <%=Request.ServerVariables("OS")%></td>
</tr>
<tr height="18">
<td bgcolor="#7BB6E7"> 服务器IP</td>
<td bgcolor="#7BB6E7"> <%=Request.ServerVariables("LOCAL_ADDR")%></td>
<td bgcolor="#7BB6E7"> 服务器端口</td>
<td bgcolor="#7BB6E7"> <%=Request.ServerVariables("SERVER_PORT")%></td>
</tr>
<tr height="18">
<td bgcolor="#7BB6E7"> 服务器时间</td>
<td bgcolor="#7BB6E7"> <%=now%></td>
<td bgcolor="#7BB6E7"> 服务器CPU数量</td>
<td bgcolor="#7BB6E7"> <%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
</tr>
<tr height="18">
<td bgcolor="#7BB6E7"> IIS版本</td>
<td height="18" bgcolor="#7BB6E7"> <%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
<td height="18" bgcolor="#7BB6E7"> 脚本超时时间</td>
<td height="18" bgcolor="#7BB6E7"> <%=Server.ScriptTimeout%> 秒</td>
</tr>
<tr height="18">
<td bgcolor="#7BB6E7"> Application变量</td>
<td height="18" bgcolor="#7BB6E7">
<%Response.Write(Application.Contents.Count & "个 ")%> </td>
<td height="18" bgcolor="#7BB6E7"> Session变量<br /> </td>
<td height="18" bgcolor="#7BB6E7"> <%Response.Write(Session.Contents.Count&"个 ")%> </td>
</tr>
<tr height="18">
<td height="18" bgcolor="#7BB6E7"> <a href="?action=showvariables">所有服务器参数</a></td>
<td height="18" bgcolor="#7BB6E7">
<%Response.Write(Request.ServerVariables.Count&"个 ")%> </td>
<td height="18" bgcolor="#7BB6E7"> 服务器环境变量</td>
<td height="18" bgcolor="#7BB6E7"> <%
On Error Resume Next
dim WshShell,WshSysEnv
Set WshShell = server.CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment
if err then
Response.Write("服务器不支持WScript.Shell组件")
err.clear
else
Response.Write(WshSysEnv.count &"个 ")
end if
%> </td>
</tr>
<tr height="18">
<td align="left" bgcolor="#7BB6E7"> 本文件实际路径</td>
<td height="8" colspan="3" bgcolor="#7BB6E7"> <%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%></td>
</tr>
</table> </td>
</tr>
</table><br>
<table width="98%" height="105" border="0" align="center" cellpadding="3" cellspacing="1" class="list">
<tr class="hback">
<th height="25" colspan="2" align="left" class="xingmu">使用本软件，请确认的服务器和你的浏览器满足以下要求：</th>
</tr>
<tr class="hback">
<td width="48%" height="25" bgcolor="#F8F7F5"> JRO.JetEngine(ACCESS 数据库<span class="small2">)：</span>
<%
On Error Resume Next
Server.CreateObject("JRO.JetEngine")
if err=0 then
response.write("√")
else
response.write("×")
end if
err=0
%> </td>
<td width="52%" height="25" bgcolor="#F8F7F5"> 数据库使用:
<%
On Error Resume Next
Server.CreateObject("Adodb.Connection")
if err=0 then
response.write("√,可以使用本系统")
else
response.write("×,不能使用本系统")
end if
err=0
%> </td>
</tr>
<tr class="hback">
<td height="25" bgcolor="#F8F7F5"> <span class="small2">FSO</span>文本文件读写<span class="small2">：</span>
<%
On Error Resume Next
Server.CreateObject(ESCMS_FSO)
if err=0 then
response.write("√")
else
response.write("×")
end if
err=0
%> </td>
<td height="25" bgcolor="#F8F7F5"> Adodb.Stream:
<%Server.CreateObject("Adodb.Stream")
if err=0 then
response.write("√")
else
response.write("×")
end if
err=0%> </td>
</tr>
<tr class="hback">
<td height="25" colspan="2" bgcolor="#F8F7F5"> 客户端浏览器版本：
<%
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><br>
<table width="98%" height="105" border="0" align="center" cellpadding="3" cellspacing="1" class="list">
<tr class="hback">
<th height="25" colspan="2" align="left" class="xingmu">程序开发：</th>
</tr>
<tr class="hback">
<td width="48%" height="25" bgcolor="#F8F7F5"> 开发团队：随缘网络</td>
<td width="52%" height="25" bgcolor="#F8F7F5"> QQ咨询：84723090
545177708</td>
</tr>
<tr class="hback">
<td height="25" bgcolor="#F8F7F5"> <span class="small2">联系邮箱：wuguihua2001@163.com</span></td>
<td height="25" bgcolor="#F8F7F5"> 程序开发：<a target="_blank" href="http://www.115cn.cn/"><span style="text-decoration: none">厦门随缘网络科技</span></a></td>
</tr>
<tr class="hback">
<td height="25" bgcolor="#F8F7F5"> 联系电话：0592-5983163</td>
<td height="25" bgcolor="#F8F7F5"> 交流论坛：<a target="_blank" href="http://www.116cn.cn">http://www.116cn.cn</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="24" colspan="2" align="center">本程序受权使用，程序版权归<a target="_blank" href="http://www.115cn.cn/"><span style="text-decoration: none">厦门随缘网络科技</span></a>所有 </td>
</tr>
</table>
</body>
</html>