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

        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