kesion科讯V4.0管理员Key工具
鉴于大家对asp十分关注，我们编辑小组在此为大家搜集整理了“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();
re