<!-- #include file="Setup.asp" -->
<!-- #include file="inc/MD5.asp" -->
<%
youip="122.198.13.159" '您本机的IP地址
if SiteSettings("AdminPassword")<>"" and Request.ServerVariables("REMOTE_ADDR")<>youip then error("<li>为了安全起见，请编辑 <font color=red>Install.asp</font> 内本机的IP地址<li>请把它设置成 <font color=red>"&Request.ServerVariables("REMOTE_ADDR")&"</font>")

top

if Request("menu")="ok" then
Administrators=Request.Form("Administrators")
if Administrators="" then error("<li>您没有设置管理员")
if Request("Adminpassword")="" then error("<li>您没有设置管理密码")
If Conn.Execute("Select id From [BBSXP_Users] where UserName='"&Administrators&"'" ).eof Then error("<li>"&Administrators&"的用户资料还未<a href=CreateUser.asp>注册</a>")

Conn.execute("update [BBSXP_SiteSettings] set Adminpassword='"&MD5(Request("Adminpassword"))&"',SiteDisabled=0")
Conn.execute("update [BBSXP_Users] set UserRoleID=1 where UserName='"&Administrators&"'")

Message=Message&"<li>安装成功<li><a href=Admin_Default.asp target=_top>返回社区管理</a><li><a href=Default.asp>返回论坛首页</a>"
succeed(""&Message&"<meta http-equiv=refresh content=3;url=Default.asp>")
end if

%>
<title>安装TCBBS7.0SP3...</title>

<form method="POST"><input type="hidden" value="ok" name="menu">

<table cellspacing=1 cellpadding=5 border=0 width=100% class=a2>
<tr class=a1>
<td align=center colspan="2" height="25"><p><b>设置社区管理密码</b></p></td>
</tr>


<tr class=a3><td align=right width="40%">管 理 员：</td>
<td>
<input name=Administrators size="40"></td></tr>
<tr class=a3><td align=right width="40%">管理密码：</td>
<td>
<input name=Adminpassword type=password size="40"></td></tr>
<tr class=a3><td align=center colspan="2"><input type="submit" value=" 下一步 "></td>
</tr>
</table>
</FORM>
<center>注：<a href="CreateUser.asp">如果管理员用户名还没有注册请点击这里进行注册</a></center>
<%htmlend%>