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: service@kesion.com . 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.w3.org/1999/xhtml"><HEAD><TITLE>科汛网站管理系统V4.0系列产品安装程序</TITLE>
    <META http-equiv=Content-Type content="text/html; charset=GB2312">
    <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 href="http://www.kesion.com" target="_blank">官方网站</A> <A href="http://bbs.kesion.com" target="_blank">技术论坛</A>          <A href="http://help.kesion.com" target="_blank">帮助中心</A>            <A href="http://test.kesion.com" 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 href="http://www.kesion.com/" 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.href='?action=AddAdmin';">
           <%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.href='?action=EditAdmin';"></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.href='?action=EditSiteSN';"></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
%>

(0)

相关推荐

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

    操作说明,请仔细阅读操作说明后进行操作: 1.请把压缩包中的key.asp文件上传到KesionCMS根目录下. 2.运行key.asp后选择您所需要的选项. 3.注意:使用完毕后请点击"删除Key文件"或在FTP中删除key.asp文件以防留有后门. 4.功能简介: A 在删除了所有管理员情况下,新建管理员帐号. B 修改后台管理员的登录名称和密码. C 商业用户注册码修改. 复制代码 代码如下: <%@LANGUAGE="VBSCRIPT" CODEPAG

  • kesion 科讯不用登录实现digg的修改方法

    找到安装目录下的Plus/Digg.asp文件,找到第26行的If KSUser.UserLoginChecked()=false Then替换为我改成了If KSUser.UserLoginChecked()=false and KSUser.UserLoginChecked()=True Then(什么都没删除).登录能DIG不登录也能DIG,不重复DIG.

  • 用科讯4.0发现的一些缩略图的bug

    上传图片时发现的错误Persits.Jpeg.1 错误 '800a0002' 系统找不到指定的文件. E:\WWWROOT\FTPPCQCNEW\WWWROOT\ADMIN\INCLUDE\../../KS_Cls/KS.Thumbs.asp,行 192  临时解决方法:用编辑器中的上传图片上传一般即可解决此问题,等官方解决吧

  • 科讯4.0 频道导航调用

    频道导航如下图中的"网站首页 福建新闻 美女图片 科汛理财 音乐在线 科汛影视 科汛商城 人才招聘 ...." 那么这些是如何在前台显示的呢? 首先,到系统后台各系统建频道,如:文章系统下添加"福建新闻,科汛理财",影视系统下添加"科汛影视",外部频道添加"网站首页,音乐在线,科汛论坛". 然后打开模板,在要显示频道导航的位置,插入{LB_频道导航}标签即可.

  • 昨天终于把科讯3.2成功升级到科讯sql 4.0商业版了-呵呵开心啊

    官方给出的文件,相对于科讯的3.2版本,改动较大,也更人性化了备注: 1.本软件提供ACCESS和SQL两个版本,请根据自己需要选择安装 2.后台路径:http://域名/admin/login.asp 3.进入后台后请到基本信息设置,将注册码填入. 4.本机调试请用localhost或127.0.0.1 5.相关事宜变动通知以科汛官方站点的公告为准 复制代码 代码如下: 1.错误提示: 更改 [KS_Article] 表中字段属性错误,请手动将数据库中 KeyWords 字段更改为 varch

  • 科讯商业版中用到的ajax空间与分页函数

    科讯sql商业版中用到的ajax空间与分页函数,他们的js代码学习是非常不错的//ajax 控件 function PageAjax(){     var xhrObj=null;     if(window.XMLHttpRequest)     {     xhrObj=new XMLHttpRequest();     }     else if(window.ActiveXObject)     {     try{     xhrObj=new ActiveXObject("Micro

  • 无法启动.NET Framework NGEN v4.0.30319_X86服务的解决方法

    无法启动 Microsoft .NET Framework NGEN v4.0.30319_X86服务..导致快速存储技术不无自动启动 .NET Runtime Optimization Service (clr_optimization_v2.0.50727_64) - Tried to start a service that wasn"t the latest version of CLR Optimization service. Will shutdown(glory69 ) 小昕:快

  • IIS7使用.NET Framework v4.0运行库报500错误的解决办法

    故障说明:1)Windows Server 2008 R2环境下安装的IIS7.52)安装.Net4.53)运行网站,报500错误:检查了webconfig等代码,没有问题 解决办法:重新注册.Net4.5,过程如下:一.开始,查找框中输入cmd字眼,然后出现cmd.exe应用程序二.cmd.exe上右键,选择用管理员身份来运行. 三.往命令行窗口中粘贴以下命令,回车,完成注册. 复制代码 代码如下: "%WINDIR%\Microsoft.NET\Framework\v4.0.30319\as

  • Kaspersky(卡巴斯基) KAV6.0/KIS6.0可用KEY(至2008-01-2)+序列号生成器 下载

    KAV 6.0 一组经验证的可用KEY: 其中: KAV6 2007-09-05-00079D82.key KAV6 2007-11-15-000BBAAB.key KAV6 2007-11-18-000BA4F3.key KAV6 2008-01-25-000A02EC-1.key KAV6 2008-01-25-00207C89-2.key KAV6 2008-01-25-00207F0D-2.key KAV6 2008-01-25-0023046D-2.key KAV6 2008-01-2

  • 全面优化V4.0及AJAX标签使用技巧

    众所周知.KesionCMS V4.0无论从功能上,还是从性能上都有了质的飞越.不再是以往版本1秒仅能生成1篇文章的系统了.但近期也发现有部分用户提到速度并没有多大提高.现在我大致给大家做个总结. 1.标签调用不合理 A.自定义静态标签(影响最大) 有些用户为了方便,大量使用了自定义静态标签.甚至将整个页面模板做成一个静态标签调用.更可怕的是在自定义静态标签里插入大量的系统函数标签,自定义SQL标签等. 经测试如果在自定义静态标签里插入系统函数标签和自定义sql标签,系统的生成速度将大打折扣.原

随机推荐