侯体宗的博客
  • 首页
  • Hyperf版
  • beego仿版
  • 人生(杂谈)
  • 技术
  • 关于我
  • 更多分类
    • 文件下载
    • 文字修仙
    • 中国象棋ai
    • 群聊
    • 九宫格抽奖
    • 拼图
    • 消消乐
    • 相册

kesion科讯V4.0管理员Key工具

技术  /  管理员 发布于 7年前   6413

kesion科讯V4.0管理员Key工具操作说明,请仔细阅读操作说明后进行操作:

1、请把压缩包中的key.asp文件上传到kesioncms根目录下。

2、运行key.asp后选择您所需要的选项。

3、注意:

    使用完毕后请点击“删除key文件”或在ftp中删除key.asp文件以防留有后门。

4、功能简介:

    a 在删除了所有管理员情况下,新建管理员帐号。

    b 修改后台管理员的登录名称和密码。

    c 商业用户注册码修改。


代码如下:

<%@language="vbscript" codepage="936"%>
<%option explicit
response.buffer=true%>
<!--#include file="conn.asp"-->
<!--#include file="ks_inc/md5.asp"-->
<!--#include file="ks_cls/ks.publiccls.asp"-->
<%
'****************************************************
' software name:kesion cms 4.0
' email: [email protected] . qq:111394,9537636
' web: http://www.kesion.com http://www.kesion.cn
' copyright (c) kesion network all rights reserved.
'****************************************************
dim kscls
set kscls = new install
kscls.kesion()
set kscls = nothing
class install
        private ks
        private sqlstr,rs,installdir,fsoindexfile,fsoindexext,admindirstr,currpath,step
        private sub class_initialize()
          set ks=new publiccls
        end sub
        private sub class_terminate()
         call closeconn()
         set ks=nothing
        end sub
        sub kesion
            %>
    <!doctype html public "-//w3c//dtd html 4.0 transitional//en">
    <html xmlns="http://www.51sjk.com/Upload/Articles/1/0/261/261898_20210702001901435.jpg"><head><title>科汛网站管理系统v4.0系列产品安装程序</title>
    <meta http-equiv=content-type content="text/html; charset=utf-8">
    <script src="<%=admindirstr%>/js/common.js" language="javascript"></script>
    <script language="javascript">
            <!--
            function checkform()
            { var form=document.setwebinfoform;
               if (form.username.value=="")
               {
                 alert("请输入管理账号!");
                 form.username.focus();
                return false;
               }
               if (form.password.value=="")
               {
                 alert("请输入管理密码!");
                 form.password.focus();
                return false;
               }
               if (form.conpassword.value=="")
               {
                 alert("请输入确认密码!");
                 form.conpassword.focus();
                return false;
               }
               if (form.conpassword.value!=form.password.value)
               {
                 alert("两次输入的密码不一致!");
                 form.conpassword.focus();
                return false;
               }
               if (form.sitesn.value=="")
               {
                 alert("请输入授权系列号!");
                 form.sitesn.focus();
                return false;
               }
               if (form.sitesn.value.length!=29&&form.sitesn.value.length!=1)
               {
                 alert("请输入的授权系列号有误!");
                 form.sitesn.focus();
                return false;
               }
               if (form.webname.value=="")
                {
                 alert("请输入您的网站名称!");
                 form.webname.focus();
                return false;
                }
                form.submit();
                return true;
            }
            //-->
            </script>
<style type="text/css">
<!--
.style1 {color: #ffffff}
a { text-decoration: none; color: #000000;}
a:hover { text-decoration: none;color: #4455aa; }
body { 
    text-align: center;
    margin-top :20px;
    scrollbar-face-color: #eeeeee; 
    scrollbar-highlight-color: #ffffff; 
    scrollbar-shadow-color: #dee3e7; 
    scrollbar-3dlight-color: #d1d7dc; 
    scrollbar-arrow-color: #000000; 
    scrollbar-track-color: #ededed; 
    scrollbar-darkshadow-color: #808080;
}
input.text ,textarea ,subject ,select {
    border: 1px gray solid;
    padding-right: 1px;
    padding-left: 1px;
    padding-bottom: 1px;
    padding-top: 1px;
    height: 19px;
}
table {
    word-break: break-all;
}
body,td,th,div{
    font-size: 12px; color: #000000; font-family: tahoma; line-height: normal;
}
hr { height: 1px; color: #6595d6; width: 100%; }
.contactinfo{
    font-size: 14px;
    padding:5px;
    color:#003399;
}
textarea.updateinfo{
    border : 1px dotted #666666;
    width:100%;
    height:360px;
    overflow: auto; 
    background-color: #ffffff;
    font-size: 14px;
    padding:5px;
    color:#003399;
}
.copyright{
    color:gray;
    background-color:#eaeaea;
}
.redfont {color: #ff0000}
-->
</style></head>
<body>
<table width="700" border="1" align="center" cellpadding="1" cellspacing="6" bordercolor="#cccccc">
  <tr>
    <td width="682" height="22" bgcolor="#f0f0f0"><table width="98%" border=0 cellpadding=0 cellspacing=1 class=table1>
      <tbody>
        <tr>
          <th  nowrap class=link><a  target="_blank">官方网站</a> <a  target="_blank">技术论坛</a>          <a  target="_blank">帮助中心</a>            <a  target="_blank">演示站点</a></th>
          <th  width=404 align="center" nowrap class=link><div align="right"><strong>当前版本:</strong>v4.0<strong> 官方版本: </strong>
              <script src="http://www.kesion.com/websystem/showver.asp"></script>            </th>
        </tr>
      </tbody>
    </table>      </td>
  </tr>
  <tr>
    <td width="682" height="30" align="center" bgcolor="#333399">
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td> </td>
        <td align="center"><span class="style1"><strong>kesioncms v4.0 key管理员工具</strong></span></td>
      </tr>
    </table></td>
  </tr>
  <tr bgcolor="#f0f0f0"  id="showsetup">
    <td height="250">
      <div style="color:red;font-weight:bold;text-align:center;padding:5px;">温馨提示:为了系统的安全,请使用后一定要删除该文件。</div>
    <br>
     <%select case request("action")
        case "addadmin"
         call addadmin()
        case "addsave"
         call saveinfo()
        case "editadmin"
         call editadmin()
        case "editsave"
         call editsave()
        case "editsitesn"
         call editsitesn()
        case "editsn"
         call editsn()
        case "del"
              currpath = ks.setting(3) 
             call ks.deletefile(currpath&"key.asp")  
             response.redirect ks.setting(89) & "login.asp"
        case else
         call main()
        end select
    %>
      
      
    <br></td>
  </tr>
</table>
<table width="700"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="10" align="right"> </td>
  </tr>
  <tr>
    <td align="center" valign="bottom"> powered by <a  target="_blank"><strong> kesion.com </a>
      © 2007
    </td>
  </tr>
</table>
<table class=table0 cellspacing=0 cellpadding=0 align=center border=0>
  <tbody>
  <tr>
    <td class=table0 height=1></td></tr></tbody></table>
<!--结束部分-->
</body>
</html>
    <%    
     end sub
     sub saveinfo()
                if not conn.execute("select username from ks_admin where supertf='1'").eof then
                 call ks.alerthistory("设置失败:\n\n对不起,系统已存在超级管理账号!","-1")
                 response.end
                end if
                dim preusername,username,password,conpassword,userrs
                preusername=ks.s("preusername")
                if preusername="" then 
                 call ks.alerthistory("设置失败:\n\n没有输入前台会员账号,请输入!","-1")
                 response.end
                end if
                if conn.execute("select * from ks_user where username='" & preusername & "'").eof then
                 call ks.alerthistory("设置失败:\n\n前台用户不存在,请重新输入!","-1")
                 response.end
                end if
                username=ks.s("username")
                if username="" then 
                 call ks.alerthistory("设置失败:\n\n没有输入管理账号,请输入!","-1")
                 response.end
                end if
                password=ks.s("password")
                if password="" then 
                 call ks.alerthistory("设置失败:\n\n没有输入管理密码,请输入!","-1")
                 response.end
                end if
                if len(password)<6 then 
                 call ks.alerthistory("设置失败:\n\n密码不能少于6位,请重新输入!","-1")
                 response.end
                end if
                conpassword=ks.s("conpassword")
                if password<>conpassword then 
                 call ks.alerthistory("设置失败:\n\n两次输入密码不一致,请重新输入!","-1")
                 response.end
                end if
                password =md5(ks.r(request.form("password")),16)
                
                set userrs=server.createobject("adodb.recordset")
                userrs.open "select * from ks_admin",conn,1,3
                 userrs.addnew
                 userrs("username")=username
                 userrs("prusername")=username
                 userrs("password")=password
                 userrs("sex")="男"
                 userrs("description")="科汛系统安装分配的超级管理员"
                 userrs("supertf")=1
                 userrs("locked")=0
                 userrs("lastloginip")=ks.getip
                 userrs("logintimes")=0
                 userrs("lastlogintime")=now
                 userrs("lastlogouttime")=now
                 userrs("adddate")=now
                 userrs("powerlist")=1
                 userrs("modelpower")="11111111111111111111"
                 userrs.update
              userrs.close
              set userrs=nothing
              conn.execute("update ks_user set groupid=4 where username='" & preusername & "'")
                ks.delcaches(ks.sitesn)
                response.write "<div align='center'>恭喜,后台管理员设置成功!<br><a href=""" & ks.setting(89) & "login.asp"">进入后台</a> | <a href=""?action=del"">删除key文件</a></div>"
     end sub
     sub editsave()
       dim username,password,conpassword
            username=ks.s("username")
            if username="" then 
                 call ks.alerthistory("设置失败:\n\n没有输入管理账号,请输入!","-1")
                 response.end
            end if
          conn.execute("update ks_admin set username='" & username & "' where supertf='1'")
             password=ks.s("password")
            if password<>"" then 
                if len(password)<6 then 
                 call ks.alerthistory("设置失败:\n\n密码不能少于6位,请重新输入!","-1")
                 response.end
                end if
                conpassword=ks.s("conpassword")
                if password<>conpassword then 
                 call ks.alerthistory("设置失败:\n\n两次输入密码不一致,请重新输入!","-1")
                 response.end
                end if
                password =md5(ks.r(request.form("password")),16)    
                conn.execute("update ks_admin set [password]='" & password & "' where supertf='1'")
         end if 
                response.write "<div align='center'>恭喜,后台管理员修改成功!<br><a href=""" & ks.setting(89) & "login.asp"">进入后台</a> | <a href=""?action=del"">删除key文件</a></div>"
    end sub
    sub editsn()
      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=17 then
        setstr=setstr & "^%^" & request("sn")
       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")
                response.write "<div align='center'>恭喜,授权系统号修改成功!<br><a href=""" & ks.setting(89) & "login.asp"">进入后台</a> | <a href=""?action=del"">删除key文件</a></div>"
    end sub
     sub main()
     %>
     <table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#666666">
        <tr align="right">
          <td height="5" colspan="3" bgcolor="#0066cc"></td>
        </tr>
         <form name="setwebinfoform" method="post" action="" onsubmit="return(checkform())">
              <input type="hidden" value="save" name="action">
        <tr>
          <td width="17%" height="35" align="right" bgcolor="#ffffff"><strong>新建超级管理员:</strong></td>
          <td width="41%" bgcolor="#ffffff">重新建立新的超级管理员帐号</td>
          <td width="42%" bgcolor="#ffffff">  
          <%dim rsc:set rsc=conn.execute("select username from ks_admin where supertf='1'")
           if rsc.eof then%>
           <input type="button" value="开始新建" onclick="location.;">
           <%else%>
           <input type="button" value="禁止新建" disabled> <font color=#a7a7a7>系统已存在<%=rsc("username")%>的超级用户</font>
           <%end if%>
           </td>
        </tr>
        <tr>
          <td height="35" align="right" bgcolor="#ffffff"><strong>修改管理员:</strong></td>
          <td bgcolor="#ffffff">修改超级管理员登录名及登录密码</td>
          <td bgcolor="#ffffff"> 
            <input name="button" type="button" value="开始修改" onclick="location.;"></td>
        </tr>
        <tr>
          <td height="35" align="right" bgcolor="#ffffff"><strong>修改授权注册码:</strong></td>
          <td bgcolor="#ffffff">修改官方授权唯一的注册码</td>
          <td bgcolor="#ffffff"> 
            <input name="button2" type="button" value="开始修改" onclick="location.;"></td>
        </tr>
        <tr align="right">
          <td height="5" colspan="3" bgcolor="#0066cc"></td>
        </tr>
        </form>
      </table>
     <%
     end sub
     sub addadmin()
     %>
     <table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#666666">
        <tr align="right">
          <td height="5" colspan="2" bgcolor="#0066cc"></td>
        </tr>
         <form name="setwebinfoform" method="post" action="?action=addsave">
        <tr>
          <td width="17%" height="35" align="right" bgcolor="#ffffff"><strong>前台用户名:</strong></td>
          <td width="41%" bgcolor="#ffffff"><input type="text" name="preusername" size=12> (前台注册的用户名)</td>
        </tr>
        <tr>
          <td height="35" align="right" bgcolor="#ffffff"><strong>管理员登录名:</strong></td>
          <td bgcolor="#ffffff"><input type="text" name="username" size=12></td>
        </tr>
        <tr>
          <td height="35" align="right" bgcolor="#ffffff"><strong>登录密码:</strong></td>
          <td bgcolor="#ffffff"><input type="password" name="password" size=12> (长度不能小于6)</td>       
       </tr>
        <tr>
          <td height="35" align="right" bgcolor="#ffffff"><strong>确认密码:</strong></td>
          <td bgcolor="#ffffff"><input type="password" name="conpassword" size=12> (长度不能小于6)</td>       
       </tr>
        <tr align="right">
          <td height="5" colspan="2" bgcolor="#0066cc"></td>
        </tr>
        <tr align="center">
          <td height="25" colspan="2" bgcolor="#ffffff"><input type="submit" value="确认增加"></td>
        </tr>
        </form>
      </table>
     <%
     end sub
     sub editadmin()
       %>
     <table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#666666">
        <tr align="right">
          <td height="5" colspan="2" bgcolor="#0066cc"></td>
        </tr>
         <form name="setwebinfoform" method="post" action="?action=editsave">
        <tr>
          <td height="35" align="right" bgcolor="#ffffff"><strong>管理员登录名:</strong></td>
          <td bgcolor="#ffffff"><input value="<%=conn.execute("select username from ks_admin where supertf='1'")(0)%>" type="text" name="username" size=12></td>
        </tr>
        <tr>
          <td height="35" align="right" bgcolor="#ffffff"><strong>登录密码:</strong></td>
          <td bgcolor="#ffffff"><input type="password" name="password" size=12> (长度不能小于6)不想修改请留空</td>       
       </tr>
        <tr>
          <td height="35" align="right" bgcolor="#ffffff"><strong>确认密码:</strong></td>
          <td bgcolor="#ffffff"><input type="password" name="conpassword" size=12> (长度不能小于6)不想修改请留空</td>       
       </tr>
        <tr align="right">
          <td height="5" colspan="2" bgcolor="#0066cc"></td>
        </tr>
        <tr align="center">
          <td height="25" colspan="2" bgcolor="#ffffff"><input type="submit" value="确认修改"></td>
        </tr>
        </form>
      </table>
     <%
     end sub
      sub editsitesn()
       %>
     <table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#666666">
        <tr align="right">
          <td height="5" colspan="2" bgcolor="#0066cc"></td>
        </tr>
         <form name="setwebinfoform" method="post" action="?action=editsn">
        <tr>
          <td height="35" align="right" bgcolor="#ffffff"><strong>授权系统号:</strong></td>
          <td bgcolor="#ffffff"><input value="<%=ks.setting(17)%>" type="text" name="sn" size=40></td>
        </tr>
        <tr align="right">
          <td height="5" colspan="2" bgcolor="#0066cc"></td>
        </tr>
        <tr align="center">
          <td height="25" colspan="2" bgcolor="#ffffff"><input type="submit" value="确认修改"></td>
        </tr>
        </form>
      </table>
     <%
           end sub
end class
%>

  • 上一条:
    BytesToBstr获取的源码转换为中文的代码
    下一条:
    独孤剑写的马克斯迅雷片库采集插件1.4 官方最新版提供下载了
  • 昵称:

    邮箱:

    0条评论 (评论内容有缓存机制,请悉知!)
    最新最热
    • 分类目录
    • 人生(杂谈)
    • 技术
    • linux
    • Java
    • php
    • 框架(架构)
    • 前端
    • ThinkPHP
    • 数据库
    • 微信(小程序)
    • Laravel
    • Redis
    • Docker
    • Go
    • swoole
    • Windows
    • Python
    • 苹果(mac/ios)
    • 相关文章
    • 智能合约Solidity学习CryptoZombie第三课:组建僵尸军队(高级Solidity理论)(0个评论)
    • 智能合约Solidity学习CryptoZombie第二课:让你的僵尸猎食(0个评论)
    • 智能合约Solidity学习CryptoZombie第一课:生成一只你的僵尸(0个评论)
    • gmail发邮件报错:534 5.7.9 Application-specific password required...解决方案(0个评论)
    • 2024.07.09日OpenAI将终止对中国等国家和地区API服务(0个评论)
    • 近期文章
    • 智能合约Solidity学习CryptoZombie第三课:组建僵尸军队(高级Solidity理论)(0个评论)
    • 智能合约Solidity学习CryptoZombie第二课:让你的僵尸猎食(0个评论)
    • 智能合约Solidity学习CryptoZombie第一课:生成一只你的僵尸(0个评论)
    • 在go中实现一个常用的先进先出的缓存淘汰算法示例代码(0个评论)
    • 在go+gin中使用"github.com/skip2/go-qrcode"实现url转二维码功能(0个评论)
    • 在go语言中使用api.geonames.org接口实现根据国际邮政编码获取地址信息功能(1个评论)
    • 在go语言中使用github.com/signintech/gopdf实现生成pdf分页文件功能(0个评论)
    • gmail发邮件报错:534 5.7.9 Application-specific password required...解决方案(0个评论)
    • 欧盟关于强迫劳动的规定的官方举报渠道及官方举报网站(0个评论)
    • 在go语言中使用github.com/signintech/gopdf实现生成pdf文件功能(0个评论)
    • 近期评论
    • 122 在

      学历:一种延缓就业设计,生活需求下的权衡之选中评论 工作几年后,报名考研了,到现在还没认真学习备考,迷茫中。作为一名北漂互联网打工人..
    • 123 在

      Clash for Windows作者删库跑路了,github已404中评论 按理说只要你在国内,所有的流量进出都在监控范围内,不管你怎么隐藏也没用,想搞你分..
    • 原梓番博客 在

      在Laravel框架中使用模型Model分表最简单的方法中评论 好久好久都没看友情链接申请了,今天刚看,已经添加。..
    • 博主 在

      佛跳墙vpn软件不会用?上不了网?佛跳墙vpn常见问题以及解决办法中评论 @1111老铁这个不行了,可以看看近期评论的其他文章..
    • 1111 在

      佛跳墙vpn软件不会用?上不了网?佛跳墙vpn常见问题以及解决办法中评论 网站不能打开,博主百忙中能否发个APP下载链接,佛跳墙或极光..
    • 2016-10
    • 2016-11
    • 2017-07
    • 2017-08
    • 2017-09
    • 2018-01
    • 2018-07
    • 2018-08
    • 2018-09
    • 2018-12
    • 2019-01
    • 2019-02
    • 2019-03
    • 2019-04
    • 2019-05
    • 2019-06
    • 2019-07
    • 2019-08
    • 2019-09
    • 2019-10
    • 2019-11
    • 2019-12
    • 2020-01
    • 2020-03
    • 2020-04
    • 2020-05
    • 2020-06
    • 2020-07
    • 2020-08
    • 2020-09
    • 2020-10
    • 2020-11
    • 2021-04
    • 2021-05
    • 2021-06
    • 2021-07
    • 2021-08
    • 2021-09
    • 2021-10
    • 2021-12
    • 2022-01
    • 2022-02
    • 2022-03
    • 2022-04
    • 2022-05
    • 2022-06
    • 2022-07
    • 2022-08
    • 2022-09
    • 2022-10
    • 2022-11
    • 2022-12
    • 2023-01
    • 2023-02
    • 2023-03
    • 2023-04
    • 2023-05
    • 2023-06
    • 2023-07
    • 2023-08
    • 2023-09
    • 2023-10
    • 2023-12
    • 2024-02
    • 2024-04
    • 2024-05
    • 2024-06
    • 2025-02
    • 2025-07
    Top

    Copyright·© 2019 侯体宗版权所有· 粤ICP备20027696号 PHP交流群

    侯体宗的博客