📄 admin_index.asp
字号:
<a onclick="Goto('Admin_Template.asp')" style="cursor:hand"><b><font color="#ffffff">模板管理</font></b></a>
<%end if%>
<%if Cl.TrueOtherPurview("Channel") then%>
<a onclick="Goto('Admin_Channel.asp')" style="cursor:hand"><b><font color="green">频道管理</font></b></a>
<%end if%>
<%if Cl.TrueOtherPurview("ModifyPwd") then%>
<a onclick="Goto('Admin_ModifyPwd.asp')" style="cursor:hand"><b><font color="#ffffff">修改密码</font></b></a>
<%end if%>
<a onclick="Goto('../User/User_Message.asp')" style="cursor:hand"><b><font color="#ffffff">查看短信</font></b></a>
<a onclick="Goto('Admin_Index.asp?action=admin_main')" style="cursor:hand"><b><font color="#ffffff">管理首页</font></b></a>
<a onclick="UGoto('Admin_Logout.asp')" style="cursor:hand"><b><font color="#ffffff">退出后台</font></b></a>
<%if Cl.Admin_Purview(0)="1" then%>
<a onclick="Goto('Admin_Cache.asp')" style="cursor:hand"><b><font color="#ffffff">缓存管理</font></b></a>
<%end if%></td>
<td width="30"> </td>
</tr>
</table>
</td>
</tr>
</table>
<div id="ShowPack" style="display:none">
<script src="<%=PackJs%>" language="JavaScript" type="text/javascript"></script>
</div>
<script language="JavaScript" type="text/javascript">
document.getElementById("Cl_Pack").innerHTML=document.getElementById("ShowPack").innerHTML;
</script>
</body>
</html>
<%
End Sub
Sub admin_main()
Dim theInstalledObjects(18)
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) = Trim(Cl.Web_Info(13))
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"
theInstalledObjects(18) = "Adodb." & "Str" & "eam"
Header
%>
<table cellpadding="2" cellspacing="1" border="0" class="border" align="center">
<tr align="center">
<td height="25" colspan="2" class="title"><strong>服 务 器 信 息 检 测</strong></tr>
<tr><td class="title2" height="23" colspan="2">欢迎您使用 <a href="http://www.aspoo.com" target="_blank"><font face="Verdana, Arial, Helvetica, sans-serif"><b>创力网站管理系统(CreateLive CMS)</b></font></a><font face="Verdana, Arial, Helvetica, sans-serif" color="#0000ff"><b>
<%
Select Case SysTemVersion
Case 0
if IsSqlDataBase=1 Then
Response.write "普及版"
else
Response.write "免费版"
End if
Case 1 : Response.write "个人版"
Case 2 : Response.write "标准版"
Case 3 : Response.write "专业版"
Case 4 : Response.write "高级版"
Case Else : Response.write "高级专用版"
End Select
%></b></font>，当前数据库类型为<font face="Verdana, Arial, Helvetica, sans-serif"><b><%
if IsSqlDataBase=1 then
Response.Write " MS SQL Server"
Else
Response.Write " MS Access"
End if%></b></font></td></tr>
<tr class="tdbg">
<td width="100%" height="23" colspan="2">当前使用版本：<font face="Verdana, Arial, Helvetica, sans-serif"><b><%=ClCMS_Version%>.<%=Right(Cl.SysTemUpDate,4)%></b></font></td>
</tr>
<tr class="tdbg2">
<td width="100%" height="23" colspan="2">官方最新版本：<font face="Verdana, Arial, Helvetica, sans-serif" ID="AspooNew">正在获取创力官方最新版本数据，请稍候……</font></td>
</tr>
<tr class="tdbg">
<td width="100%" height="23" colspan="2">站点物理路径：<font color="blue"><%=request.ServerVariables("APPL_PHYSICAL_PATH")%></font></td>
</tr>
<tr class="tdbg2">
<td width="50%" height="23">服务器类型：<%=GetSysOS%></td>
<td width="50%">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr class="tdbg">
<td width="50%" height="23">服务器端口：<%=Request.ServerVariables("SERVER_PORT")%> IP：<%=Request.ServerVariables("LOCAL_ADDR")%></td>
<td width="50%" height="23">服务器IIS版本：<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr class="tdbg2">
<td width="50%">数据库使用：
<%If Not Cl.ChkObjInstalled(theInstalledObjects(10)) Then%>
<font color="red"><b>×</b></font>
<%else%>
<font color="green"><b>√</b></font>
<%end if%></td>
<td width="50%" height="23">AspJpeg生成预览图片：
<%If Not Cl.ChkObjInstalled("Persits.Jpeg") Then%>
<font color="red"><b>×</b></font>
<%else%>
<font color="green"><b>√</b></font>
<%end if%></td>
</tr>
<tr class="tdbg">
<td width="50%" height="23">FSO文本读写：
<%If Not Cl.ChkObjInstalled(theInstalledObjects(9)) Then%>
<font color="red"><b>×</b></font>
<%else%>
<font color="green"><b>√</b></font>
<%end if%></td>
<td width="50%">无组件上传：
<%If Not Cl.ChkObjInstalled(theInstalledObjects(18)) Then%>
<font color="red"><b>×</b></font>
<%else%>
<font color="green"><b>√</b></font>
<%end if%> <a href="Admin_Data.asp?Action=ServerInfo">查看更详细的服务器信息>>></a></td>
</tr>
</table>
<br />
<table cellpadding="2" cellspacing="1" border="0" class="border" align="center">
<tr>
<td colspan="2" class="title">快 速 管 理 通 道</td>
</tr>
<tr>
<td width="15%" align="right" class="tdbg"><strong>模板风格管理</strong>：</td>
<td align="left" class="tdbg">
<a href="Admin_TempLate.asp" target="main">模板管理</a> | <a href="Admin_Template.asp?action=cssmain" target="main">CSS管理</a> | <a href="Admin_LoadSkin.asp">网站模板导出</a> | <a href="Admin_LoadSkin.asp?action=load">网站模板导入</a> | <a href="Admin_LoadSkin.asp?action=OutputCss">风格CSS导出</a> | <a href="Admin_LoadSkin.asp?action=LoadCss">风格CSS导入</a></td>
</tr>
<tr>
<td width="15%" align="right" class="tdbg"><strong>系统信息管理</strong>：</td>
<td align="left" class="tdbg">
<a href="Admin_Channel.asp?Action=Add" target="main">频道添加</a> | <a href="Admin_Channel.asp" target="main">频道管理</a> | <a href="Admin_Setup.asp" target="main">基本信息配置</a> | <a href="Admin_Announce.asp" target="main">网站公告管理</a> | <a href="Admin_Special.asp" target="main">网站专题管理</a></td>
</tr>
<%
Dim rsLeft,sID,sModuleName,sItemName,sItemUnit,sChannelName
Select Case SysTemVersion
Case 0,1
SQL = "select ChannelID,ChannelName,ChannelItemName,ChannelItemUnit,ChannelDir,IsCreateHtml,ModuleID from Cl_Channel Where ModuleID Not In (0,4,5) and ChannelType<2 and IsDisabled=0 order by OrderID Asc,ChannelID Asc"
Case 2
SQL = "select ChannelID,ChannelName,ChannelItemName,ChannelItemUnit,ChannelDir,IsCreateHtml,ModuleID from Cl_Channel Where ModuleID Not In (0,5) and ChannelType<2 and IsDisabled=0 order by OrderID Asc,ChannelID Asc"
Case else
SQL = "select ChannelID,ChannelName,ChannelItemName,ChannelItemUnit,ChannelDir,IsCreateHtml,ModuleID from Cl_Channel Where ModuleID Not In (0) and ChannelType<2 and IsDisabled=0 order by OrderID Asc,ChannelID Asc"
End Select
Set rsLeft = Cl.Execute(sql)
If Not RsLeft.eof then
SQL = rsLeft.GetRows(-1)
For i=0 to Ubound(SQL,2)
sID = SQL(0,i) : sChannelName= SQL(1,i)
sItemName = SQL(2,i) : sItemUnit = SQL(3,i)
Select Case SQL(6,i)
Case 1:sModuleName = "Article"
Case 2:sModuleName = "Soft"
Case 3:sModuleName = "Photo"
Case 4:sModuleName = "Movie"
Case 5:sModuleName = "Product"
End Select
%>
<tr>
<td width="15%" align="right" class="tdbg"><strong><%=sChannelName%>管理</strong>：</td>
<td align="left" class="tdbg">
<a href="Admin_<%=sModuleName%>.asp?ChannelID=<%=sID%>&Action=Add" target="main">添加<%=sItemName%></a> | <a href="Admin_<%=sModuleName%>.asp?ChannelID=<%=sID%>" target="main"><%=sItemName%>管理</a> | <a href="Admin_<%=sModuleName%>.asp?ChannelID=<%=sID%>&Action=Special" target="main">专题<%=sItemName%>管理</a> | <a href="Admin_Class.asp?ChannelID=<%=sID%>&Action=Add" target="main"><%=sItemName%>栏目添加</a> | <a href="Admin_Class.asp?ChannelID=<%=sID%>" target="main"><%=sItemName%>栏目管理</a> | <a href="Admin_Create_Other.asp?ChannelID=<%=sID%>" target="main"><font color="blue">生成<%=sItemName%>站点地图</font></a>
</td>
</tr>
<%
Next
SQL=Empty
End If
Set rsLeft=Nothing
%>
</table>
<br />
<table cellpadding="2" cellspacing="1" border="0" class="border" align="center">
<tr>
<td colspan="2" class="title">创力网站管理系统(<%=ClCMS_Version%>)信息</td>
</tr>
<tr class="tdbg2">
<td width="15%" align="right" ><strong>开发团队：</strong></td>
<td align="left"> 梅傲风 GDW尼奥 画荣 无刀</td>
</tr>
<tr class="tdbg">
<td width="15%" align="right"><strong>特别感谢：</strong></td>
<td align="left"> 老胡 7K MCCAD 若非 小林 所有支持创力的朋友</td>
</tr>
<tr class="tdbg2">
<td width="15%" align="right"><strong>版权所有：</strong></td>
<td align="left"> 创力网 / 北京今日学易科技有限公司</td>
</tr>
<tr class="tdbg">
<td width="15%" align="right" rowspan="2"><strong>官方网站：</strong></td>
<td align="left"> 官方主页：<a href="http://www.aspoo.CN" target="_blank">http://www.aspoo.cn</a> <a href="http://www.aspoo.com" target="_blank">http://www.aspoo.com</a></td>
</tr>
<tr class="tdbg">
<td align="left"> 技术支持：<a href="http://bbs.aspoo.CN" target="_blank">http://bbs.aspoo.cn</a> <a href="http://bbs.aspoo.Com" target="_blank">http://bbs.aspoo.com</a></td>
</tr>
</table>
<div ID="AspooNewTxt" Style="Display:none"><script language="JavaScript" src="http://www.asp<%%>oo.Cn/ClSysTem/NewJs.asp" type="text/javascript"></script></div>
<script language="JavaScript" type="text/javascript">
<!--
document.getElementById("AspooNew").innerHTML=document.getElementById("AspooNewTxt").innerHTML;
//-->
</script>
<%
Footer
End Sub
Function GetSysOS()
on error resume next
Dim WshShell,WshSysEnv
Set WshShell = server.CreateObject("WScr" & "ipt" & "." & "Sh" & "ell")
Set WshSysEnv = WshShell.Environment("SYSTEM")
GetSysOS = cstr(WshSysEnv("OS"))
if Trim(Request.ServerVariables("OS"))="" then GetSysOS=GetSysOS & "(Windows Server 2003)"
End Function
%>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│ │
'│ CreateLive CMS Version 4.0 │
'│ Powered by Aspoo.CN │
'│ │
'│ 邮箱: support@aspoo.cn Info@aspoo.cn │
'│ ＱＱ: 3315263 596197794 │
'│ 网站: www.aspoo.cn www.aspoo.com │
'│ 论坛: bbs.aspoo.cn bbs.aspoo.com │
'│ │
'│ Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved. │
'└───────────────────────────────────────────────────────┘
'-->
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -