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

    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