📄 sql_login.asp

📁 后台地址：login.asp 管理员帐户：admin 密码：admin 数据库 Data/#23mn.cn.asp (电视电台数据) Data/Data_Admin.asp (管理信

💻 ASP

字号:

<%if request("action")="Login" or request("action")="" then%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台登陆</title>
<script language="JavaScript">
		   function Check()
		   {
		    var Sql_Name = window.document.Login.Sql_Name.value
			Sql_Pass = window.document.Login.Sql_Pass.value
			if (Sql_Name == "")
			{alert("请填写您的用户名")
			document.Login.Sql_Name.focus();
			return false;
			}
			if (Sql_Pass == "")
			{alert("请填写您的密码")
			document.Login.Sql_Pass.focus();
			return false
			}
			}
		   </script>
</head>

<body>

<table border="0" width="100%" cellspacing="0" cellpadding="0">
    <form name="Login" method="post" onSubmit="return Check()" action="Sql_Login.asp">
	<tr>
		<td align="center" width="100%">帐号:<input name="Sql_Name" type="Text" size="15"></td>
	</tr>
	<tr>
		<td align="center" width="100%">密码:<input name="Sql_Pass" type="Password" size="15"></td>
	</tr>
	<tr>
		<td align="center" width="100%"> 
          <input type="Submit" name="Submit"value="登录">
          <input type="Hidden" name="Action" value="Check">
          <input type="Reset" name="Reset" value="重写">
        </td>
	</tr>
	</form>
</table>

</body>

</html>

<%elseif request("action")="Check" then%>

<!--#include file = "Sql_Conn_Open.asp"-->
<!--#include file = "Sql_Md5.asp"-->

<%
Sql_Name = replace(replace(replace(replace(request("Sql_Name"),"'",""),"%",""),"*",""),"&","")
Sql_Pass = replace(replace(replace(replace(request("Sql_Pass"),"'",""),"%",""),"*",""),"&","")
Sql_Pass=md5(Sql_Pass)

sql="select * from Sql_Admin where Sql_Name='"&Sql_Name&"'"
set rs=conn.execute(sql)

 if not(rs.bof and rs.eof) then
 if Sql_Pass=rs("Sql_Pass") and Sql_Name=rs("Sql_Name") then
   Timeout=60
   Session("Sql_Admin")="admin"
   Session("Sql_Flag")=rs("Sql_Flag")
   response.redirect "Sql_Index.asp"

 else

 Response.write "<script language='javascript'>" & VbCRlf
 Response.write "alert('系统提示\n管理信息输入不正确！');" & VbCrlf
 Response.write "history.go(-1);" & vbCrlf
 Response.write "</script>" & VbCRLF
 Response.end 

end if
end if
%>

<%elseif request("Action")="Logout" then%>

<%
   Session("Sql_Admin")=""
   Session("Sql_Flag")=""
	Response.Redirect "../Login.asp"
%>

<!--#include file = "Sql_Conn_Close.asp"-->

<%end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -