📄 admin_main.asp
字号:
<!-- #include file="conn.asp" -->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<%
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: byhucn@126.com,lzz9812@163.com
'=========================================================
'
'FileName: admin_main.asp
'Version:2.0
'UpdateTime: 2004-10-7 15:24:47
'Script Written by www.aspease.com
'=========================================================
admheader
call main()
admfooter
sub main()
Dim theInstalledObjects(17)
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"
theInstalledObjects(14) = "CDONTS.NewMail"
theInstalledObjects(15) = "Persits.MailSender"
theInstalledObjects(16) = "LyfUpload.UploadFile"
theInstalledObjects(17) = "Persits.Upload.1"
response.Write("<table cellpadding=3 cellspacing=1 border=0 width=95% align=center>")
response.Write("<tr>")
response.Write("<td width=""100%"" valign=top>")
response.Write("<p><b>欢迎使用动易拍卖程序 管理控制面板</b> <br>")
response.Write(" <BR>")
response.Write(" 官方网站：<a href=""http://www.aspease.com"" target=""_blank"">http://www.aspease.com</a><br>")
response.Write(" 常见问题：<a href=""http://www.aspease.com/faq"" target=""_blank"">http://www.aspease.com/faq</a><br>")
response.Write(" </p>")
response.Write("请在此页的左侧选择您要进行管理的链接。</td>")
response.Write("</tr>")
response.Write("</table>")
response.Write("<table cellpadding=""2"" cellspacing=""1"" border=""0"" width=""95%"" class=""tableBorder"" align=center>")
response.Write("<tr>")
response.Write(" <th class=""tableHeaderText"" colspan=2 height=25>系统信息统计</th>")
response.Write(" <tr>")
response.Write("<tr>")
response.Write("<td width=""50%"" class=""Row"" height=23>服务器类型：")
response.Write(Request.ServerVariables("OS"))
response.Write("(IP:")
response.Write(Request.ServerVariables("LOCAL_ADDR"))
response.Write(")</td>")
response.Write("<td width=""50%"" class=""Row"">脚本解释引擎：")
response.Write(ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion )
response.Write("</td>")
response.Write("</tr>")
response.Write("<tr>")
response.Write("<td width=""50%"" class=""Row"" height=23>站点物理路径：")
response.Write(request.ServerVariables("APPL_PHYSICAL_PATH"))
response.Write("</td>")
response.Write("<td width=""50%"" class=""Row"">数据库地址：")
response.Write(server.mappath(db))
response.Write("</td>")
response.Write("</tr>")
response.Write("<tr>")
response.Write("<td width=""50%"" class=""Row"" height=23>FSO文本读写：")
If Not IsObjInstalled(theInstalledObjects(9)) Then
response.Write("<font color=""red""><b>×</b></font>")
else
response.Write("<b>√</b>")
end if
response.Write("</td>")
response.Write("<td width=""50%"" class=""Row"">数据库使用：")
If Not IsObjInstalled(theInstalledObjects(10)) Then
response.Write("<font color=""red""><b>×</b></font>")
else
response.Write("<b>√</b>")
end if
response.Write("</td>")
response.Write("</tr>")
response.Write("<tr>")
response.Write("<td width=""50%"" class=""Row"" height=23>Jmail组件支持：")
If Not IsObjInstalled(theInstalledObjects(13)) Then
response.Write("<font color=""red""><b>×</b></font>")
else
response.Write("<b>√</b>")
end if
response.Write("</td>")
response.Write("<td width=""50%"" class=""Row"">CDONTS组件支持：")
If Not IsObjInstalled(theInstalledObjects(14)) Then
response.Write("<font color=""red""><b>×</b></font>")
else
response.Write("<b>√</b>")
end if
response.Write("</td>")
response.Write("</tr>")
response.Write("</table>")
response.Write("<p></p>")
response.Write("<table cellpadding=""2"" cellspacing=""1"" border=""0"" width=""95%"" class=""tableBorder"" align=center>")
response.Write(" <form name=searchuser method=post action=""admin_user.asp?action=searchuser""> ")
response.Write(" <tr> ")
response.Write(" <th class=""tableHeaderText"" colspan=2 height=25>管理快捷方式</th>")
response.Write(" <tr> ")
response.Write(" ")
response.Write(" <tr> ")
response.Write(" <td width=""20%"" class=""Row"" height=23>快速查找用户</td>")
response.Write(" <td width=""80%"" class=""Row""> ")
response.Write(" <input type=""text"" name=""username"" size=""30"">")
response.Write(" <input type=""submit"" name=""submit"" value=""立刻查找""> ")
response.Write(" <input type=""hidden"" name=""searchMax"" value=100> ")
response.Write(" </td>")
response.Write(" </tr>")
response.Write(" <tr> ")
response.Write(" <td width=""20%"" class=""Row"" height=23>有用的链接</td>")
response.Write(" <td width=""80%"" class=""Row"">")
response.Write(" <select onchange=""jumpto(this.options[this.selectedIndex].value)"">")
response.Write(" <option>>> 有用的链接 <<</option>")
response.Write(" <option value=""http://www.aspease.com/"">动易网络</option>")
response.Write(" <option value=""http://www.aspease.com/bbs/"">技术支持论坛</option>")
response.Write(" <option value=""http://www.aspease.com/faq/"">动易拍卖系统FAQ</option>")
response.Write(" </select>")
response.Write(" </td>")
response.Write(" </tr>")
response.Write(" <tr> ")
response.Write(" <td width=""20%"" class=""Row"" height=23>快捷功能链接</td>")
response.Write(" <td width=""80%"" class=""Row""><a href=admin_cat.asp>添加拍卖类别</a> | <a href=admin_news.asp>管理公告版面</a></td>")
response.Write(" </tr></form>")
response.Write("</table>")
response.Write("<script language='javascript'> function jumpto(url) { if (url != '') { window.open(url); } } </script>")
response.Write("<p></p>")
response.Write("<table cellpadding=""2"" cellspacing=""1"" border=""0"" width=""95%"" class=""tableBorder"" align=center>")
response.Write(" <tr> ")
response.Write(" <th class=""tableHeaderText"" colspan=2 height=25>程序开发</th>")
response.Write(" <tr> ")
response.Write(" <tr> ")
response.Write(" <td width=""20%"" class=""Row"" height=23>开发人员</td>")
response.Write(" <td width=""80%"" class=""Row""><a href=""http://www.aspease.com/bbs/dispuser.asp?name=byhu"" target=_blank>刘朝朝</a>（联系：QQ:124091626，byhucn@126.com） ")
response.Write(" </td>")
response.Write(" </tr>")
response.Write(" <tr> ")
response.Write(" <td width=""20%"" class=""Row"" height=23>美工设计</td>")
response.Write(" <td width=""80%"" class=""Row""> <font color=gray>暂无</font> </td>")
response.Write(" </tr>")
response.Write("</table>")
response.Write("<div align=""center""><BR>")
response.Write(" Copyright © 2003-2008 <a href=http://www.aspease.com target=""_blank""><font face=Verdana, Arial, Helvetica, sans-serif size=1><b>AspEase<font color=#CC0000>.Com</font></b></font></a>. ")
response.Write(" All Rights Reserved .<br>")
response.Write("</div>")
end sub
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
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: byhucn@126.com,lzz9812@163.com
'=========================================================
'
'FileName: admin_main.asp
'Version:2.0
'UpdateTime: 2004-10-7 15:24:47
'Script Written by www.aspease.com
'=========================================================%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -