index.asp

这是一套基于WEB的网站管理系统

<!--#include file="config.asp"-->
<!--#include file="check.asp"-->
<!--#include file="../inc/classmenu.asp"-->
<%
'=====================================================================
' 软件名称：新云网站管理系统
' 当前版本：NewCloud Site Manager System Version 2.0.0
' 文件名称：index.asp
' 更新日期：2004-11-20
'=====================================================================
' 产品咨询：Tel：[phone]，QQ：94022511，Email：[e-mail]
' 程序开发：新云软件开发组
' 论坛支持：新云论坛(http://bbs.newasp.net)
' 官方网站：www.newasp.net  www.newasp.cn
'=====================================================================
' Copyright 2002-2005 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Dim HtmlContent,ChannelRootDir
ChannelRootDir = Newasp.InstallDir & "user/"
Newasp.LoadTemplates 9999, 4, 0

HtmlContent = Newasp.HtmlContent
HtmlContent = Replace(HtmlContent,"{$InstallDir}", Newasp.InstallDir)
HtmlContent = Replace(HtmlContent, "{$ChannelID}", 0)
'--频道目录
HtmlContent = Replace(HtmlContent,"{$ChannelRootDir}", ChannelRootDir)
HtmlContent = Replace(HtmlContent,"{$PageTitle}","用户登录")
HtmlContent = ReadClassMenu(HtmlContent)
HtmlContent = ReadClassMenubar(HtmlContent)
Response.Write HtmlContent
CloseConn
%>