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

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

Dim PageTitle
PageTitle = "管理登录"
%>
<HTML>
<HEAD>
<TITLE> <%=PageTitle & " [" & Cfg.SysName & " " & Cfg.SysVersion & "]"%> </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<script src="inc/PageList.js"></script>
<link href="css/style.css" rel="stylesheet" type="text/css">
</HEAD>

<BODY>
<%
Call Book_Top_Banner()
Call Book_Top_Title()
%>
<TABLE bgcolor="#FFFFFF" height="200" width="778" border="0" cellspacing="0" cellpadding="0" align="center">
<TR>
	<TD>
		<TABLE width="40%" border="0" cellspacing="0" cellpadding="0" align="center">
		<Form Method="Post" Action="Manage_Process.asp?action=Login">
		<TR>
			<TD width="30%" height="25">用户名：</TD>
			<TD width="70%"><INPUT TYPE="text" NAME="UserName"></TD>
		</TR>
		<TR>
			<TD width="30%" height="25">密码：</TD>
			<TD width="70%"><INPUT TYPE="password" NAME="PassWord"></TD>
		</TR>
		<TR>
			<TD colspan="2" align="center" height="30"><INPUT Name="提交" Value="提 交" TYPE="submit">&nbsp;&nbsp;&nbsp;<INPUT Name="重置" Value="重  置" TYPE="reset"></TD>
		</TR>
		</Form>
		</TABLE>
	</TD>
</TR>
</TABLE>
<%
Call Book_Bottom_CopyRight()
%>
<%
Set Cfg = Nothing
%>
</BODY>
</HTML>