chklogin.asp

来自「雷客图ASP站长安全助手 功能： 1、ASP木马查找（能够查出现在几乎所有的」· ASP 代码 · 共 34 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="config.asp" -->
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/header.inc" -->
<!--#include file="inc/md5.asp" -->

<%
'***************ASPSecurity 登陆验证*********************
' Copyright 2005
' Create:2006-1-14
' Update:2006-4-17
'********************************************************

	  IF Request.Form("ppwwdd")=Empty Then
		  response.Write("请填写登陆密码！<br><br><a href='javascript:history.go(-1);'>请返回重新输入</a>")
	  Else
		 Set admLogin=Server.CreateObject("ADODB.Recordset")
		 SQL="SELECT * from admin where pwd='" & MD5(request.Form("ppwwdd")) & "' and id=1"
		 admLogin.Open SQL,Conn,1,3
		 IF admLogin.EOF AND admLogin.BOF Then
		  	response.Write("密码错误! !<br><br><a href='javascript:history.go(-1);'>请返回重新输入</a>")
		 Else
			Session("ASPS")=1
			If request.Form("ppwwdd") = "admin888"  Then
				response.Write("<Script>alert('注意：你还没有修改默认密码admin888为你自己的密码！迅速修改，否则可能造成严重后果');window.location='admin_index.asp';</script>")
			Else
				response.Write("<Script>window.location='admin_index.asp';</script>")
			End If
		 End If
		 admLogin.Close
		 Set memLogin=Nothing
	End IF
%>