efault.asp 翼动留言板 2.1源码程序 - ASP源码程序

www.gusucode.com > 翼动留言板 2.1源码程序 > Default.asp
    <%
Option Explicit
'************************************************************************************
'开发组		翼动工作室
'姓名		郑景德
'网名		旭日
'QQ			3178920
'个人网站		http://www.wingroom.com
'本页：
		'留言本系统首页
'
'************************************************************************************
%>
<!--#include file="inc/config.asp"-->
<!--#include file="inc/DBControl.asp"-->
<!--#include file="inc/Function.asp"-->
<!--#include file="inc/ubbcode.asp"-->
<!--#include file="inc/FileInclude.asp"-->
<%
Dim Cfg,Db,Flib,FUbb
Set Cfg = New Config
Set Db = New DBControl
Set FUbb = New FunctionUBB
Set Flib = New FunctionLib

Dim PageTitle
PageTitle = "首页"
%>
<HTML>
<HEAD>
<TITLE> <%=PageTitle & " [" & Cfg.SysName & " " & Cfg.SysVersion & "]"%> </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="<%=Cfg.SysAuthor%>">
<META NAME="Keywords" CONTENT="<%=Cfg.SysKeywords%>">
<META NAME="Description" CONTENT="<%=Cfg.SysDescription%>">
<script src="inc/PageList.js"></script>
<SCRIPT LANGUAGE="JavaScript">
<!--
	function LinkAsk(){
		if(confirm('确定要执行此操作吗？'))
			return true;
		else
			return false;
	}
//-->
</SCRIPT>
<link href="css/style.css" rel="stylesheet" type="text/css">
</HEAD>

<BODY>
<%
Call Book_Top_Banner()
Call Book_Top_Title()
Call Book_Msg_List()
Call Book_Bottom_CopyRight()
%>
<%
Set Cfg = Nothing
Set Db = Nothing
Set Flib = Nothing
%>
</BODY>
</HTML>