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

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