当前位置: 首页 > 图文教程 > 网络编程 > ASP > kesion科讯V4.0管理员Key工具

ASP
ASP正则表达式技巧
ASP Access实现网站计数器（访问量）
ASP新闻分页，将一篇过长的文章分页，生成静态页面
一些关于asp 购物车的想法
一个sql查询器，自动画表格填字段
ASP实现文件直接下载的代码
把网页中的(电话，qq等数字)生成图片的ASP程序
asp长文章用分页符来分页显示
Asp函数介紹(37个常用函数)
ASP中的面向对象类
分页实现方法的性能比较
asp ajax跨域提交数据
asp修改文件和文件夹的名字的代码
ASP 多关键词查询实例代码
asp被杀毒软件误删的解决方法
asp 多关键词搜索的简单实现方法
asp 根据IP地址自动判断转向分站的代码
asp dictionary对象的用法
ASP 千万级数据分页的存储过程
ASP隐藏真实文件的下载功能实现代码

No. « 80 81 82 83 »

技术文章搜索

关键字

ASP 中的 kesion科讯V4.0管理员Key工具

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-13   浏览: 64 ::
收藏到网摘: n/a

操作说明，请仔细阅读操作说明后进行操作：
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: [email protected] . 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();
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="http://www.kesion.com/websystem/showver.asp"></script> </TH>
</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
%>