谁能给我解释一下,下面的代码啊,是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属性的页面元素就像在印刷布局里面的被文字包围的图...
  • pjbwan
  • pjbwan
  • 2014年11月21日 13:04
  • 651

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

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

有没有大神能够逐行解释一下代码?Delphi

object Form2: TForm2   Left = 341   Top = 528   Width = 600   Height = 500   Caption = #20027#3...

有没有大神能够逐行解释一下代码?Delphi

object Form3: TForm3   Left = 310   Top = 333   Width = 600   Height = 500   Caption = #22270#2...

有没有大神能够逐行解释一下代码?Delphi

object Form6: TForm6   Left = 406   Top = 589   Width = 600   Height = 500   Caption = #35835#3...

有没有大神能够逐行解释一下代码?Delphi

object Form3: TForm3   Left = 392   Top = 271   Width = 600   Height = 500   Caption = #22270#2...

有没有大神能够逐行解释一下代码?Delphi

object Form5: TForm5   Left = 537   Top = 220   Width = 600   Height = 500   Caption = #22270#2...

有没有大神能够逐行解释一下代码?Delphi

object Form7: TForm7   Left = 475   Top = 487   Width = 600   Height = 500   Caption = #20511#3...

有没有大神能够逐行解释一下代码?Delphi

object Form4: TForm4   Left = 229   Top = 392   Width = 600   Height = 500   Caption = #35835#3...

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

【程序1】   题目:古典问题:有一对兔子,从出生后第3个月起每个月都生一对兔子,小兔子长到第三个月后每个月又生一对兔子,假如兔子都不死,问每个月的兔子总数为多少?   1.程序分析:   兔...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:谁能给我解释一下,下面的代码啊,是vb吗?写一下注释谢谢了?
举报原因:
原因补充:

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