admin_login.asp

来自「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」· ASP 代码 · 共 152 行

ASP
152 行
字号 
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<%

  Select Case Request("GetKey")
    Case "ChkLogin"

	  ChkLogin
	Case Else
	  Login
  End Select


Sub ChkLogin

    If Not ChkPost Then
	  Response.Redirect "index_Body.asp"
	  Response.End
	End If

	If CheckStr(Request.Form("login_name"))="" Then
      Response.Redirect "index_Body.asp"
	  Response.End
	End If

	If CheckStr(Request.Form("login_pwd"))="" Then
	  Response.Redirect "index_Body.asp"
	  Response.End
	End If	


   Dim UserName,Password
	  UserName=CheckStr(Request.Form("login_name"))
	  Password=CheckStr(Request.Form("login_pwd"))
	  
	 Dim mRs
	   
	    Set mRs=Server.CreateObject("Adodb.RecordSet")
		Set mRs=Conn.Execute("Select adminpwd From m_admin Where adminuser='"&UserName&"' Order By ID Desc")
		If mRs.Eof Then
		  Set mRs=Nothing
		  Response.Redirect "index_Body.asp"
	      Response.End
		End If

		If mRs("adminpwd")<>Password Then
		  Set mRs=Nothing
		  Response.Redirect "index_Body.asp"
	      Response.End
		End If
        Dim TrueIP
		TrueIP=Cstr(Request.ServerVariables("REMOTE_ADDR"))
		Session("Sk2Admin")=UserName
		
		'Session.Timeout=60
		Set mRs=Conn.Execute("Update m_admin Set adminlogintime=GetDate(),adminloginip='"&TrueIP&"' Where adminuser='"&UserName&"'")
		Set mRs=Nothing
		
		Response.Redirect "Index_Body.Asp"
        Response.End
End Sub

Sub Login
%>
<HTML><HEAD><TITLE>WELCOME</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<SCRIPT language=JavaScript type=text/JavaScript>
<!--

function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}

//-->
</SCRIPT>
<LINK href="images/mem_index.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2900.2873" name=GENERATOR></HEAD>
<STYLE type=text/css>.login {
	BORDER-RIGHT: #d1d1d1 1px solid; BORDER-TOP: #d1d1d1 1px solid; FONT-SIZE: 12px; BORDER-LEFT: #d1d1d1 1px solid; BORDER-BOTTOM: #d1d1d1 1px solid; FONT-FAMILY: "宋体"
}
.font {
	FONT-SIZE: 12px; FONT-FAMILY: "宋体"; TEXT-DECORATION: none
}
</STYLE>

<STYLE type=text/css>.form {
	BORDER-RIGHT: #999999 1px solid; BORDER-TOP: #999999 1px solid; FONT-SIZE: 12px; BORDER-LEFT: #999999 1px solid; BORDER-BOTTOM: #999999 1px solid; FONT-FAMILY: "宋体"
}
</STYLE>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 background=../img/back.gif>
<TABLE height="100%" cellSpacing=1 width="100%" border=0>
  <TBODY>
  <TR>
    <TD>
      <TABLE class=login height=389 cellSpacing=10 cellPadding=0 width="70%" 
      align=center bgColor=#f3f3f3 border=0>
        <TBODY>
        <TR>
          <TD class=login bgColor=#ffffff height=369>
            <FORM name=login action=Admin_Login.Asp?GetKey=ChkLogin method=post>
            <TABLE cellSpacing=0 cellPadding=0 width=574 align=center 
              border=0><TBODY>
              <TR>
                <TD width=27><IMG height=300 
                  src="../img/login_main_02.gif" width=162></TD>
                <TD vAlign=top width=547>
                  <TABLE cellSpacing=0 cellPadding=0 width=412 border=0>
                    <TBODY>
                    <TR>
                      <TD><IMG height=116 src="../img/login_main_031.gif" 
                        width=412></TD>
                    </TR>
                    <TR>
                      <TD background=../img/login_main_05.gif height=65>
                        <TABLE cellSpacing=0 cellPadding=0 width=350 
                        align=center border=0>
                          <TBODY>
                          <TR>
                            <TD class=font width=69>
                              <DIV align=right>用户名：</DIV></TD>
                            <TD width=106><INPUT name=login_name class=form id="login_name" tabIndex=1 size=15 
                              maxLength=20></TD>
                            <TD width=175 rowSpan=2><INPUT type=hidden 
                              value=Login name=Action> <INPUT tabIndex=3 
                              type=image height=47 width=125 
                              src="../img/login_main_09.gif" border=0 
                              name=image></TD></TR>
                          <TR>
                            <TD class=font>
                              <DIV align=right>密　码：</DIV></TD>
                            <TD><INPUT 
                        name=login_pwd type=password class=form id="login_pwd" tabIndex=2 size=15 
                              maxLength=20></TD></TR>
                          <TR>
                            <TD class=font>&nbsp;</TD>
                            <TD>&nbsp;</TD>
                            <TD>&nbsp;</TD>
                          </TR>
                          </TBODY></TABLE></TD></TR>
                    <TR>
                      <TD><IMG height=119 src="../img/login_main_041.gif" 
                        width=412 useMap=#MapMapMapMapMapMap 
                    border=0></TD>
                    </TR></TBODY></TABLE></TD></TR></TBODY></TABLE></FORM></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>

<map name="MapMapMapMapMapMap">
<area shape="rect" coords="56,8,141,27" href="../index.asp">
</map></BODY></HTML>
<%
End Sub
%>

admin_login.asp - 源码说明

本页面展示了「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」中的 admin_login.asp 源码文件，采用 ASP 编程语言编写，共 152 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与mysql相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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