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中實現-函數/方法名作為參數傳入另一個函數

發表評論

共有條評論