📄 admin_main.asp
字号:
<!--#include file="head.asp"-->
<!--#include file="Inc/inc.asp"-->
<%
Call ClsAdmin.CheckManager(2,0)
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
ClsPub.SysConfig()
%>
<body topmargin="0">
<table border="0" cellpadding="3" cellspacing="1" bordercolor="#FFFFFF" class="table">
<tr>
<td colspan="2" class="title">服务器信息</td>
</tr>
<tr>
<td class="td">服务器名：<%=Request.ServerVariables("SERVER_NAME")%></td>
<td class="td">服务器类型：<%=Request.ServerVariables("OS")%></td>
</tr>
<tr>
<td class="td">服务器IP：<%=Request.ServerVariables("LOCAL_ADDR")%></td>
<td class="td">数据库使用：<%If Not IsObjInstalled("adodb.connection") Then%>
<font color="red"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%></td>
</tr>
<tr>
<td class="td">物理路径：<%=Request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
<td class="td">IIS版本：<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr>
<td class="td">FSO读写：
<span class="tdbg">
<%If Not IsObjInstalled("Scripting.FileSystemObject") Then%>
<font color="red"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%></td>
<td class="td">脚本引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<%
Call ShowObj("JMail.SMTPMail","CDONTS.NewMail")
Call ShowObj("Persits.Upload","SoftArtisans.FileUp")
Call ShowObj("DvFile.Upload","LyfUpload.UploadFile")
Call ShowObj("IronSoft.Upload","w3.Upload")
Call ShowObj("CreatePreviewImage.cGvbox","Persits.Jpeg")
%>
<tr>
<td class="td">SoftArtisans.ImageGen组件支持：
<span class="tdbg">
<%If Not IsObjInstalled("SoftArtisans.ImageGen") Then%>
<font color="red"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%></td>
</tr>
<tr>
<td colspan="2" class="td">ASP脚本解释和运算速度测试： <br>
服务器执行50万次“1＋1”的计算，记录其所使用的时间：
<%
Dim t1,t2,lsabc,thetime,i
t1=timer
For i=1 TO 500000
lsabc= 1 + 1
Next
t2=Timer
thetime=Cstr(Int(( (t2-t1)*10000 )+0.5)/10)
%>
<font color=red><%=thetime%> 毫秒</font></td>
</tr>
<tr>
<td colspan="2" class="td"><div align="right"><a href="Admin_SysConfig.asp">了解更多服务器信息…</a></div></td>
</tr>
</table>
<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0" height="5">
<tr>
<td></td>
</tr>
</table>
<%
Sub ShowObj(ObjName1,ObjName2)
%>
<tr>
<td class="td"><%=ObjName1%>组件支持：
<%If Not IsObjInstalled(ObjName1) Then%>
<font color="red"><b>×</b></font>
<%Else%>
<b>√</b>
<%End If%></td>
<td class="td"><%=ObjName2%>组件支持：<%If Not IsObjInstalled(ObjName2) Then%>
<font color="red"><b>×</b></font>
<%Else%>
<b>√</b>
<%End If%></td>
</tr>
<%
End Sub
%>
<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0" height="5">
<tr>
<td></td>
</tr>
</table>
<table border="0" cellpadding="3" cellspacing="1" bordercolor="#FFFFFF" class="table">
<tr>
<td colspan=2 height=25 class="title">产品信息</th>
<tr>
<td width="20%" height=23> 程序开发</td>
<td width="80%"> dongtso <a href="http://www.jinlujy.com/bbs2/showbbs.asp?bd=602&id=1121&totable=1" target=_blank>http://bbs.jinlujy.com</a></td>
</tr>
<tr>
<td width="20%" height=23> 程序美化</td>
<td width="80%"> dongtso<font color="blue"> </font></td>
</tr>
<tr>
<td width="20%" height=23> 技术支持</td>
<td width="80%"> <font color=blue>dongtso</font> QQ:5628218 E-Mail:<a href="mailto:dzhqi@msn.Com" align="absmiddle">dzhqi@163.Com</a> MSN:<a href="mailto:dzhqi@msn.Com" align="absmiddle">dzhqi@MSN.Com</a></td>
</tr>
<tr>
<td width="20%" height=23> 演示网站</td>
<td width="80%"> <a href="http://www.jinlujy.com/bbs2/showbbs.asp?bd=602&id=1121&totable=1" target=_blank>http://www.jinlujy.com/bbs2/</a></td>
</tr>
</table>
Copyright (c) 2006 <a href=http://www.0756wz.com target=_blank><font face=Verdana, Arial, Helvetica, sans-serif size=1><b>jinlujy<font color=#CC0000>.COM</font></b></font></a>. All Rights Reserved .
<%CloseAll()%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -