login_check_mac.asp

来自「国内第一数字点卡销售程序。功能强大。 完整无错！数据文件经MD5加密！经严格测」· ASP 代码 · 共 80 行

<!--#include file="connstr.asp"-->
<!--#include file="../inc/md5.asp"-->
<%
ntt=trim(request("adminname"))

itt="@#$%^&*()<>/:';+-"""
for y=1 to len(ntt)
   for i=1 to len(itt)
   if mid(itt,i,1)=mid(ntt,y,1) then
   response.write("<script>alert('请勿在文本框中输入任何非法字符！');window.close()</script>")
   response.end
   end if
   if i>len(itt) then exit for
   next
if y>len(ntt) then exit for
next

if session("huck")="" or session("huck")=null then
session("huck")=1
else
session("huck")=session("huck")+1
end if
if session("huck")>10 then
response.write("<script>alert('你已经是第") & session("huck") & ("次输入错误帐号密码了，你究竟想干什么?!我已经记下你的IP了');window.close()</script>")
response.end
end if
if session("huck")>3 and session("huck")<10 then
response.write("<script>alert('你连续三次输入错误的帐号密码，请过一会或关闭浏览器后再试!');window.close()</script>")
response.end
end if
if session("user_admin")<>""  then
response.write("<script>alert('请登录后再用！');window.location=('login.asp')</script>")
response.end
end if
macnetip=trim(request("macnetaddress"))

if request("adminname")="" then
response.write("<script>alert('请输入用户名!');history.go(-1)</script>")
response.end
end if
if request("adminpass")="" then
response.write("<script>alert('请输入密码!');history.go(-1)</script>")
response.end
end if
if request("macnetaddress")="" then
response.write("<script>alert('您的网卡有问题，请核查一下！');history.go(-1)</script>")
response.end
end if

dim rsadmin
set rsadmin=server.createobject("adodb.recordset")
adminname=srequest(request("adminname"),0)
rsadmin.open "select * from adminlitdata where admin_name='"&adminname&"'",conn,1,3
if rsadmin.eof and rsadmin.bof then
rsadmin.close:set rsadmin=nothing
response.write("<script>alert('用户已被删除或根本就不存在!');history.go(-1)</script>")
response.end
end if
if rsadmin("admin_pass")<>md5(request("adminpass")) then
response.write("<script>alert('您输入的密码错误!');history.go(-1)</script>")
response.end
end if
if rsadmin("admin_ip")&"1"="1" then
   rsadmin("admin_ip")=macnetip
   rsadmin.update
end if
if rsadmin("admin_ip")<>trim(request("macnetaddress")) then
response.write("<script>alert('您的网卡登陆不正确!');history.go(-1)</script>")
response.end
end if

session("user_admin")=rsadmin("admin_name")
session("admin_rank")=rsadmin("admin_rank")
response.redirect "manage.asp"
session("huck")=""

response.end

%>