📄 admin_main.asp
字号:
<!--#include file="Inc/inc.asp"-->
<!--#include file="head.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>
<td class="td"></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_serverinfo.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" cellpadding="3" cellspacing="1" bordercolor="#FFFFFF" class="table">
<tr>
<td height=25 class="title">官方自动通讯</th>
<tr>
<td width="100%">
<%
Dim ProductNo,VersionName,DataBaseType,ServerName,SiteUrl,SiteName,UpFilesCount,SiteWebMater
ProductNo=CacheName
VersionName=EN_VersionName
DataBaseType=IsSqlDataBase
ServerName=Request.ServerVariables("SERVER_NAME")
SiteUrl=ClsPub.GetCurrentUrl
SiteUrl=Replace(Lcase(SiteUrl),"/admin/","")
SiteName=ClsPub.TW_Config(0)
UpFilesCount=GetFilesCount()
SiteWebMaster=ClsPub.TW_Config(9)
Function GetFilesCount()
Dim TempCount
ClsPub.Name="FilesCount"
If ClsPub.ObjIsEmpty() Then
TempCount=ClsPub.DB_Query("Select F_Id From TW_FilesList")
If Not IsArray(TempCount) Then GetFilesCount=0:Exit Function
ClsPub.Value=Ubound(TempCount,2)
GetFilesCount=ClsPub.Value
Else
GetFilesCount=ClsPub.Value
End If
End Function
%>
<script src="http://www.topwang.com/Update.asp?ProductNo=<%=ProductNo%>&ServerName=<%=ServerName%>&SiteName=<%=SiteName%>&UpFilesCount=<%=UpFilesCount%>&SiteWebMaster=<%=SiteWebMaster%>&VersionName=<%=VersionName%>&DataBaseType=<%=DataBaseType%>&SiteUrl=<%=SiteUrl%>">
</script>
</td>
</tr>
</table>
<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%"> 拓网 <a href="http://www.TopWang.com/" target=_blank>http://www.TopWang.com</a></td>
</tr>
<tr>
<td width="20%" height=23> 产品开发</td>
<td width="80%"> <font color=blue>开发组</font>:拓网产品开发组</td>
</tr>
<tr>
<td width="20%" height=23> 产品销售</td>
<td width="80%"> <font color=blue>老古</font> QQ:36355735 <a target=blank href="http://wpa.qq.com/msgrd?V=1&Uin=36355735&Site=www.topwang.com&Menu=yes"><img border="0" SRC="http://wpa.qq.com/pa?p=1:36355735:5" alt="点击这里给我发消息"></a> E-Mail:<a href="mailto:Service@TopWang.Com" align="absmiddle">Service@TopWang.Com</a></td>
</tr>
<tr>
<td width="20%" height=23> 官方网站</td>
<td width="80%"> <a href="http://www.TopWang.com/" target=_blank>http://www.TopWang.com</a></td>
</tr>
</table>
Copyright (c) 2003-2006 <a href=http://www.TopWang.com target=_blank><font face=Verdana, Arial, Helvetica, sans-serif size=1><b>TopWang<font color=#CC0000>.Com</font></b></font></a>. All Rights Reserved .
<%CloseAll()%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -