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

t;
</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