📄 install.asp
字号:
<!-- #include file="setup.asp" -->
<%
youip="127.0.0.1" '您本机的IP地址
if adminpassword<>"" and remoteaddr<>youip then
error("<li>为了安全起见，请编辑 <font color=red>install.asp</font> 内本机的IP地址<li>请把它设置成 <font color=red>"&remoteaddr&"</font>")
end if
if Request("menu")="ok" then
if Request("administrators")<>"" then
administrators2="|"&replace(Request("administrators"),"||","|")&"|"
master=split(administrators2,"|")
for i = 1 to ubound(master)-1
sql="select * from user where username='"&master(i)&"'"
rs.Open sql,Conn
if rs.eof and master(i)<>"" then
message=message&"<li>"&master(i)&"的用户资料还未<a target=_blank href=register.asp?username="&master(i)&">注册</a>"
error(""&message&"")
end if
rs.close
next
end if
rs.Open "clubconfig",Conn,1,3
if rs("administrators")<>"" then
master=split(rs("administrators"),"|")
for i = 1 to ubound(master)-1
conn.execute("update [user] set membercode=1,levelname='普通会员',levelimage='<img src=images/level1.gif>' where username='"&master(i)&"'")
next
end if
administrators2="|"&replace(Request("administrators"),"||","|")&"|"
rs("administrators")=replace(administrators2,"||","|")
rs("adminpassword")=Request("adminpassword")
rs("clubname")=Request("clubname")
rs("cluburl")=Request("cluburl")
rs.update
if rs("administrators")<>"" then
master=split(rs("administrators"),"|")
for i = 1 to ubound(master)-1
conn.execute("update [user] set membercode=5,levelname='社区区长',levelimage='<img src=images/level14.gif>' where username='"&master(i)&"'")
next
end if
rs.close
succtitle="安装成功"
message=message&"<li><a href=admin.asp>返回社区管理</a><li><a href=index.asp>返回论坛首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=admin.asp>")
end if
top
%>
<HTML><META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href=images/bbs.css rel=stylesheet>
<title>安装BBSXP...</title><br><form method="post"><input type="hidden" value="ok" name="menu"> </div>
<center><table cellSpacing="0" cellPadding="3" width="160" border="0">
<tr>
<td width="626" bordercolor="#FFFFFF">
<table width=435 style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0"><tbody>
<tr>
<td align=center width=460 colspan="2" height="25" background=images/title_sub.gif><p><b><font color="#ffffff">
安装BBSXP</font></b></p></td>
</tr>
<tr>
<td align=right width=80 bgcolor="#DAE1EF" height="20">社区名称：</td>
<td width=300 bgcolor="#DAE1EF" height="20">
<input name=clubname size=20 value="<%=clubname%>"></td>
</tr>
<tr>
<td align=right width=80 bgcolor="#DAE1EF" height="20">社区 URL：</td>
<td width=300 bgcolor="#EFF2F8" height="20">
<input name=cluburl size=40 value="<%=cluburl%>"></td>
</tr>
<tr><td align=right width=80 bgcolor="#E4EAF3" height="20">社区区长：</td>
<td width=300 bgcolor="#E4EAF3" height="20">
<input name=administrators size="20" value="<%=administrators%>"> 多区长添加请用“|”分隔</td></tr>
<tr><td align=right width=80 bgcolor="#EFF2F8" height="20">社区密码：</td>
<td width=300 bgcolor="#EFF2F8" height="20">
<input name=adminpassword type=password size="20"> <input type="submit" value=" 下一步 "></td></tr>
</tbody></table>
</td></tr></table></FORM>
注：<a target="_blank" href="register.asp">如果区长用户名还没有注册请点击这里进行注册</a>
<p>
<font color="#c0c0c0">Powered by <a target="_blank" href="http://www.yuzi.net"><font color="#c0c0c0">www.yuzi.net</font></a>
© 1998-2002</font></p>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -