📄 gly.asp

📁 基于WEB页面的新闻发布系统+毕业论文:实现新闻的显示

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="cn.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理员登陆</title>
<style type="text/css">
<!--
body {
	background-color: #33CCFF;
}
.style1 {
	font-size: 24px;
	font-weight: bold;
}
.style2 {
	font-size: 18px;
	font-weight: bold;
	font-style: italic;
}
-->
</style></head>

<body>
<p>&nbsp;</p>
<%
user=trim(request.Form("user"))
pwd=trim(request.Form("pwd"))
if user<>"" and pwd<>"" then
	strsql="select * from [user] where [user]='"&user&"'"
	set rs=cn.execute(strsql)
	if rs.eof then
		response.Write("用户名或密码错误!")
	else
		if rs("pass_word")=pwd then
			session("user")=rs("user")
			response.Redirect("main.html")
		else
			response.Write("用户名或密码错误!")
		end if	
	end if
end if
%>
<p>&nbsp;</p>
<form name="form1" method="post" action="">
  <p align="center" class="style1"> 管理员登陆</p>
  <p align="center" class="style1">帐 号：
    <input name="user" type="text" class="style1" size="10">
  </p>
  <p align="center" class="style1">密 码：
    <input name="pwd" type="password" class="style1" size="10">
  </p>
  <p align="center">
    <input name="Submit" type="submit" class="style1" value="提交">
  </p>
</form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -