888_login.asp
来自「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」· ASP 代码 · 共 177 行
ASP
177 行
<!--#include file="../manage/mConn.asp"-->
<!--#include file="../manage/mConst.asp"-->
<%
Select Case cstr(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 mRs1
Set mRs1=Server.CreateObject("Adodb.RecordSet")
Set mRs1=Conn.Execute("Select memed,login_name,Login_Pwd,Manager,(select agenttype from m_agent where login_name=a1.Manager) as subtype From m_reportuser as a1 Where Login_Name='"&UserName&"' Order By ID Desc")
If not mRs1.Eof then
if mRs1("login_name")=UserName and mRs1("Login_Pwd")=Password Then
TrueIP=Cstr(Request.ServerVariables("REMOTE_ADDR"))
Session("Sk2sub")=UserName
Session("Sk2B")=mRs1("Manager")
session("subtype")=mRs1("subtype")
Session("Sk2F")=mRs1("memed")
session("Sk2manager")=mRs1("Manager")
session.timeout=30
Response.Redirect "Index_sub.asp"
response.end
End If
end if
Dim mRs
Set mRs=Server.CreateObject("Adodb.RecordSet")
Set mRs=Conn.Execute("Select id,Login_Pwd,P_AgentID,stat,agenttype From m_agent Where Login_Name='"&UserName&"' Order By ID Desc")
Set mRs1=Server.CreateObject("Adodb.RecordSet")
Set mRs1=Conn.Execute("Select Login_Pwd,Manager From m_reportuser Where Login_Name='"&UserName&"' Order By ID Desc")
If not mrs.eof then
if mRs("stat") Then
Set mRs=Nothing
Response.Redirect "888_Login.Asp"
Response.End
End If
end if
If mRs.Eof Then
Set mRs=Nothing
Response.Redirect "index_Body.asp"
Response.End
End If
If Not mRs("Login_Pwd")=Password Then
Set mRs=Nothing
Response.Redirect "index_Body.asp"
Response.End
End If
Dim TrueIP
TrueIP=Cstr(Request.ServerVariables("REMOTE_ADDR"))
Session("Sk2B")=UserName
Session("Sk2F")=mRs("P_AgentID")
Session("stat")=mRs("stat")
session("agenttype")=mRs("agenttype")
session("agentid")=mRs("id")
session.timeout=30
Set mRs=Conn.Execute("Update m_agent Set Login_Time=GetDate(),Login_TrueIP='"&TrueIP&"' Where Login_Name='"&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>
<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>
<META content="MSHTML 6.00.2900.2873" name=GENERATOR></HEAD>
<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=888_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_032.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 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> </TD>
<TD> </TD>
<TD> </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
%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?