📄 logincheck.asp

📁 基于ASP的查询搜索源代码文件利用ASP对ACCESS数据库进行搜索
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="DQE_Conn.asp"-->
<!--#include file="md5.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>欢迎使用星旧新闻发布系统V1.0</title>
<style type="text/css">
<!--
.kuang {	border: 1px solid #636EA2;
	background-color: #FFFFFF;
}
.shang {	border-top-width: 1px;
	border-top-style: solid;
	border-top-color: #636EA2;
	border-right-color: #636EA2;
	border-bottom-color: #636EA2;
	border-left-color: #636EA2;
}
.style1 {	color: #FFFFFF;
	font-weight: bold;
}
body,td,th {
	font-family: 宋体;
	font-size: 9pt;
	color: #333333;
}
a:link {
	color: #333333;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #333333;
}
a:hover {
	text-decoration: underline;
	color: #6600FF;
}
a:active {
	text-decoration: none;
	color: #333333;
}
-->
</style>
</head>

<body>
     <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
       <tr>
         <td class="kuang"><p>&nbsp;</p>
             <table width="400" border="0" align="center" cellpadding="0" cellspacing="0" class="kuang">
               <tr background="images/2.jpg">
                 <td height="30" bgcolor="#A07AD1"><div align="center" class="style1">欢迎使用星旧新闻发布系统V1.0</div></td>
               </tr>
               <tr>
                 <td height="20"><br>
                     <table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0" class="kuang">
                       <tr>
                         <td height="20" bgcolor="#F2EFF8">&nbsp;</td>
                       </tr>
                       <tr>
                         <td height="60" class="shang">
	 <% if request.QueryString("dongzuo")="loginout" then
	 Session("adminLevel")=null
	Session("adminname")=null
	Session("adminzsname")=null
	response.Redirect(loginURL)
	end if
	 %>
<%
dim aspname,asppassword
    aspname=Request.Form("name")
	asppassword=Request.Form("password")
   	set rs=server.CreateObject("ADODB.RECORDSET")
	'sql="select * from admin where DQEname='"&aspname&"'"
	sql="select * from admin where DQEname='"+aspname+"'"
	rs.open sql,conn,1,1 
	%>
	<% If  rs.eof Then  Response.Write("用户名不存在")  End If%>
	<% 
	if not rs.eof then
	dim Admin_Pass_Word
	Admin_Pass_Word=md5(asppassword,16)+"wr72bf13"
	if  rs("DQEpassword")=Admin_Pass_Word then
	Session("adminLevel")=10
	Session("adminname")=aspname
	Session("adminzsname")=rs("DQEzsname")
	Session("adminquanxian")=rs("DQEquanxian")
	response.Redirect(houtaiURL)
	else	
	Response.Write("密码错误请重新输入   <a href='"+loginURL+"'>返回重新输入</a>")
	End If	
	End If	
	rs.close
	set rs = nothing
	%></td>
                       </tr>
                     </table>
                     <br></td>
               </tr>
             </table>
             <p>&nbsp;</p></td>
       </tr>
     </table>
</body>
</html>
⌨️ 快捷键说明

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