取消后台验证码?在哪里设置啊-领先建站CMS提供服务商我们专注于CMS建站产品的研发

3855 查看	5 回复

主题：[已答复]取消后台验证码?在哪里设置啊 [收藏主题]

转到：

多古特当前离线

124 主题	0 广播	0 粉丝

级别:一年级

用户积分:287 分
登录次数:34 次
注册时间:2010/5/1
最后登录:2019/9/17

多古特发表于：2010/8/11 7:33:00 | 显示全部帖子查看该作者主题楼主

做考试题库就用#科汛在线考试系统!

我不用想验证码，只有一个认证码就够了，

一分钟快速开通线上知识店铺

支持(54) |

反对(54)

顶端

底部

多古特当前离线

124 主题	0 广播	0 粉丝

级别:一年级

用户积分:287 分
登录次数:34 次
注册时间:2010/5/1
最后登录:2019/9/17

多古特发表于：2010/8/11 9:19:00 | 显示全部帖子查看该作者主题沙发

一分钟快速开通线上知识店铺

以下是引用 ep165在2010-8-11 7:58:00的发言：
打开admin下的login.asp找到验证码那段代码屏蔽或删除掉

屏蔽后提示：验证码有误，请重新输入！。请问具体删除掉哪一段？

X1.0制作的新站重庆考试网www.cqksw.com.cn

一分钟快速开通线上知识店铺

支持(25) |

反对(21)

顶端

底部

多古特当前离线

124 主题	0 广播	0 粉丝

级别:一年级

用户积分:287 分
登录次数:34 次
注册时间:2010/5/1
最后登录:2019/9/17

多古特发表于：2010/8/11 9:20:00 | 显示全部帖子查看该作者主题藤椅

有生源找课程就上科汛课堂街!

<%option explicit%>







<%

'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面

Response.Buffer = True

Response.Expires = -1

Response.ExpiresAbsolute = Now() - 1

Response.Expires = 0

Response.CacheControl = "no-cache"

Dim KS:Set KS=New PublicCls

Select Case  KS.G("Action")

Case "LoginCheck"

  Call CheckLogin()

Case "LoginOut"

  Call LoginOut()

Case Else

  Call CheckSetting()

  Call Main()

End Select

Sub CheckSetting()

   dim strDir,strAdminDir,InstallDir

  strDir=Trim(request.ServerVariables("SCRIPT_NAME"))

  strAdminDir=split(strDir,"/")(Ubound(split(strDir,"/"))-1) & "/"

  InstallDir=left(strDir,instr(lcase(strDir),"/"&Lcase(strAdminDir)))

If Instr(UCASE(InstallDir),"/W3SVC")<>0 Then

InstallDir=Left(InstallDir,Instr(InstallDir,"/W3SVC"))

End If

If KS.Setting(2)<>KS.GetAutoDoMain or KS.Setting(3)<>InstallDir Then

  Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")

  RS.Open "Select Setting From KS_Config",conn,1,3

  Dim SetArr,SetStr,I

  SetArr=Split(RS(0),"^%^")

  For I=0 To Ubound(SetArr)

If I=0 Then

SetStr=SetArr(0)

ElseIf I=2 Then

SetStr=SetStr & "^%^" & KS.GetAutoDomain

ElseIf I=3 Then

SetStr=SetStr & "^%^" & InstallDir

Else

SetStr=SetStr & "^%^" & SetArr(I)

End If

  Next

  RS(0)=SetStr

  RS.Update

  RS.Close:Set RS=Nothing

  Call KS.DelCahe(KS.SiteSn & "_Config")

  Call KS.DelCahe(KS.SiteSn & "_Date")

End If

End Sub

Sub Main()

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<HEAD>

<TITLE><%=KS.Setting(0) & "---网站后台管理"%></TITLE>

<META http-equiv=Content-Type content="text/html; charset=utf-8">

<meta http-equiv="X-UA-Compatible" content="IE=7" />

<script language="JavaScript" type="text/JavaScript" src="Include/SoftKeyBoard.js"></script>

<SCRIPT type="text/JavaScript">



</SCRIPT>

<STYLE>

body{ margin:0px auto; padding:0px auto; font-size:12px; color:#555; font-family:Verdana, Arial, Helvetica, sans-serif;text-align:center;}

html {

overflow:hidden;

}

form,div,ul,li {margin:0px auto;padding: 0; border: 0; }

img,a img{border:0; margin:0; padding:0;}

a{font-size:12px;color:#000000}

a:link,a:visited{color:#00436D;}

td {

font-size: 12px; color: #fff; LINE-HEIGHT: 20px; FONT-FAMILY: "", Arial, Tahoma

}

.textbox{height:16px;}

.head{ background:url(images/headbg.gif) repeat-x;height:84px;}

.logo{width:400px;height:68px;float:left;margin:0px;padding:0px;}

.right{width:580px;float:right;color:#ccc;font-family:"宋体";padding-top:30px;}

.right a:link,.right a:visited{color:#666; text-decoration: none}

.right a:hover{ color:#ff0000; text-decoration:underline}

.main{margin-top:80px;width:100%;text-align:center}

.loginbg{width:541px;height:300px;background:url(images/loginbg.gif) no-repeat;text-align:center;border:1px solid #fff;}

.login{width:489px;height:213px;background:url(images/login.jpg) no-repeat;margin-top:20px;padding-top:102px !important;padding-top:98px; }

#login{text-align:left;padding-left:6px;}

#copyright {margin:0px auto;left:250px;bottom:100px;text-align:center;width:550px;PADDING: 1px 1px 1px 1px; FONT: 12px

verdana,arial,helvetica,sans-serif; COLOR: #666; TEXT-DECORATION: none}

#copyright a:link,#copyright a:visited{color:#ff6600; font-size:12px; text-decoration:underline}

</STYLE>

</head>

<body>

<div class="head">

  <div class="logo"><img src="images/kslogo.jpg" /></div>

  <div class="right"><a href="http://www.kesion.com" target="_blank">官方首页</a> | <a href="http://help.kesion.com" target="_blank"> 帮助中心</a> |<a href="http://www.kesion.com" target="_blank"> 会员中心</a>|<a href="http://bbs.kesion.com" target="_blank"> 交流论坛</a></div>

</div>

<div class="main">

  <div class="loginbg">

<div class="login">

   <FORM ACTION="Login.asp?Action=LoginCheck" method="post" name="LoginForm">

   <table width="93%" border="0" align="center" cellpadding="0" cellspacing="0" id="login">

      <tr>

      <td width="21" align="right"> </td>

      <td width="177">

            用户名：<input name="UserName" tabindex="1" class="textbox" maxlength="30" id="UserName" type="text" size="12">             </td>

      <td width="24"> </td>

      <td width="161">密   码：<%IF KS.Setting(98)=1 Then%><input name="PWD" type="password" class="textbox"  style="FONT-FAMILY: verdana" tabindex="2" size="11" maxlength="50" readOnly>

            <%Else%><INPUT name="PWD"  type="password" class="textbox" style="FONT-FAMILY: verdana" tabindex="2" size="11" maxlength="50">

         <%End IF%> </td>

      <td width="63" rowspan="3"><input type="image" src="images/grdl.gif"  style="FILTER:alpha(opacity=50)"></td>

      </tr>

      <tr>

      <td height="18" colspan="4"></td>

      </tr>

      <tr>

      <td align="right"> </td>

      

</script>

</html>

<%End Sub

Sub CheckLogin()

  Dim PWD,UserName,LoginRS,SqlStr,RndPassword

  Dim ScriptName,AdminLoginCode

  AdminLoginCode=KS.G("AdminLoginCode")

  IF Trim(Request.Form("Verifycode"))<>Trim(Session("Verifycode")) then

Call KS.Alert("登录失败:\n\n验证码有误，请重新输入！","Login.asp")

exit Sub

  end if

  If EnableSiteManageCode = True And AdminLoginCode <> SiteManageCode Then

Call KS.Alert("登录失败:\n\n您输入的后台管理认证码不对，请重新输入！","Login.asp")

exit Sub

  End If

  Pwd =MD5(KS.R(Request.form("pwd")),16)

  UserName = KS.R(trim(Request.form("username")))

  RndPassword=KS.R(KS.MakeRandomChar(20))

  ScriptName=KS.R(Trim(Request.ServerVariables("HTTP_REFERER")))



  Set LoginRS = Server.CreateObject("ADODB.RecordSet")

  SqlStr = "select * from KS_Admin where UserName='" & UserName & "'"

  LoginRS.Open SqlStr,Conn,1,3

  If LoginRS.EOF AND LoginRS.BOF Then

Call KS.InsertLog(UserName,0,ScriptName,"输入了错误的帐号!")

   Call KS.AlertHistory("登录失败:\n\n您输入了错误的帐号，请再次输入！",-1)

  Else



   IF LoginRS("PassWord")=pwd THEN

   IF Cint(LoginRS("Locked"))=1 Then

      Call KS.Alert("登录失败:\n\n您的账号已被管理员锁定，请与您的系统管理员联系！","Login.asp")

   Response.End

Else

   '登录成功，进行前台验证，并更新数据

   Dim UserRS:Set UserRS=Server.CreateObject("Adodb.Recordset")

   UserRS.Open "Select Score,LastLoginIP,LastLoginTime,LoginTimes,UserName,Password,RndPassWord,IsOnline From KS_User Where UserName='" & LoginRS("PrUserName") & "' and GroupID=1",Conn,1,3

   IF Not UserRS.Eof Then



   If datediff("n",UserRS("LastLoginTime"),now)>=KS.Setting(36) then '判断时间

   UserRS("Score")=UserRS("Score")+KS.Setting(37)

   end if

   UserRS("LastLoginIP") = KS.GetIP

   UserRS("LastLoginTime") = Now()

   UserRS("LoginTimes") = UserRS("LoginTimes") + 1

   UserRS("RndPassWord") = RndPassWord

   UserRS("IsOnline")=1

   UserRS.Update

   '置前台会员登录状态

   Response.Cookies(KS.SiteSn).path = "/"

   Response.Cookies(KS.SiteSn)("UserName") = KS.R(UserRS("UserName"))

         Response.Cookies(KS.SiteSn)("Password") = UserRS("Password")

   Response.Cookies(KS.SiteSn)("RndPassword") = KS.R(UserRS("RndPassword"))

   Response.Cookies(KS.SiteSn)("AdminLoginCode") = AdminLoginCode

   Response.Cookies(KS.SiteSn)("AdminName") =  UserName

   Response.Cookies(KS.SiteSn)("AdminPass") = pwd

   Response.Cookies(KS.SiteSn)("SuperTF") = LoginRS("SuperTF")

   Response.Cookies(KS.SiteSn)("PowerList") = LoginRS("PowerList")

   Response.Cookies(KS.SiteSn)("ModelPower") = LoginRS("ModelPower")

   Response.Cookies(KS.SiteSn)("SkinID")  = KS.S("SkinID")

         Else

   Call KS.InsertLog(UserName,0,ScriptName,"找不到前台账号!")

   Call KS.Alert("登录失败:\n\n找不到前台账号！","Login.asp")

   Response.End

End If

   UserRS.Close:Set UserRS=Nothing



LoginRS("LastLoginTime")=Now

LoginRS("LastLoginIP")=KS.GetIP

LoginRS("LoginTimes")=LoginRS("LoginTimes")+1

LoginRS.UpDate

Call KS.InsertLog(UserName,1,ScriptName,"成功登录后台系统!")

Response.Redirect("Index.asp")

End IF

  ELse

Response.Cookies(KS.SiteSn).path = "/"

Response.Cookies(KS.SiteSn)("AdminName")=""

Response.Cookies(KS.SiteSn)("AdminPass")=""

Response.Cookies(KS.SiteSn)("SuperTF")=""

Response.Cookies(KS.SiteSn)("AdminLoginCode")=""

Response.Cookies(KS.SiteSn)("PowerList")=""

Response.Cookies(KS.SiteSn)("ModelPower")=""

Call KS.InsertLog(UserName,0,ScriptName,"输入了错误的口令:" & Request.form("pwd"))

Call KS.Alert("登录失败:\n\n您输入了错误的口令，请再次输入！","Login.asp")

  END IF

End If

END Sub

Sub LoginOut()

   Conn.Execute("Update KS_Admin Set LastLogoutTime=" & SqlNowString & " where UserName='" & KS.R(KS.C("AdminName")) &"'")

   Dim AdminDir:AdminDir=KS.Setting(89)

   Response.Cookies(KS.SiteSn).path = "/"

Response.Cookies(KS.SiteSn)("PowerList")=""

Response.Cookies(KS.SiteSn)("AdminName")=""

Response.Cookies(KS.SiteSn)("AdminPass")=""

Response.Cookies(KS.SiteSn)("SuperTF")=""

Response.Cookies(KS.SiteSn)("AdminLoginCode")=""

Response.Cookies(KS.SiteSn)("ModelPower")=""

session.Abandon()

Response.Write ("<script> top.location.href='" & KS.Setting(2) & KS.Setting(3) &"';</script>")

End Sub

Set KS=Nothing

%>

X1.0制作的新站重庆考试网www.cqksw.com.cn

科汛商学院助您快速入门

支持(0) |

反对(0)

顶端

底部