📄 i_login.asp

📁 企业管理系统,黑色风格
💻 ASP
字号:
<!--#include file="../inc/conn.asp" -->
<!--#include file="../inc/functions.asp" -->
<!--#include file="../inc/jmail.asp" -->
<!--#include file="../inc/md5.asp" -->
<%
dim url,mode
dim login_user,login_pwd,login_scode,rs
url=request.servervariables("URL")
mode=trim(request("mode"))
if mode="chk" then  
      login_user=replace(trim(request.Form("user")),"'","")
      login_pwd=replace(trim(Request.Form("pwd")),"'","")
	  login_scode=request("CheckCode")
      if login_user="" or login_pwd="" or login_scode="" then
        Response.write "<script>alert('未填写完整！');history.back();</script>"
        Response.End()
      end if
	  if login_scode<>Session("CheckCode") then
        Response.write "<script>alert('验证码错误！');history.back();</script>"
        Response.End()
      end if
    set rs=conn.execute("select * from data_admin where name='"&login_user&"' and pwd='"&md5(login_pwd,32)&"'")
	if not rs.eof then
	session("login_id")=rs("id")
    session("login_user")=rs("name")
    else
	Response.write "<script>alert('用户名或密码错误！');history.back();</script>"
	Response.End()
	end if
end if

if session("login_user")="" then
dim Query_form_name
response.write("<HTML>" & vbcrlf)
response.write("<HEAD>" & vbcrlf)
response.write("<META http-equiv=Content-Type content=""text/html; charset=utf-8"">" & vbcrlf)
response.write("<TITLE>网站管理系统（Bird CMS）</TITLE>" & vbcrlf)
response.write("<style type=""text/css"">" & vbcrlf)
response.write("body {" & vbcrlf)
response.write("	margin-left: 0px;" & vbcrlf)
response.write("	margin-top: 0px;" & vbcrlf)
response.write("	margin-right: 0px;" & vbcrlf)
response.write("	margin-bottom: 0px;" & vbcrlf)
response.write("}" & vbcrlf)
response.write("INPUT {" & vbcrlf)
response.write("	BORDER-RIGHT: #365fb3 1px solid; BORDER-TOP: #365fb3 1px solid; BACKGROUND-IMAGE: url(images/input_bg.gif); BORDER-LEFT: #365fb3 1px solid; COLOR: #C2BDBD; BORDER-BOTTOM: #365fb3 1px solid" & vbcrlf)
response.write("}" & vbcrlf)
response.write("TD {" & vbcrlf)
response.write("	TABLE-LAYOUT: fixed; FONT-SIZE: 12px; WORD-BREAK: break-all; LINE-HEIGHT: 1.5; FONT-FAMILY:Arial, Helvetica, sans-serif" & vbcrlf)
response.write("}" & vbcrlf)
response.write("a {" & vbcrlf)
response.write("color:#365fb3;text-decoration:none;" & vbcrlf)
response.write("}" & vbcrlf)
response.write(".submit {" & vbcrlf)
response.write("	BORDER-RIGHT: black 0px solid; BORDER-TOP: black 0px solid; MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; MARGIN-LEFT: 0px; VERTICAL-ALIGN: top; BORDER-LEFT: black 0px solid; WIDTH: 67px; COLOR: #ffffff; BORDER-BOTTOM: black 0px solid; HEIGHT: 21px; BACKGROUND-COLOR: #6685C6" & vbcrlf)
response.write("}" & vbcrlf)
response.write("</style>" & vbcrlf)
response.write("</HEAD>" & vbcrlf)
response.write("<BODY bgColor=#6789cd scroll=no>" & vbcrlf)
response.write("<TABLE height=""100%"" cellSpacing=0 cellPadding=0 width=800 align=center " & vbcrlf)
response.write("border=0>" & vbcrlf)
response.write("  <TBODY>" & vbcrlf)
response.write("  <TR>" & vbcrlf)
response.write("    <TD align=middle>" & vbcrlf)
response.write("      <TABLE class=table2 height=435 cellSpacing=0 cellPadding=0 width=800 " & vbcrlf)
response.write("      border=0>" & vbcrlf)
response.write("        <TBODY>" & vbcrlf)
response.write("        <TR>" & vbcrlf)
response.write("          <TD vAlign=top align=left background=""images/login_bg.gif"">" & vbcrlf)
response.write("            <TABLE height=435 cellSpacing=0 cellPadding=0 width=""100%"" " & vbcrlf)
response.write("              border=0><TBODY>" & vbcrlf)
response.write("              <TR>" & vbcrlf)
response.write("                <TD valign=""top""><div style=""padding-left:470px; margin-top:160px;"">" & vbcrlf)
response.write("                  <TABLE cellSpacing=0 cellPadding=5 border=0>" & vbcrlf)
response.write("                    <FORM name=""form1"" action="""&url&""" method=""post"">" & vbcrlf)
response.write("                    <input type=""hidden"" name=""mode"" value=""chk"">" & vbcrlf)
if request.QueryString<>"" then
FOR EACH Query_form_name IN Request.QueryString
response.Write("<input type=""hidden"" name="""&Query_form_name&""" value="""&LCase(request.QueryString(Query_form_name))&""">" & vbcrlf)
NEXT
End if
response.write("                      <TBODY>" & vbcrlf)
response.write("                        <TR>" & vbcrlf)
response.write("                          <TD align=right height=19>用户名：</TD>" & vbcrlf)
response.write("     <TD align=left><INPUT id=user maxLength=30 name=""user""  style=""width:120px;""></TD>" & vbcrlf)
response.write("                        </TR>" & vbcrlf)
response.write("                        <TR>" & vbcrlf)
response.write("                          <TD align=right>密&nbsp;&nbsp;&nbsp;&nbsp;码：</TD>" & vbcrlf)
response.write("    <TD align=left><INPUT id=pwd type=password maxLength=30  name=""pwd"" style=""width:120px;""></TD>" & vbcrlf)
response.write("                        </TR>" & vbcrlf)
response.write("                        <TR align=middle>" & vbcrlf)
response.write("                          <TD align=right>验证码：</TD>" & vbcrlf)
response.write("                          <TD align=left><INPUT id=CheckCode " & vbcrlf)
response.write("                                type=""text"" maxLength=4 size=5 " & vbcrlf)
response.write("                                name=CheckCode>" & vbcrlf)
response.write("                            <img src=""../inc/GetCode.asp""></TD>" & vbcrlf)
response.write("                        </TR>" & vbcrlf)
response.write("                        <TR align=middle>" & vbcrlf)
response.write("                          <TD height=""35"" colSpan=2 align=center><INPUT class=submit type=submit value="" 登 录 "" name=tj>" & vbcrlf)
response.write("                            <INPUT name=re type=reset class=submit id=""re"" value="" 重 置 ""></TD>" & vbcrlf)
response.write("                        </TR>" & vbcrlf)
response.write("                      </TBODY>" & vbcrlf)
response.write("                    </FORM>" & vbcrlf)
response.write("                  </TABLE>" & vbcrlf)
response.write("                </div></TD></TR>" & vbcrlf)
response.write("           " & vbcrlf)
response.write("              <TR>" & vbcrlf)
response.write("                <TD align=center height=50><FONT color=#365fb3><font color=""#ff0000"">大乌蒙网</font>" & vbcrlf)
response.write("				 Powered by <a href=""http://www.dawum.cn/"" target=""_blank"">www.dawum.cn</a></FONT></TD>" & vbcrlf)
response.write("</TR></TABLE></TD></TR></TABLE></TD></TR></TBODY></TABLE></BODY></HTML>" & vbcrlf)
response.end()
end if
%>
⌨️ 快捷键说明

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