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

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%" bor