kesion科讯V4.0管理员Key工具
2020-06-20 13:05:38
供稿：网友
操作说明，请仔细阅读操作说明后进行操作：
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()
