📄 home.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>首页</title>
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style4 {font-weight: bold}
-->
</style>
</head>
<body>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="tablegg">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#F1F1F1">
<tr bgcolor="#E3E2C3">
<td height="23"><div align="center" class="style4"><strong> 网站后台管理 </strong></div></td>
</tr>
<tr>
<td height="253" valign="top"><table width="100%" height="2" border="0" align=center cellpadding="3" cellspacing="1" bgcolor="#FFFFFF" class="tableBorder">
<%
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
Dim theInstalledObjects(20)
theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "IISSample.ContentRotator"
theInstalledObjects(7) = "IISSample.PageCounter"
theInstalledObjects(8) = "MSWC.PermissionChecker"
theInstalledObjects(9) = "Scripting.FileSystemObject"
theInstalledObjects(10) = "adodb.connection"
theInstalledObjects(11) = "SoftArtisans.FileUp"
theInstalledObjects(12) = "SoftArtisans.FileManager"
theInstalledObjects(13) = "JMail.SMTPMail" 'Jamil 4.2
theInstalledObjects(14) = "CDONTS.NewMail"
theInstalledObjects(15) = "Persits.MailSender"
theInstalledObjects(16) = "LyfUpload.UploadFile"
theInstalledObjects(17) = "Persits.Upload.1"
theInstalledObjects(18) = "JMail.Message" 'Jamil 4.3
theInstalledObjects(19) = "Persits.Upload"
theInstalledObjects(20) = "SoftArtisans.FileUp"
%><tr bgcolor="#EDEDE1">
<td height=26 colspan="2" class="forumRow"> <strong> : : 系统信息 : :</strong></td>
</tr>
<tr bgcolor="#F1F1F1">
<td width="50%" height=26 class="forumRow">服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
<td width="50%" height="26" class="forumRow">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr bgcolor="#F1F1F1">
<td width="50%" height=26 class="forumRow">站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
<td width="50%" height="26" class="forumRow"> </td>
</tr>
<tr bgcolor="#F1F1F1">
<td width="50%" height=26 class="forumRow">FSO文本读写：
<%If Not IsObjInstalled(theInstalledObjects(9)) Then%>
<font color="red"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%></td>
<td width="50%" height="26" class="forumRow">数据库使用：
<%If Not IsObjInstalled(theInstalledObjects(10)) Then%>
<font color="red"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%></td>
</tr>
<tr bgcolor="#F1F1F1">
<td width="50%" height=26 class="forumRow"><%If IsObjInstalled(theInstalledObjects(18)) Then%>
Jmail4.3邮箱组件支持：
<%else%>
Jmail4.2组件支持：
<%end if%>
<%If IsObjInstalled(theInstalledObjects(18)) or IsObjInstalled(theInstalledObjects(13)) Then%>
<b>√</b>
<%else%>
<font color="red"><b>×</b></font>
<%end if%>
</td>
<td width="50%" height="26" class="forumRow">CDONTS邮箱组件支持：
<%If Not IsObjInstalled(theInstalledObjects(14)) Then%>
<font color="red"><b>×</b></font>
<%else%>
<b>√</b>
<%end if%></td>
</tr>
</table >
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#EDEDE1">
<td height="26" colspan="2"><span class="forumRow"> <strong> : : 管理制度 : :</strong></span></td>
</tr>
<tr bgcolor="#F1F1F1">
<td width="16%" height="26" align="center">管理员权限 </td>
<td width="84%" height="26"> </td>
</tr>
<tr bgcolor="#F1F1F1">
<td height="26" align="center">分版面功能 </td>
<td height="26"> </td>
</tr>
<tr bgcolor="#F1F1F1">
<td height="26" align="center">上传文件管理 </td>
<td height="26"> </td>
</tr>
</table></td>
</tr>
<tr align="center" bgcolor="#EDEDE1">
<td height="35" align="right"> <span class="style1">Copyright 2003 - 2005 IFBEST Inc. AllRights Reserved Design By <a href="http://www.258sp.com" target="_blank">258sp商务平台</a></span> </td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -