谁能给我解释一下,下面的代码啊,是vb吗?写一下注释谢谢了?

原创 2017年01月03日 00:47:23

dim adminname,adminpass,adminsalt,rs,doc,ip,logcount,sql
adminname=left(form("adminname"),12)
if len("adminname")>0 and len(form("adminpass"))>0 then
adminpass=md5(form("adminpass"),1)

on error resume next

set conn=server.createobject("adodb.connection")
conn.open objconn

if err.number<>0 then
set doc=Server.CreateObject(king_xmldom)
doc.async=false
doc.load(server.mappath(king_system&"system/language/"&king_language&".xml"))
response.clear
response.write doc.documentElement.SelectSingleNode("//kingcms/error/db").text
response.end()
end if
err.clear

ip=request.servervariables("http_x_forwarded_for")
if ip="" then ip=request.servervariables("remote_addr")

if king_dbtype=1 then
sql="select count(logid) from kinglog where ip='"&safe(ip)&"' and lognum=2 and getdate()-logdate<0.25;"
else
sql="select count(logid) from kinglog where ip='"&safe(ip)&"' and lognum=2 and now()-logdate<0.25;"
end if
logcount=conn.execute(sql)(0)
if logcount>=king_loginnum then
response.write "<p class=""red"">您尝试登录次数过多,已被系统锁定</p>"
else
set rs=conn.execute("select adminid from kingadmin where adminname='"&safe(adminname)&"' and adminpass='"&safe(adminpass)&"';")
if not rs.eof and not rs.bof then
conn.execute "update kingadmin set admindate='"&tnow&"',admincount=admincount+1 where adminname='"&safe(adminname)&"';"
conn.execute "insert into kinglog (adminname,lognum,ip,logdate) values ('"&safe(adminname)&"',1,'"&safe(ip)&"','"&tnow&"')"
response.cookies(md5(king_salt_admin,1))("name")=adminname
response.cookies(md5(king_salt_admin,1))("pass")=adminpass'newpass
response.redirect "manage.asp"
else
conn.execute "insert into kinglog (adminname,lognum,ip,logdate) values ('"&safe(adminname)&"',2,'"&safe(ip)&"','"&tnow&"')"
if king_loginnum-logcount=1 then
response.write "<p class=""red"">您尝试登录次数过多,已被系统锁定</p>"
else
response.write "<p class=""red"">您的帐号或密码有误 !还有"&(king_loginnum-logcount-1)&"次登录的机会。</p>"
end if
end if
rs.close
set rs=nothing
end if



end if
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

CSS浮动属性Float到底什么怎么回事,下面详细解释一下

float 是 css 的定位属性。在传统的印刷布局中,文本可以按照需要围绕图片。一般把这种方式称为“文本环绕”。在网页设计中,应用了CSS的float属性的页面元素就像在印刷布局里面的被文字包围的图...

《测试你的java功底,不妨做一下下面几个小题吧。以后将会给我答案(真的不是很简单)》

【程序1】   题目:古典问题:有一对兔子,从出生后第3个月起每个月都生一对兔子,小兔子长到第三个月后每个月又生一对兔子,假如兔子都不死,问每个月的兔子总数为多少?   1.程序分析:   兔...

14 WebGL 使用矩阵实现图形 旋转+平移并解释一下缩放

由于时间比较晚,明天还需要上班,今天先上传代码,明天再更新思路。 Document

Spring的IOC原理[通俗解释一下]

1. IoC理论的背景 我们都知道,在采用面向对象方法设计的软件系统中,它的底层实现都是由N个对象组成的,所有的对象通过彼此的合作,最终实现系统的业务逻辑。 图1:软件系统中耦合的对象 ...

如何通俗地解释一下 TCP/UDP 协议和 HTTP、FTP、SMTP 等协议之间的区别?

作者:车小胖 链接:https://www.zhihu.com/question/20583641/answer/104529492 来源:知乎 著作权归作者所有,转载请联系作者获得授权。 ...

解释一下核主成分分析(Kernel Principal Component Analysis, KPCA)的公式推导过程~

KPCA,中文名称”核主成分分析“,是对PCA算法的非线性扩展,言外之意,PCA是线性的,其对于非线性数据往往显得无能为力,例如,不同人之间的人脸图像,肯定存在非线性关系,自己做的基于ORL数据集的实...

用反射的思想解释一下传说中的Fastjson解析

首先,反射机制可以拿来做什么?我的理解是反射机制可以拿到类类型的属性和方法,无论是共有的还是私有的,都可以拿到。而在用传统的方式解析的时候,我们需要执行的频繁的操作就是去通过key拿到对应的值,这是一...

关于为什么会有偏移一说,粗略解释一下...

原文地址:http://www.bpsend.com/forum.php?mod=viewthread&tid=319&extra=page%3D1 关于为什么会有偏移一说,粗略解释一下.....

Spring的IOC原理[通俗解释一下]

1. IoC理论的背景 我们都知道,在采用面向对象方法设计的软件系统中,它的底层实现都是由N个对象组成的,所有的对象通过彼此的合作,最终实现系统的业务逻辑。 图1:软件系统中耦合的对象 ...

Spring的IOC原理[通俗解释一下] ---转

1. IoC理论的背景 我们都知道,在采用面向对象方法设计的软件系统中,它的底层实现都是由N个对象组成的,所有的对象通过彼此的合作,最终实现系统的业务逻辑。 图1:软件系统中耦合的对象 ...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)