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

2024-05-04 10:57:53

字体：大中小

来源：转载

供稿：网友

操作说明，请仔细阅读操作说明后进行操作：
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%>



<%
'****************************************************
' 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;

上一篇：PostHttpPage用asp是实现模拟登录效果的代码

下一篇：在VBScript中实现-函数/方法名作为参数传入另一个函数

发表评论

共有条评论