📄 admin_main.asp
字号:
<!-- #include file="function.asp" -->
<!-- #include file="admin_cookie.asp" -->
<%
Dim theInstalledObjects(18)
dim duanke
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.Message"
theInstalledObjects(14) = "CDONTS.NewMail"
theInstalledObjects(15) = "Persits.MailSender"
theInstalledObjects(16) = "LyfUpload.UploadFile"
theInstalledObjects(17) = "Persits.Upload.1"
theInstalledObjects(18) = "w3.upload"
duanke=""
if Request.ServerVariables("SERVER_PORT")<>80 then duanke=":"&Request.ServerVariables("SERVER_PORT")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>DATALL 知识库asp版 v2.0</title>
<style type="text/css">
<!--
body {
background: #FFFFFF;
font-size: 12px;
scrollbar-base-color: #0066CC;
scrollbar-arrow-color: #FFFFFF;
margin: 0px;
padding: 0px;
border: 0px;
}
td { font-size: 12px;}
-->
</style>
</head>
<body>
<!--
'┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓'
'┃ DATALL 知识库asp版 v2.0 ┃'
'┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┫'
'┃ homepage:http://www.datall.com ┃'
'┃ http://www.datall.net ┃'
'┃ Q Q NO.:194088 ┃'
'┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┫'
'┃ DATALL出品 ┃'
'┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛'
-->
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#0099FF">
<tr>
<td height="20" colspan="2"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" colspan="2"> <strong>服务器信息</strong></td>
</tr>
<tr bgcolor="#EEEEEE">
<td width="50%" height="20" bgcolor="#EEEEEE"> 服务器域名：http://<%=Request.ServerVariables("server_name")%><%=duanke%></td>
<td> 服务器操作系统：<%=Request.ServerVariables("OS")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20"> 服务器软件的名称：<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
<td> 脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr bgcolor="#EEEEEE">
<td height="20"> FSO 文本读写：<%If Not IsObjInstalled(theInstalledObjects(9)) Then%><font color="red"><b>×</b></font><%else%><b>√</b><%end if%></td>
<td> ACCESS 数据库路径：<a target="_blank" href="<%=datapath%><%=datafile%>"><%=datapath%><%=datafile%></a></td>
</tr>
<tr>
<td height="20"> </td>
<td> </td>
</tr>
</table>
<br>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#0099FF">
<tr>
<td height="20" colspan="2"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" colspan="2"> <strong>快捷信息</strong></td>
</tr>
<tr bgcolor="#EEEEEE">
<td width="50%" height="20" bgcolor="#EEEEEE"> 论坛帖子量：主题<font color="#FF0000"><%=conn.execute("Select count(id)from [list] where upid=0")(0)%></font>篇，回复<font color="#FF0000"><%=conn.execute("Select count(id)from [list] where upid>0")(0)%></font>篇</td>
<td> 论坛会员数：共有<font color="#FF0000"><%=conn.execute("Select count(id)from [user]")(0)%></font>位会员</td>
</tr>
<tr bgcolor="#FFFFFF">
<form method="post" name="form" action="admin_list.asp">
<td height="20"> 快捷查找帖子：
<input type="text" name="searchkey">
<input type="submit" name="Submit" value="查找">
</td>
</form>
<form method="post" name="form" action="admin_member.asp">
<input type="hidden" name="action" value="search">
<td> 快捷查找用户：
<input type="text" name="searchkey">
<input type="submit" name="Submit" value="查找"></td>
</form>
</tr>
<tr>
<td height="20"> </td>
<td> </td>
</tr>
</table>
<br>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#0099FF">
<tr>
<td height="20" colspan="2"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20" colspan="2"> </td>
</tr>
<tr bgcolor="#EEEEEE">
<td width="50%" height="20"> </td>
<td> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="50" colspan="2"> </td>
</tr>
<tr>
<td height="20"> </td>
<td> </td>
</tr>
</table>
</body>
</html>
<%
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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -