kesion科訊V4.0管理員Key工具
2024-05-04 11:01:18
供稿：網友
操作說明，請仔細閱讀操作說明后進行操作：
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()
