📄 admin_login.asp
字号:
<!--#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 Not mRs("adminpwd")=Password Then
Set mRs=Nothing
Response.End
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"
End Sub
Sub Login
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Agency Interface</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="../images/control_main.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1476" name=GENERATOR></HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=100>
<TABLE cellSpacing=0 cellPadding=0 width=739 align=center border=0>
<TBODY>
<TR>
<TD width=90><IMG height=201 src="../images/bb1.gif" width=90></TD>
<TD width=151>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD><IMG height=106 src="../images/bb2.gif" width=151></TD></TR>
<TR>
<TD><IMG height=95 src="../images/bb22.gif"
width=151></TD></TR></TBODY></TABLE></TD>
<TD width=93><IMG height=201 src="../images/bb3.gif" width=93></TD>
<TD width=405>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD vAlign=top width=405 height=107>
<TABLE height=107 cellSpacing=0 cellPadding=0 width=405
background=../images/bb4.gif border=0>
<TBODY>
<TR>
<TD>
<TABLE height=107 cellSpacing=0 cellPadding=0 width=405
align=center border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle>
<TABLE cellSpacing=0 cellPadding=0 width=190
align=center border=0>
<FORM name=login action=Admin_Login.Asp?GetKey=ChkLogin
method=post>
<TBODY>
<TR>
<TD class=title_02 vAlign=top noWrap
width=34> </TD>
<TD vAlign=bottom noWrap width=156>
<DIV align=left></DIV><!--
<div align="left">
<SELECT NAME="l_type" class="za_select">
<option value="0">登入0</option>
<option value="1">登入1</option>
<option value="2">登入2</option>
<option value="3">登入3</option>
</SELECT>
</div>
--></TD></TR>
<TR>
<TD class=title_02 vAlign=bottom noWrap
width=34><IMG height=20 src="../images/ps1.gif"
width=34></TD>
<TD vAlign=center noWrap width=156>
<DIV align=left><INPUT class=za_text size=15
name=login_name> </DIV></TD></TR>
<TR>
<TD class=title_01 noWrap width=34><IMG height=20
src="../images/ps2.gif" width=34></TD>
<TD noWrap width=156>
<DIV align=left><INPUT class=za_text type=password
size=15 name=login_pwd> </DIV></TD></TR>
<TR>
<TD colSpan=2>
<DIV align=center><INPUT class=za_button type=submit value=登入 name=login>
</DIV></TD></TR></FORM></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD vAlign=top align=middle width=405 height=94>
<TABLE height=94 cellSpacing=0 cellPadding=0 width=405
background=../images/bb44.gif border=0>
<TBODY>
<TR>
<TD vAlign=top>
<DIV align=center>
<OBJECT
codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0
height=68 width=242
classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000><PARAM NAME="movie" VALUE="../images/urser.swf"><PARAM NAME="quality" VALUE="high"><PARAM NAME="wmode" VALUE="transparent">
<embed src="../images/urser.swf"
quality=high
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"
type="application/x-shockwave-flash" width="242" height="68">
</embed>
</OBJECT></DIV></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD width=90> </TD>
<TD width=151> </TD>
<TD width=93> </TD>
<TD width=405>
<TABLE cellSpacing=0 cellPadding=0 width=210 align=center border=0>
<TBODY>
<TR>
<TD width=105>
<DIV align=center><A
href="http://218.32.184.230/888.htm?charset=1"><IMG height=15
src="../images/chinese-tw.jpg" width=40 border=0></A></DIV></TD>
<TD width=105>
<DIV align=center><A
href="http://218.32.184.230/888.htm?charset=2"><IMG height=15
src="../images/chinese-cn.jpg" width=40 border=0></A></DIV></TD><!-- <div align="center"><img src="../images/english.jpg" width="39" height="15"></div> --></TR></TBODY></TABLE></TD></TR>
<TR>
<TD width=90 height=43> </TD>
<TD width=151> </TD>
<TD width=93> </TD>
<TD width=405>
<TABLE cellSpacing=0 cellPadding=0 width=210 align=center border=0>
<TBODY>
<TR>
<TD width=105>
<DIV align=center><A
href="http://www.microsoft.com/downloads/details.aspx?displaylang=zh-tw&FamilyID=1E1550CB-5E5D-48F5-B02B-20B602228DE6"
target=_blank><IMG height=31 src="../images/home_L4_IE-tw.gif"
width=101 border=0></A></DIV></TD>
<TD width=105>
<DIV align=center><A
href="http://www.microsoft.com/downloads/details.aspx?displaylang=zh-cn&FamilyID=1E1550CB-5E5D-48F5-B02B-20B602228DE6"
target=_blank><IMG height=31 src="../images/home_L4_IE-cn.gif"
width=101
border=0></A></DIV></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<P> </P></BODY></HTML>
<%
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -