📄 chkmanagelogin.asp

📁 自己做的鞋业网站代码

💻 ASP

字号:

<%@ Language=VBScript%>
<% Response.Expires=0%>
<% Response.Buffer=TRUE%>
<!--#include file="conn.asp"--> 
<!--#include file="MD5.asp"-->
<%
dim  Oprtype 
Session("LogonSuccess")=0


    
function CheckPwd(uid,pwd) 
	MySQL="select * from admin where admin_name = '"&uid&"'"
	set rs= conn.Execute(MySQL)
	if NOT RS.EOF then      
	   if trim(RS("admin_pass")) = MD5(trim(pwd)) then
	       CheckPwd="0"
	   else
	       CheckPwd="1"
	   end if
	else 
	   CheckPwd="1"
	end if
    RS.Close()        
	Set RS=Nothing 
end function
 
OprID=Trim(Request.Form("UserID"))
Pwd=Trim(Request.Form("Password"))    

if OprID="" or CheckPwd(OprID,Pwd)="1" then   
%>
	<html>
	<head>
	<title>login</title>
	<meta http-equiv="Content-Type" content="text/html;">
	</head>
	<body bgcolor="#FFFFFF" text="#000000">
	<%
		  response.Write "<p>sorry,you account/password is incorrect,check back to relogin</p>"
		  response.Write "<p><a href=javascript:window.history.go(-1)>back</a></p>"
		  response.end
	%>
	<form name="form1" method="post" action="managerlogin.asp">
	<P align=center>
		   <input type="submit" name="Submit" value="Back to Login form"> 
	</P>
	</form>
	</body>
	</html>
<%      
else
    session("Op_ID")=OprID       
    Session("Logonsuccess")=1  
       Response.Redirect("manager.asp") 
end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -