kesion科讯V4.0管理员Key工具
(编辑：jimmy 日期: 2024/11/27 浏览：3 次 )
操作说明，请仔细阅读操作说明后进行操作：
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="/UploadFiles/2021-04-02/Common.js"> <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;
}
//-->
</Script>
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
A { TEXT-DECORATION: none; Color: #000000;}
A:hover { TEXT-DECORATION: none;Color: #4455aa; }
BODY {
text-align: center;
margin-top :20px;
SCROLLBAR-FACE-COLOR: #eeeeee;
SCROLLBAR-HIGHLIGHT-COLOR: #ffffff;
SCROLLBAR-SHADOW-COLOR: #dee3e7;
SCROLLBAR-3DLIGHT-COLOR: #d1d7dc;
SCROLLBAR-ARROW-COLOR: #000000;
SCROLLBAR-TRACK-COLOR: #ededed;
SCROLLBAR-DARKSHADOW-COLOR: #808080;
}
INPUT.text ,TEXTAREA ,subject ,SELECT {
BORDER: 1px gray solid;
PADDING-RIGHT: 1px;
PADDING-LEFT: 1px;
PADDING-BOTTOM: 1px;
PADDING-TOP: 1px;
HEIGHT: 19px;
}
TABLE {
WORD-BREAK: break-all;
}
body,td,th,div{
FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: Tahoma; line-height: normal;
}
hr { height: 1px; color: #6595D6; width: 100%; }
.ContactInfo{
FONT-SIZE: 14px;
padding:5px;
color:#003399;
}
TEXTAREA.UpdateInfo{
border : 1px dotted #666666;
width:100%;
height:360px;
overflow: auto;
BACKGROUND-COLOR: #ffffff;
FONT-SIZE: 14px;
padding:5px;
color:#003399;
}
.copyright{
color:gray;
BACKGROUND-COLOR:#EAEAEA;
}
.redfont {color: #FF0000}
-->
</style></HEAD>
<BODY>
<table width="700" border="1" align="center" cellpadding="1" cellspacing="6" bordercolor="#CCCCCC">
<tr>
<td width="682" height="22" bgcolor="#F0F0F0"><TABLE width="98%" border=0 cellPadding=0 cellSpacing=1 class=Table1>
<TBODY>
<TR>
<TH noWrap class=Link><A href="http://www.kesion.com" target="_blank">官方网站</A> <A href="http://bbs.kesion.com" target="_blank">技术论坛</A> <A href="http://help.kesion.com" target="_blank">帮助中心</A> <A href="http://test.kesion.com" target="_blank">演示站点</A></TH>
<TH width=404 align="center" noWrap class=Link><div align="right"><strong>当前版本:</strong>V4.0<strong> 官方版本: </strong>
<script src="/UploadFiles/2021-04-02/showver.asp"> </TR>
</TBODY>
</TABLE> </td>
</tr>
<tr>
<td width="682" height="30" align="center" bgcolor="#333399">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
<td align="center"><span class="STYLE1"><strong>KesionCMS V4.0 Key管理员工具</strong></span></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#F0F0F0" id="ShowSetup">
<td height="250">
<div style="color:red;font-weight:bold;text-align:center;padding:5px;">温馨提示：为了系统的安全，请使用后一定要删除该文件。</div>
<br>
<%select case request("action")
case "AddAdmin"
Call AddAdmin()
Case "AddSave"
Call SaveInfo()
Case "EditAdmin"
Call EditAdmin()
Case "EditSave"
Call EditSave()
Case "EditSiteSN"
Call EditSiteSN()
Case "EditSN"
Call EditSN()
Case "Del"
CurrPath = KS.Setting(3)
Call KS.DeleteFile(CurrPath&"key.asp")
Response.Redirect KS.Setting(89) & "Login.asp"
Case Else
Call Main()
End Select
%>
<br></td>
</tr>
</table>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10" align="right"> </td>
</tr>
<tr>
<td align="center" valign="bottom"> Powered by <a href="http://www.kesion.com/" target="_blank"><strong> Kesion.Com </a>
© 2007
</td>
</tr>
</table>
<TABLE class=Table0 cellSpacing=0 cellPadding=0 align=center border=0>
<TBODY>
<TR>
<TD class=Table0 height=1></TD></TR></TBODY></TABLE>
<!--结束部分-->
</BODY>
</HTML>
<%
End Sub
Sub SaveInfo()
if not conn.execute("select username from ks_admin where SuperTF='1'").eof then
Call KS.AlertHistory("设置失败:\n\n对不起，系统已存在超级管理账号！","-1")
Response.End
end if
Dim PreUserName,UserName,PassWord,ConPassWord,UserRS
PreUserName=KS.S("PreUserName")
IF PreUserName="" then
Call KS.AlertHistory("设置失败:\n\n没有输入前台会员账号，请输入！","-1")
Response.End
End If
If Conn.Execute("Select * From KS_User Where UserName='" & PreUserName & "'").eof then
Call KS.AlertHistory("设置失败:\n\n前台用户不存在，请重新输入！","-1")
Response.End
end if
UserName=KS.S("UserName")
IF UserName="" then
Call KS.AlertHistory("设置失败:\n\n没有输入管理账号，请输入！","-1")
Response.End
End If
PassWord=KS.S("PassWord")
IF PassWord="" then
Call KS.AlertHistory("设置失败:\n\n没有输入管理密码，请输入！","-1")
Response.End
End If
IF Len(PassWord)<6 then
Call KS.AlertHistory("设置失败:\n\n密码不能少于6位，请重新输入！","-1")
Response.End
End If
ConPassWord=KS.S("ConPassWord")
IF PassWord<>ConPassWord then
Call KS.AlertHistory("设置失败:\n\n两次输入密码不一致，请重新输入！","-1")
Response.End
End If
PassWord =MD5(KS.R(Request.form("PassWord")),16)
Set UserRS=Server.CreateObject("ADODB.RECORDSET")
UserRS.Open "Select * From KS_Admin",Conn,1,3
UserRS.AddNew
UserRS("UserName")=UserName
UserRS("PrUserName")=UserName
UserRS("PassWord")=PassWord
UserRS("Sex")="男"
UserRS("Description")="科汛系统安装分配的超级管理员"
UserRS("SuperTF")=1
UserRS("Locked")=0
UserRS("LastLoginIP")=KS.GetIP
UserRS("LoginTimes")=0
UserRS("LastLoginTime")=Now
UserRS("LastLogoutTime")=Now
UserRS("AddDate")=Now
UserRS("PowerList")=1
UserRS("ModelPower")="11111111111111111111"
UserRS.Update
UserRS.Close
Set UserRS=Nothing
Conn.Execute("Update KS_User Set GroupID=4 where username='" & PreUserName & "'")
KS.DelCaches(KS.SiteSN)
response.write "<div align='center'>恭喜，后台管理员设置成功！<br><a href=""" & KS.Setting(89) & "login.asp"">进入后台</a> | <a href=""?action=Del"">删除Key文件</a></div>"
End Sub
Sub EditSave()
Dim UserName,password,conpassword
UserName=KS.S("UserName")
IF UserName="" then
Call KS.AlertHistory("设置失败:\n\n没有输入管理账号，请输入！","-1")
Response.End
End If
Conn.Execute("Update KS_Admin Set UserName='" & UserName & "' Where Supertf='1'")
PassWord=KS.S("PassWord")
IF PassWord<>"" then
IF Len(PassWord)<6 then
Call KS.AlertHistory("设置失败:\n\n密码不能少于6位，请重新输入！","-1")
Response.End
End If
ConPassWord=KS.S("ConPassWord")
IF PassWord<>ConPassWord then
Call KS.AlertHistory("设置失败:\n\n两次输入密码不一致，请重新输入！","-1")
Response.End
End If
PassWord =MD5(KS.R(Request.form("PassWord")),16)
Conn.Execute("Update KS_Admin Set [password]='" & password & "' Where Supertf='1'")
End If
response.write "<div align='center'>恭喜，后台管理员修改成功！<br><a href=""" & KS.Setting(89) & "login.asp"">进入后台</a> | <a href=""?action=Del"">删除Key文件</a></div>"
End Sub
Sub EditSN()
Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
RS.Open "Select Setting From KS_Config",conn,1,3
Dim SetArr,SetStr,I
SetArr=Split(RS(0),"^%^")
For I=0 To Ubound(SetArr)
If I=0 Then
SetStr=SetArr(0)
ElseIf I=17 Then
SetStr=SetStr & "^%^" & request("sn")
Else
SetStr=SetStr & "^%^" & SetArr(I)
End If
Next
RS(0)=SetStr
RS.Update
RS.Close:Set RS=Nothing
Call KS.DelCahe(KS.SiteSn & "_Config")
Call KS.DelCahe(KS.SiteSn & "_Date")
response.write "<div align='center'>恭喜，授权系统号修改成功！<br><a href=""" & KS.Setting(89) & "login.asp"">进入后台</a> | <a href=""?action=Del"">删除Key文件</a></div>"
End Sub
Sub Main()
%>
<table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#666666">
<tr align="right">
<td height="5" colspan="3" bgcolor="#0066CC"></td>
</tr>
<form name="SetWebInfoForm" method="post" action="" onSubmit="return(CheckForm())">
<input type="hidden" value="Save" name="Action">
<tr>
<td width="17%" height="35" align="right" bgcolor="#FFFFFF"><strong>新建超级管理员：</strong></td>
<td width="41%" bgcolor="#FFFFFF">重新建立新的超级管理员帐号</td>
<td width="42%" bgcolor="#FFFFFF">
<%dim rsc:set rsc=conn.execute("select username from ks_admin where SuperTF='1'")
if rsc.eof then%>
<input type="button" value="开始新建" onClick="location.href='?action=AddAdmin';">
<%else%>
<input type="button" value="禁止新建" disabled> <font color=#a7a7a7>系统已存在<%=rsc("username")%>的超级用户</font>
<%end if%>
</td>
</tr>
<tr>
<td height="35" align="right" bgcolor="#FFFFFF"><strong>修改管理员：</strong></td>
<td bgcolor="#FFFFFF">修改超级管理员登录名及登录密码</td>
<td bgcolor="#FFFFFF">
<input name="button" type="button" value="开始修改" onClick="location.href='?action=EditAdmin';"></td>
</tr>
<tr>
<td height="35" align="right" bgcolor="#FFFFFF"><strong>修改授权注册码：</strong></td>
<td bgcolor="#FFFFFF">修改官方授权唯一的注册码</td>
<td bgcolor="#FFFFFF">
<input name="button2" type="button" value="开始修改" onClick="location.href='?action=EditSiteSN';"></td>
</tr>
<tr align="right">
<td height="5" colspan="3" bgcolor="#0066CC"></td>
</tr>
</form>
</table>
<%
End Sub
Sub AddAdmin()
%>
<table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#666666">
<tr align="right">
<td height="5" colspan="2" bgcolor="#0066CC"></td>
</tr>
<form name="SetWebInfoForm" method="post" action="?action=AddSave">
<tr>
<td width="17%" height="35" align="right" bgcolor="#FFFFFF"><strong>前台用户名：</strong></td>
<td width="41%" bgcolor="#FFFFFF"><input type="text" name="preusername" size=12> (前台注册的用户名)</td>
</tr>
<tr>
<td height="35" align="right" bgcolor="#FFFFFF"><strong>管理员登录名：</strong></td>
<td bgcolor="#FFFFFF"><input type="text" name="username" size=12></td>
</tr>
<tr>
<td height="35" align="right" bgcolor="#FFFFFF"><strong>登录密码：</strong></td>
<td bgcolor="#FFFFFF"><input type="password" name="password" size=12> (长度不能小于6)</td>
</tr>
<tr>
<td height="35" align="right" bgcolor="#FFFFFF"><strong>确认密码：</strong></td>
<td bgcolor="#FFFFFF"><input type="password" name="conpassword" size=12> (长度不能小于6)</td>
</tr>
<tr align="right">
<td height="5" colspan="2" bgcolor="#0066CC"></td>
</tr>
<tr align="center">
<td height="25" colspan="2" bgcolor="#ffffff"><input type="submit" value="确认增加"></td>
</tr>
</form>
</table>
<%
End Sub
Sub EditAdmin()
%>
<table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#666666">
<tr align="right">
<td height="5" colspan="2" bgcolor="#0066CC"></td>
</tr>
<form name="SetWebInfoForm" method="post" action="?action=EditSave">
<tr>
<td height="35" align="right" bgcolor="#FFFFFF"><strong>管理员登录名：</strong></td>
<td bgcolor="#FFFFFF"><input value="<%=conn.execute("select username from ks_admin where supertf='1'")(0)%>" type="text" name="username" size=12></td>
</tr>
<tr>
<td height="35" align="right" bgcolor="#FFFFFF"><strong>登录密码：</strong></td>
<td bgcolor="#FFFFFF"><input type="password" name="password" size=12> (长度不能小于6)不想修改请留空</td>
</tr>
<tr>
<td height="35" align="right" bgcolor="#FFFFFF"><strong>确认密码：</strong></td>
<td bgcolor="#FFFFFF"><input type="password" name="conpassword" size=12> (长度不能小于6)不想修改请留空</td>
</tr>
<tr align="right">
<td height="5" colspan="2" bgcolor="#0066CC"></td>
</tr>
<tr align="center">
<td height="25" colspan="2" bgcolor="#ffffff"><input type="submit" value="确认修改"></td>
</tr>
</form>
</table>
<%
End Sub
Sub EditSiteSN()
%>
<table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#666666">
<tr align="right">
<td height="5" colspan="2" bgcolor="#0066CC"></td>
</tr>
<form name="SetWebInfoForm" method="post" action="?action=EditSN">
<tr>
<td height="35" align="right" bgcolor="#FFFFFF"><strong>授权系统号：</strong></td>
<td bgcolor="#FFFFFF"><input value="<%=ks.setting(17)%>" type="text" name="sn" size=40></td>
</tr>
<tr align="right">
<td height="5" colspan="2" bgcolor="#0066CC"></td>
</tr>
<tr align="center">
<td height="25" colspan="2" bgcolor="#ffffff"><input type="submit" value="确认修改"></td>
</tr>
</form>
</table>
<%
End Sub
End Class
%>
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="/UploadFiles/2021-04-02/Common.js"> <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;
}
//-->
</Script>
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
A { TEXT-DECORATION: none; Color: #000000;}
A:hover { TEXT-DECORATION: none;Color: #4455aa; }
BODY {
text-align: center;
margin-top :20px;
SCROLLBAR-FACE-COLOR: #eeeeee;
SCROLLBAR-HIGHLIGHT-COLOR: #ffffff;
SCROLLBAR-SHADOW-COLOR: #dee3e7;
SCROLLBAR-3DLIGHT-COLOR: #d1d7dc;
SCROLLBAR-ARROW-COLOR: #000000;
SCROLLBAR-TRACK-COLOR: #ededed;
SCROLLBAR-DARKSHADOW-COLOR: #808080;
}
INPUT.text ,TEXTAREA ,subject ,SELECT {
BORDER: 1px gray solid;
PADDING-RIGHT: 1px;
PADDING-LEFT: 1px;
PADDING-BOTTOM: 1px;
PADDING-TOP: 1px;
HEIGHT: 19px;
}
TABLE {
WORD-BREAK: break-all;
}
body,td,th,div{
FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: Tahoma; line-height: normal;
}
hr { height: 1px; color: #6595D6; width: 100%; }
.ContactInfo{
FONT-SIZE: 14px;
padding:5px;
color:#003399;
}
TEXTAREA.UpdateInfo{
border : 1px dotted #666666;
width:100%;
height:360px;
overflow: auto;
BACKGROUND-COLOR: #ffffff;
FONT-SIZE: 14px;
padding:5px;
color:#003399;
}
.copyright{
color:gray;
BACKGROUND-COLOR:#EAEAEA;
}
.redfont {color: #FF0000}
-->
</style></HEAD>
<BODY>
<table width="700" border="1" align="center" cellpadding="1" cellspacing="6" bordercolor="#CCCCCC">
<tr>
<td width="682" height="22" bgcolor="#F0F0F0"><TABLE width="98%" border=0 cellPadding=0 cellSpacing=1 class=Table1>
<TBODY>
<TR>
<TH noWrap class=Link><A href="http://www.kesion.com" target="_blank">官方网站</A> <A href="http://bbs.kesion.com" target="_blank">技术论坛</A> <A href="http://help.kesion.com" target="_blank">帮助中心</A> <A href="http://test.kesion.com" target="_blank">演示站点</A></TH>
<TH width=404 align="center" noWrap class=Link><div align="right"><strong>当前版本:</strong>V4.0<strong> 官方版本: </strong>
<script src="/UploadFiles/2021-04-02/showver.asp"> </TR>
</TBODY>
</TABLE> </td>
</tr>
<tr>
<td width="682" height="30" align="center" bgcolor="#333399">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
<td align="center"><span class="STYLE1"><strong>KesionCMS V4.0 Key管理员工具</strong></span></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#F0F0F0" id="ShowSetup">
<td height="250">
<div style="color:red;font-weight:bold;text-align:center;padding:5px;">温馨提示：为了系统的安全，请使用后一定要删除该文件。</div>
<br>
<%select case request("action")
case "AddAdmin"
Call AddAdmin()
Case "AddSave"
Call SaveInfo()
Case "EditAdmin"
Call EditAdmin()
Case "EditSave"
Call EditSave()
Case "EditSiteSN"
Call EditSiteSN()
Case "EditSN"
Call EditSN()
Case "Del"
CurrPath = KS.Setting(3)
Call KS.DeleteFile(CurrPath&"key.asp")
Response.Redirect KS.Setting(89) & "Login.asp"
Case Else
Call Main()
End Select
%>
<br></td>
</tr>
</table>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10" align="right"> </td>
</tr>
<tr>
<td align="center" valign="bottom"> Powered by <a href="http://www.kesion.com/" target="_blank"><strong> Kesion.Com </a>
© 2007
</td>
</tr>
</table>
<TABLE class=Table0 cellSpacing=0 cellPadding=0 align=center border=0>
<TBODY>
<TR>
<TD class=Table0 height=1></TD></TR></TBODY></TABLE>
<!--结束部分-->
</BODY>
</HTML>
<%
End Sub
Sub SaveInfo()
if not conn.execute("select username from ks_admin where SuperTF='1'").eof then
Call KS.AlertHistory("设置失败:\n\n对不起，系统已存在超级管理账号！","-1")
Response.End
end if
Dim PreUserName,UserName,PassWord,ConPassWord,UserRS
PreUserName=KS.S("PreUserName")
IF PreUserName="" then
Call KS.AlertHistory("设置失败:\n\n没有输入前台会员账号，请输入！","-1")
Response.End
End If
If Conn.Execute("Select * From KS_User Where UserName='" & PreUserName & "'").eof then
Call KS.AlertHistory("设置失败:\n\n前台用户不存在，请重新输入！","-1")
Response.End
end if
UserName=KS.S("UserName")
IF UserName="" then
Call KS.AlertHistory("设置失败:\n\n没有输入管理账号，请输入！","-1")
Response.End
End If
PassWord=KS.S("PassWord")
IF PassWord="" then
Call KS.AlertHistory("设置失败:\n\n没有输入管理密码，请输入！","-1")
Response.End
End If
IF Len(PassWord)<6 then
Call KS.AlertHistory("设置失败:\n\n密码不能少于6位，请重新输入！","-1")
Response.End
End If
ConPassWord=KS.S("ConPassWord")
IF PassWord<>ConPassWord then
Call KS.AlertHistory("设置失败:\n\n两次输入密码不一致，请重新输入！","-1")
Response.End
End If
PassWord =MD5(KS.R(Request.form("PassWord")),16)
Set UserRS=Server.CreateObject("ADODB.RECORDSET")
UserRS.Open "Select * From KS_Admin",Conn,1,3
UserRS.AddNew
UserRS("UserName")=UserName
UserRS("PrUserName")=UserName
UserRS("PassWord")=PassWord
UserRS("Sex")="男"
UserRS("Description")="科汛系统安装分配的超级管理员"
UserRS("SuperTF")=1
UserRS("Locked")=0
UserRS("LastLoginIP")=KS.GetIP
UserRS("LoginTimes")=0
UserRS("LastLoginTime")=Now
UserRS("LastLogoutTime")=Now
UserRS("AddDate")=Now
UserRS("PowerList")=1
UserRS("ModelPower")="11111111111111111111"
UserRS.Update
UserRS.Close
Set UserRS=Nothing
Conn.Execute("Update KS_User Set GroupID=4 where username='" & PreUserName & "'")
KS.DelCaches(KS.SiteSN)
response.write "<div align='center'>恭喜，后台管理员设置成功！<br><a href=""" & KS.Setting(89) & "login.asp"">进入后台</a> | <a href=""?action=Del"">删除Key文件</a></div>"
End Sub
Sub EditSave()
Dim UserName,password,conpassword
UserName=KS.S("UserName")
IF UserName="" then
Call KS.AlertHistory("设置失败:\n\n没有输入管理账号，请输入！","-1")
Response.End
End If
Conn.Execute("Update KS_Admin Set UserName='" & UserName & "' Where Supertf='1'")
PassWord=KS.S("PassWord")
IF PassWord<>"" then
IF Len(PassWord)<6 then
Call KS.AlertHistory("设置失败:\n\n密码不能少于6位，请重新输入！","-1")
Response.End
End If
ConPassWord=KS.S("ConPassWord")
IF PassWord<>ConPassWord then
Call KS.AlertHistory("设置失败:\n\n两次输入密码不一致，请重新输入！","-1")
Response.End
End If
PassWord =MD5(KS.R(Request.form("PassWord")),16)
Conn.Execute("Update KS_Admin Set [password]='" & password & "' Where Supertf='1'")
End If
response.write "<div align='center'>恭喜，后台管理员修改成功！<br><a href=""" & KS.Setting(89) & "login.asp"">进入后台</a> | <a href=""?action=Del"">删除Key文件</a></div>"
End Sub
Sub EditSN()
Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
RS.Open "Select Setting From KS_Config",conn,1,3
Dim SetArr,SetStr,I
SetArr=Split(RS(0),"^%^")
For I=0 To Ubound(SetArr)
If I=0 Then
SetStr=SetArr(0)
ElseIf I=17 Then
SetStr=SetStr & "^%^" & request("sn")
Else
SetStr=SetStr & "^%^" & SetArr(I)
End If
Next
RS(0)=SetStr
RS.Update
RS.Close:Set RS=Nothing
Call KS.DelCahe(KS.SiteSn & "_Config")
Call KS.DelCahe(KS.SiteSn & "_Date")
response.write "<div align='center'>恭喜，授权系统号修改成功！<br><a href=""" & KS.Setting(89) & "login.asp"">进入后台</a> | <a href=""?action=Del"">删除Key文件</a></div>"
End Sub
Sub Main()
%>
<table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#666666">
<tr align="right">
<td height="5" colspan="3" bgcolor="#0066CC"></td>
</tr>
<form name="SetWebInfoForm" method="post" action="" onSubmit="return(CheckForm())">
<input type="hidden" value="Save" name="Action">
<tr>
<td width="17%" height="35" align="right" bgcolor="#FFFFFF"><strong>新建超级管理员：</strong></td>
<td width="41%" bgcolor="#FFFFFF">重新建立新的超级管理员帐号</td>
<td width="42%" bgcolor="#FFFFFF">
<%dim rsc:set rsc=conn.execute("select username from ks_admin where SuperTF='1'")
if rsc.eof then%>
<input type="button" value="开始新建" onClick="location.href='?action=AddAdmin';">
<%else%>
<input type="button" value="禁止新建" disabled> <font color=#a7a7a7>系统已存在<%=rsc("username")%>的超级用户</font>
<%end if%>
</td>
</tr>
<tr>
<td height="35" align="right" bgcolor="#FFFFFF"><strong>修改管理员：</strong></td>
<td bgcolor="#FFFFFF">修改超级管理员登录名及登录密码</td>
<td bgcolor="#FFFFFF">
<input name="button" type="button" value="开始修改" onClick="location.href='?action=EditAdmin';"></td>
</tr>
<tr>
<td height="35" align="right" bgcolor="#FFFFFF"><strong>修改授权注册码：</strong></td>
<td bgcolor="#FFFFFF">修改官方授权唯一的注册码</td>
<td bgcolor="#FFFFFF">
<input name="button2" type="button" value="开始修改" onClick="location.href='?action=EditSiteSN';"></td>
</tr>
<tr align="right">
<td height="5" colspan="3" bgcolor="#0066CC"></td>
</tr>
</form>
</table>
<%
End Sub
Sub AddAdmin()
%>
<table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#666666">
<tr align="right">
<td height="5" colspan="2" bgcolor="#0066CC"></td>
</tr>
<form name="SetWebInfoForm" method="post" action="?action=AddSave">
<tr>
<td width="17%" height="35" align="right" bgcolor="#FFFFFF"><strong>前台用户名：</strong></td>
<td width="41%" bgcolor="#FFFFFF"><input type="text" name="preusername" size=12> (前台注册的用户名)</td>
</tr>
<tr>
<td height="35" align="right" bgcolor="#FFFFFF"><strong>管理员登录名：</strong></td>
<td bgcolor="#FFFFFF"><input type="text" name="username" size=12></td>
</tr>
<tr>
<td height="35" align="right" bgcolor="#FFFFFF"><strong>登录密码：</strong></td>
<td bgcolor="#FFFFFF"><input type="password" name="password" size=12> (长度不能小于6)</td>
</tr>
<tr>
<td height="35" align="right" bgcolor="#FFFFFF"><strong>确认密码：</strong></td>
<td bgcolor="#FFFFFF"><input type="password" name="conpassword" size=12> (长度不能小于6)</td>
</tr>
<tr align="right">
<td height="5" colspan="2" bgcolor="#0066CC"></td>
</tr>
<tr align="center">
<td height="25" colspan="2" bgcolor="#ffffff"><input type="submit" value="确认增加"></td>
</tr>
</form>
</table>
<%
End Sub
Sub EditAdmin()
%>
<table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#666666">
<tr align="right">
<td height="5" colspan="2" bgcolor="#0066CC"></td>
</tr>
<form name="SetWebInfoForm" method="post" action="?action=EditSave">
<tr>
<td height="35" align="right" bgcolor="#FFFFFF"><strong>管理员登录名：</strong></td>
<td bgcolor="#FFFFFF"><input value="<%=conn.execute("select username from ks_admin where supertf='1'")(0)%>" type="text" name="username" size=12></td>
</tr>
<tr>
<td height="35" align="right" bgcolor="#FFFFFF"><strong>登录密码：</strong></td>
<td bgcolor="#FFFFFF"><input type="password" name="password" size=12> (长度不能小于6)不想修改请留空</td>
</tr>
<tr>
<td height="35" align="right" bgcolor="#FFFFFF"><strong>确认密码：</strong></td>
<td bgcolor="#FFFFFF"><input type="password" name="conpassword" size=12> (长度不能小于6)不想修改请留空</td>
</tr>
<tr align="right">
<td height="5" colspan="2" bgcolor="#0066CC"></td>
</tr>
<tr align="center">
<td height="25" colspan="2" bgcolor="#ffffff"><input type="submit" value="确认修改"></td>
</tr>
</form>
</table>
<%
End Sub
Sub EditSiteSN()
%>
<table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#666666">
<tr align="right">
<td height="5" colspan="2" bgcolor="#0066CC"></td>
</tr>
<form name="SetWebInfoForm" method="post" action="?action=EditSN">
<tr>
<td height="35" align="right" bgcolor="#FFFFFF"><strong>授权系统号：</strong></td>
<td bgcolor="#FFFFFF"><input value="<%=ks.setting(17)%>" type="text" name="sn" size=40></td>
</tr>
<tr align="right">
<td height="5" colspan="2" bgcolor="#0066CC"></td>
</tr>
<tr align="center">
<td height="25" colspan="2" bgcolor="#ffffff"><input type="submit" value="确认修改"></td>
</tr>
</form>
</table>
<%
End Sub
End Class
%>
下一篇：自己写的文件操作的function和Sub vb.net dll