kesion科讯V4.0管理员Key工具_ASP教程-查字典教程网

摘要：操作说明，请仔细阅读操作说明后进行操作：1、请把压缩包中的key.asp文件上传到KesionCMS根目录下。2、运行key.asp后选择您...

操作说明，请仔细阅读操作说明后进行操作：

1、请把压缩包中的key.asp文件上传到KesionCMS根目录下。

2、运行key.asp后选择您所需要的选项。

3、注意：使用完毕后请点击“删除Key文件”或在FTP中删除key.asp文件以防留有后门。

4、功能简介：

A在删除了所有管理员情况下，新建管理员帐号。

B修改后台管理员的登录名称和密码。

C商业用户注册码修改。

复制代码代码如下:

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

<%optionexplicit

Response.Buffer=true%>

'****************************************************

'Softwarename:KesionCMS4.0

'Email:service@kesion.com.QQ:111394,9537636

'Web:http://www.kesion.comhttp://www.kesion.cn

'Copyright(C)KesionNetworkAllRightsReserved.

'****************************************************

DimKSCls

SetKSCls=NewInstall

KSCls.Kesion()

SetKSCls=Nothing

ClassInstall

PrivateKS

PrivateSqlStr,RS,InstallDir,FsoIndexFile,FsoIndexExt,AdminDirStr,CurrPath,Step

PrivateSubClass_Initialize()

SetKS=NewPublicCls

EndSub

PrivateSubClass_Terminate()

CallCloseConn()

SetKS=Nothing

EndSub

SubKesion

<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.0Transitional//EN">

<HTMLxmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE>科汛网站管理系统V4.0系列产品安装程序</TITLE>

<METAhttp-equiv=Content-Typecontent="text/html;charset=GB2312">

<scriptsrc="<%=AdminDirStr%>/JS/Common.js"language="JavaScript"></script>

<ScriptLanguage="javascript">

</Script>

<styletype="text/css">

</style></HEAD>

<BODY>

<tablewidth="700"border="1"align="center"cellpadding="1"cellspacing="6"bordercolor="#CCCCCC">

<tr>

<tdwidth="682"height="22"bgcolor="#F0F0F0"><TABLEwidth="98%"border=0cellPadding=0cellSpacing=1class=Table1>

<TBODY>

<TR>

<THnoWrapclass=Link><Ahref="http://www.kesion.com"target="_blank">官方网站</A><Ahref="http://bbs.kesion.com"target="_blank">技术论坛</A><Ahref="http://help.kesion.com"target="_blank">帮助中心</A><Ahref="http://test.kesion.com"target="_blank">演示站点</A></TH>

<THwidth=404align="center"noWrapclass=Link><divalign="right"><strong>当前版本:</strong>V4.0<strong>官方版本:</strong>

<scriptsrc="http://www.kesion.com/websystem/showver.asp"></script></TH>

</TR>

</TBODY>

</TABLE></td>

</tr>

<tr>

<tdwidth="682"height="30"align="center"bgcolor="#333399">

<tablewidth="100%"border="0"cellspacing="0"cellpadding="0">

<tr>

<tdalign="center"><spanclass="STYLE1"><strong>KesionCMSV4.0Key管理员工具</strong></span></td>

</tr>

</table></td>

</tr>

<trbgcolor="#F0F0F0"id="ShowSetup">

<tdheight="250">

<divstyle="color:red;font-weight:bold;text-align:center;padding:5px;">温馨提示：为了系统的安全，请使用后一定要删除该文件。</div>

<br>

<%selectcaserequest("action")

case"AddAdmin"

CallAddAdmin()

Case"AddSave"

CallSaveInfo()

Case"EditAdmin"

CallEditAdmin()

Case"EditSave"

CallEditSave()

Case"EditSiteSN"

CallEditSiteSN()

Case"EditSN"

CallEditSN()

Case"Del"

CurrPath=KS.Setting(3)

CallKS.DeleteFile(CurrPath&"key.asp")

Response.RedirectKS.Setting(89)&"Login.asp"

CaseElse

CallMain()

EndSelect

</tr>

</table>

<tablewidth="700"border="0"align="center"cellpadding="0"cellspacing="0">

<tr>

<tdheight="10"align="right"></td>

</tr>

<tr>

<tdalign="center"valign="bottom">Poweredby<ahref="http://www.kesion.com/"target="_blank"><strong>Kesion.Com</a>

</td>

</tr>

</table>

<TABLEclass=Table0cellSpacing=0cellPadding=0align=centerborder=0>

<TBODY>

<TR>

<TDclass=Table0height=1></TD></TR></TBODY></TABLE>

</BODY>

</HTML>

EndSub

SubSaveInfo()

ifnotconn.execute("selectusernamefromks_adminwhereSuperTF='1'").eofthen

CallKS.AlertHistory("设置失败:nn对不起，系统已存在超级管理账号！","-1")

Response.End

endif

DimPreUserName,UserName,PassWord,ConPassWord,UserRS

PreUserName=KS.S("PreUserName")

IFPreUserName=""then

CallKS.AlertHistory("设置失败:nn没有输入前台会员账号，请输入！","-1")

Response.End

EndIf

IfConn.Execute("Select*FromKS_UserWhereUserName='"&PreUserName&"'").eofthen

CallKS.AlertHistory("设置失败:nn前台用户不存在，请重新输入！","-1")

Response.End

endif

UserName=KS.S("UserName")

IFUserName=""then

CallKS.AlertHistory("设置失败:nn没有输入管理账号，请输入！","-1")

Response.End

EndIf

PassWord=KS.S("PassWord")

IFPassWord=""then

CallKS.AlertHistory("设置失败:nn没有输入管理密码，请输入！","-1")

Response.End

EndIf

IFLen(PassWord)<6then

CallKS.AlertHistory("设置失败:nn密码不能少于6位，请重新输入！","-1")

Response.End

EndIf

ConPassWord=KS.S("ConPassWord")

IFPassWord<>ConPassWordthen

CallKS.AlertHistory("设置失败:nn两次输入密码不一致，请重新输入！","-1")

Response.End

EndIf

PassWord=MD5(KS.R(Request.form("PassWord")),16)

SetUserRS=Server.CreateObject("ADODB.RECORDSET")

UserRS.Open"Select*FromKS_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

SetUserRS=Nothing

Conn.Execute("UpdateKS_UserSetGroupID=4whereusername='"&PreUserName&"'")

KS.DelCaches(KS.SiteSN)

response.write"<divalign='center'>恭喜，后台管理员设置成功！<br><ahref="""&KS.Setting(89)&"login.asp"">进入后台</a>|<ahref=""?action=Del"">删除Key文件</a></div>"

EndSub

SubEditSave()

DimUserName,password,conpassword

UserName=KS.S("UserName")

IFUserName=""then

CallKS.AlertHistory("设置失败:nn没有输入管理账号，请输入！","-1")

Response.End

EndIf

Conn.Execute("UpdateKS_AdminSetUserName='"&UserName&"'WhereSupertf='1'")

PassWord=KS.S("PassWord")

IFPassWord<>""then

IFLen(PassWord)<6then

CallKS.AlertHistory("设置失败:nn密码不能少于6位，请重新输入！","-1")

Response.End

EndIf

ConPassWord=KS.S("ConPassWord")

IFPassWord<>ConPassWordthen

CallKS.AlertHistory("设置失败:nn两次输入密码不一致，请重新输入！","-1")

Response.End

EndIf

PassWord=MD5(KS.R(Request.form("PassWord")),16)

Conn.Execute("UpdateKS_AdminSet[password]='"&password&"'WhereSupertf='1'")

EndIf

response.write"<divalign='center'>恭喜，后台管理员修改成功！<br><ahref="""&KS.Setting(89)&"login.asp"">进入后台</a>|<ahref=""?action=Del"">删除Key文件</a></div>"

EndSub

SubEditSN()

DimRS:SetRS=Server.CreateObject("ADODB.RECORDSET")

RS.Open"SelectSettingFromKS_Config",conn,1,3

DimSetArr,SetStr,I

SetArr=Split(RS(0),"^%^")

ForI=0ToUbound(SetArr)

IfI=0Then

SetStr=SetArr(0)

ElseIfI=17Then

SetStr=SetStr&"^%^"&request("sn")

Else

SetStr=SetStr&"^%^"&SetArr(I)

EndIf

RS(0)=SetStr

RS.Update

RS.Close:SetRS=Nothing

CallKS.DelCahe(KS.SiteSn&"_Config")

CallKS.DelCahe(KS.SiteSn&"_Date")

response.write"<divalign='center'>恭喜，授权系统号修改成功！<br><ahref="""&KS.Setting(89)&"login.asp"">进入后台</a>|<ahref=""?action=Del"">删除Key文件</a></div>"

EndSub

SubMain()

<tablewidth="95%"border="0"align="center"cellpadding="1"cellspacing="1"bgcolor="#666666">

<tralign="right">

<tdheight="5"colspan="3"bgcolor="#0066CC"></td>

</tr>

<formname="SetWebInfoForm"method="post"action=""onSubmit="return(CheckForm())">

<inputtype="hidden"value="Save"name="Action">

<tr>

<tdwidth="17%"height="35"align="right"bgcolor="#FFFFFF"><strong>新建超级管理员：</strong></td>

<tdwidth="41%"bgcolor="#FFFFFF">重新建立新的超级管理员帐号</td>

<tdwidth="42%"bgcolor="#FFFFFF">

<%dimrsc:setrsc=conn.execute("selectusernamefromks_adminwhereSuperTF='1'")

ifrsc.eofthen%>

<inputtype="button"value="开始新建"onClick="location.href='?action=AddAdmin';">

<%else%>

<inputtype="button"value="禁止新建"disabled><fontcolor=#a7a7a7>系统已存在<%=rsc("username")%>的超级用户</font>

<%endif%>

</td>

</tr>

<tr>

<tdheight="35"align="right"bgcolor="#FFFFFF"><strong>修改管理员：</strong></td>

<tdbgcolor="#FFFFFF">修改超级管理员登录名及登录密码</td>

<tdbgcolor="#FFFFFF">

<inputname="button"type="button"value="开始修改"onClick="location.href='?action=EditAdmin';"></td>

</tr>

<tr>

<tdheight="35"align="right"bgcolor="#FFFFFF"><strong>修改授权注册码：</strong></td>

<tdbgcolor="#FFFFFF">修改官方授权唯一的注册码</td>

<tdbgcolor="#FFFFFF">

<inputname="button2"type="button"value="开始修改"onClick="location.href='?action=EditSiteSN';"></td>

</tr>

<tralign="right">

<tdheight="5"colspan="3"bgcolor="#0066CC"></td>

</tr>

</form>

</table>

EndSub

SubAddAdmin()

<tablewidth="95%"border="0"align="center"cellpadding="1"cellspacing="1"bgcolor="#666666">

<tralign="right">

<tdheight="5"colspan="2"bgcolor="#0066CC"></td>

</tr>

<formname="SetWebInfoForm"method="post"action="?action=AddSave">

<tr>

<tdwidth="17%"height="35"align="right"bgcolor="#FFFFFF"><strong>前台用户名：</strong></td>

<tdwidth="41%"bgcolor="#FFFFFF"><inputtype="text"name="preusername"size=12>(前台注册的用户名)</td>

</tr>

<tr>

<tdheight="35"align="right"bgcolor="#FFFFFF"><strong>管理员登录名：</strong></td>

<tdbgcolor="#FFFFFF"><inputtype="text"name="username"size=12></td>

</tr>

<tr>

<tdheight="35"align="right"bgcolor="#FFFFFF"><strong>登录密码：</strong></td>

<tdbgcolor="#FFFFFF"><inputtype="password"name="password"size=12>(长度不能小于6)</td>

</tr>

<tr>

<tdheight="35"align="right"bgcolor="#FFFFFF"><strong>确认密码：</strong></td>

<tdbgcolor="#FFFFFF"><inputtype="password"name="conpassword"size=12>(长度不能小于6)</td>

</tr>

<tralign="right">

<tdheight="5"colspan="2"bgcolor="#0066CC"></td>

</tr>

<tralign="center">

<tdheight="25"colspan="2"bgcolor="#ffffff"><inputtype="submit"value="确认增加"></td>

</tr>

</form>

</table>

EndSub

SubEditAdmin()

<tablewidth="95%"border="0"align="center"cellpadding="1"cellspacing="1"bgcolor="#666666">

<tralign="right">

<tdheight="5"colspan="2"bgcolor="#0066CC"></td>

</tr>

<formname="SetWebInfoForm"method="post"action="?action=EditSave">

<tr>

<tdheight="35"align="right"bgcolor="#FFFFFF"><strong>管理员登录名：</strong></td>

<tdbgcolor="#FFFFFF"><inputvalue="<%=conn.execute("selectusernamefromks_adminwheresupertf='1'")(0)%>"type="text"name="username"size=12></td>

</tr>

<tr>

<tdheight="35"align="right"bgcolor="#FFFFFF"><strong>登录密码：</strong></td>

<tdbgcolor="#FFFFFF"><inputtype="password"name="password"size=12>(长度不能小于6)不想修改请留空</td>

</tr>

<tr>

<tdheight="35"align="right"bgcolor="#FFFFFF"><strong>确认密码：</strong></td>

<tdbgcolor="#FFFFFF"><inputtype="password"name="conpassword"size=12>(长度不能小于6)不想修改请留空</td>

</tr>

<tralign="right">

<tdheight="5"colspan="2"bgcolor="#0066CC"></td>

</tr>

<tralign="center">

<tdheight="25"colspan="2"bgcolor="#ffffff"><inputtype="submit"value="确认修改"></td>

</tr>

</form>

</table>

EndSub

SubEditSiteSN()

<tablewidth="95%"border="0"align="center"cellpadding="1"cellspacing="1"bgcolor="#666666">

<tralign="right">

<tdheight="5"colspan="2"bgcolor="#0066CC"></td>

</tr>

<formname="SetWebInfoForm"method="post"action="?action=EditSN">

<tr>

<tdheight="35"align="right"bgcolor="#FFFFFF"><strong>授权系统号：</strong></td>

<tdbgcolor="#FFFFFF"><inputvalue="<%=ks.setting(17)%>"type="text"name="sn"size=40></td>

</tr>

<tralign="right">

<tdheight="5"colspan="2"bgcolor="#0066CC"></td>

</tr>

<tralign="center">

<tdheight="25"colspan="2"bgcolor="#ffffff"><inputtype="submit"value="确认修改"></td>

</tr>

</form>

</table>

EndSub

EndClass