📄 login.asp

📁 ASP+sql 组成的系统．功能强大
💻 ASP
字号:
<%@ Language=VBScript %>
<!--#Include File="Class.asp"-->
<!--#Include File="ErrorClass.asp"-->
<% 
'此段声明表示遇到错误即跳到下一句
On Error Resume Next
Dim UserName
Dim PassWord1
Dim dbc_Class,user_Class

If getForm() = 1 Then
	Set user_Class = New UserClass
	Set error_Class = New ErrorClass
	If user_Class.checkUser(UserName,PassWord1) = 1 Then
		error_Class.Founderr = False
		error_Class.Message = "登录成功"
		Response.Redirect ("ViewAllCom.asp")
	Else
		error_Class.Founderr = True
		error_Class.Message = "登录失败"
		Call error_Class.showMessage("Login.asp","失败",2,1)
	End If	
End If

'功能：取得用户输入的用户名和密码
Function getForm()	
	UserName = trim(Request.Form("username1"))
	PassWord1 = trim(Request.Form("password1"))
	If UserName<>"" And PassWord1<>"" Then
		getForm = 1
	Else
		getForm = 0
	End If
	
End Function

%>
<HTML>
	<HEAD>
		<meta name="GENERATOR" Content="Microsoft Visual Studio .NET 7.1">
		<link rel="stylesheet" type="text/css" href="style.css">

	</HEAD>
	<body>
		<FONT face="宋体"></FONT>
		<br>
		<br>
		<br>
		<table width="80%" align="center" ID="Table1" border="0">
			<tr>
				<td align="left" width="10%"></td>
				<td align="center" width="80%"><FONT size="5" color="#ffffff"><STRONG>物资管理系统</STRONG></FONT>
				</td>
				<td width="10%"></td>
			</tr>
		</table>
		<br>
		<hr width="60%" SIZE="1">
		<br>
		<br>
		<br>
		<div align="center">
			<form id="Form1" method="post" action="Login.asp">
				<table width="400" border="0" ID="Table2" class="style8">
					<tr>
						<td width="10%"></td>
						<td><IMG src="image/view.gif" width="50" height="40"></td>
						<td><INPUT id="username1" type="text" name="username1" class="style0"></td>
						<td width="10%"></td>
					</tr>
					<tr>
						<td width="10%"></td>
						<td><IMG src="image/key.gif" width="50" height="50"></td>
						<td><INPUT id="password1" type="password" name="password1" class="style0"></td>
						<td width="10%"></td>
					</tr>
					<tr>
						<td align="center" colSpan="4">
							<hr size="1">
							<INPUT id="Submit1" type="submit" value="提 交" name="Submit1" class="style8"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
							<INPUT id="Reset1" type="reset" value="重 置" name="Reset1" class="style8">
						</td>
					</tr>
				</table>
			</form>
			<br>
			<br>
			<br>
			<hr width="60%" color="#666666" size="1">
			<P align="center"><FONT size="2" color="white">程序设计——<A href="mailto:ymhdhlf@163.com">黄 雷</A></FONT></P>
		</div>
	</body>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -