⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 install.asp

📁 闻名一时的bbsxp超快论坛系统现在放出最新版2008版本给希望装论坛的朋友借鉴安装调试
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
%>

<div style="text-align:left;padding:40px;width:auto; background:#FFFFFF">
	<li>删除成功</li>
    <li>请<a href=javascript:history.go(-1)>返回</a></li>
</div>
<%
end Sub

Sub AddAdmin
%>
<form method="POST" action="?menu=AddAdminUp" style="margin:0px" onSubmit="return chkInput(this);">
<div style="text-align:left;padding:40px;width:auto; background:#FFFFFF">

<p style="font-size:10pt;"><b><u>第 5 步）设置管理员</u></b></p>

<table cellspacing=1 cellpadding=5 width=90% class=CommonListArea align="center">
	<tr class=CommonListTitle>
		<td align=center colspan="2">添加(更新)管理员</td>
	</tr>
	<tr class="CommonListCell"><td align=right width="40%"><b>用户名：</b></td>
		<td><input name=UserName size="40" /></td>
	</tr>
    
    
	<tr class="CommonListCell">
		<td align="right" valign="middle" width="23%"><b>密码：</b><br />密码必须至少包含 6 个字符</td>
	  <td align="Left" valign="middle" width="77%"><input type="password" name="UserPassword" size="40" maxlength="16" onkeyup=EvalPwd(this.value); onchange=EvalPwd(this.value); /></td>
	</tr>
	<tr class="CommonListCell">
		<td align="right"><b>密码强度：</b></td>
		<td align="Left" valign="middle" width="77%">
			<table border="0" width="250" cellspacing="1" cellpadding="2">
				<tr bgcolor="#f1f1f1">
					<td id=iWeak align="center">弱</td>
					<td id=iMedium align="center">中</td>
					<td id=iStrong align="center">强</td>
				</tr>
			</table>		</td>
	</tr>
	<tr class="CommonListCell">
		<td align="right" valign="middle" width="23%"><b>重新键入密码：</b><br />请与您的密码保持一致</td>
		<td align="Left" valign="middle" width="77%"><input type="password" name="RetypePassword" size="40" /></td>
	</tr> 

	<tr class="CommonListCell"><td align=right width="40%"><b>Email：</b></td>
		<td><input name=UserEmail size="40" /></td>
	</tr>
	<tr class="CommonListCell">
		<td align="right" valign="middle"><b>密码提示问题：</b><br>如果您忘记了密码，系统会向您询问机密答案</td>
		<td>
		<select name="PasswordQuestion" onChange="document.getElementById('PasswordQuestion2').style.display = this.options[this.selectedIndex].value=='Define' ? '':'none';">
			<option value="" selected="selected">选择一个</option>
			<option value="母亲的出生地点">母亲的出生地点</option>
			<option value="儿童时期最好的朋友">儿童时期最好的朋友</option>
			<option value="第一个宠物的名字">第一个宠物的名字</option>
			<option value="最喜欢的老师">最喜欢的老师</option>
			<option value="最喜欢的历史人物">最喜欢的历史人物</option>
			<option value="祖父的职业">祖父的职业</option>
			<option value="Define">自定义</option>
		</select>　<span id=PasswordQuestion2 style="display:none"><input type=text name=PasswordQuestion2 size=20 /></span>
		</td>
	</tr>
	<tr class="CommonListCell">
		<td align="right"><b>机密答案：</b></td>
		<td><input type="text" name="PasswordAnswer" size="40" /></td>
	</tr>
	<tr class=CommonListTitle>
		<td align=center colspan="2">目前已存在的管理员</td>
	</tr>

  <tr class="CommonListCell">
    <td colspan="2">
	<%
    sql="Select * from ["&TablePrefix&"Users] where UserRoleID=1"
Rs.open sql,conn,1
do while not rs.eof
%>
    
    <a target="_blank" href="Profile.asp?UID=<%=Rs("UserID")%>"><%=Rs("UserName")%></a>(<a href="?menu=DeleteAdmin&UserName=<%=Rs("UserName")%>" onClick="return window.confirm('您确定要去掉该管理员的权限?');">删除</a>)
<%
	Rs.movenext
loop
Rs.close
%>    
    
    </td>
  </tr>

</table>
</div>


<div style="width:auto; padding:10px;background:#698CC3; color:#FFFFFF; font-weight:bold; height:20px">
<div style="float:left"><input type="button" value="返回安装向导首页" onClick="window.location.href = '?';" /></div>
<div style="float:right"><input type="submit" value=" 完成 " /></div>
</div>
</form>
<br />

<script type="text/javascript" src="Utility/global.js"></script>
<script type="text/javascript" src="Utility/pswdplc.js"></script>
<script language="javascript" type="text/javascript">
function chkInput(form){
	if (form.UserName.value==''){
		alert('请输入管理员名称');
		return false;
	}
	if (form.UserPassword.value=='' || form.UserPassword.value.length<6){
		alert('请输入管理员密码(至少6个字符)！');
		return false;
	}
	if (form.UserPassword.value != form.RetypePassword.value){
		alert('您两次输入的密码不一样！');
		return false;
	}
	if (form.UserEmail.value=='' || form.UserEmail.value.indexOf('@')<1){
		alert('请正确输入你的邮箱');
		return false;
	}
	if (form.PasswordQuestion.value=='' && form.PasswordQuestion2.value==''){
		alert('请选择密码提示问题');
		return false;
	}
	if (form.PasswordAnswer.value=='' && form.PasswordAnswer.value==''){
		alert('请输入密码提示问题的答案');
		return false;
	}
	return true;
}
</script>
<%


End Sub





Sub SiteSetting
Script_Name=LCase(Request.ServerVariables("script_name"))
Server_Name=Request.ServerVariables("server_name")
DomainPath=Left(Script_Name,inStrRev(Script_Name,"/"))
if SiteConfig("SiteUrl")="" then
	SiteUrl="http://"&Server_Name&DomainPath
	SiteUrl=left(SiteUrl,len(SiteUrl)-1)
else
	SiteUrl=SiteConfig("SiteUrl")
end if
%>
<form method="POST" action="?menu=SiteSettingUp" style="margin:0px" onSubmit="return chkInput(this);">
<div style="text-align:left;padding:40px;width:auto; background:#FFFFFF">

<p style="font-size:10pt;"><b><u>第 4 步）获取默认设置</u></b></p>

<table cellspacing=1 cellpadding=5 width=90% class=CommonListArea align="center">
	<tr class=CommonListTitle>
		<td align=center colspan="2">常规设置</td>
	</tr>
	<tr class=CommonListCell>
		<td width="50%"><b>论坛名称</b><br>论坛名称，它将在论坛所有页面的浏览器窗口标题中显示。</td>
		<td><input size="30" name="SiteName" value="<%=SiteConfig("SiteName")%>" /></td>
	</tr>


	<tr class=CommonListCell>
		<td><b>论坛网址</b><br>您访问这个论坛的网址。注意: 不要以斜杠 (“/”) 结尾。</td>
		<td><input size="30" name="SiteUrl" value="<%=SiteUrl%>" /></td>
	</tr>
	<tr class=CommonListCell>
		<td><b>网站管理员电子邮件地址</b><br>网站管理员的电子邮件地址。</td>
		<td><input size="30" value="<%=SiteConfig("WebMasterEmail")%>" name="WebMasterEmail" /></td>
	</tr>

	<tr class=CommonListCell>
		<td><b>公司/组织名称</b><br>您的主页名称，显示在论坛每一页底部。</td>
		<td><input size="30" name="CompanyName" value="<%=SiteConfig("CompanyName")%>" /></td>
	</tr>
	<tr class=CommonListCell>
		<td><b>公司/组织网址</b><br>您主页的网址，显示在论坛每一页底部。</td>
		<td><input size="30" value="<%=SiteConfig("CompanyURL")%>" name="CompanyURL" /></td>
	</tr>
	

	<tr class=CommonListCell>
		<td><b>Cookies 保存路径</b><br>Cookie 保存的路径。如果您在同一个域名下运行了多个论坛，便需要将它设置为每个论坛所在的目录名。否则，填写 / 便可以了。<br><br><font color=red>输入错误的路径，会导致您无法登录论坛。</font></td>
		<td>
		<select name="CookiePath" size="1">
		<option value="/">/</option>
		<option value="<%=DomainPath%>" <%if SiteConfig("CookiePath")=DomainPath then%>selected<%end if%>><%=DomainPath%></option>
		</select></td>
	</tr>
	<tr class=CommonListCell>
		<td><b>Cookies 域名</b><br>Cookie 所影响的域名。修改此选项默认值最常见的原因是，您的论坛有两个不同的网址，例如 bbsxp.com 和 forums.bbsxp.com。要使用户在以两个不同的域名访问论坛时，都能保持登录状态，您需要将此选项设置为 .bbsxp.com (注意域名需要以点开头)。<br><br><font color=red>若您没有把握，最好在这里什么也不填写，因为错误的设置会导致您无法登录论坛。</font></td>
		<td><input size="50" value="<%=SiteConfig("CookieDomain")%>" name="CookieDomain" /></td>
	</tr>
</table>
</div>


<div style="width:auto; padding:10px;background:#698CC3; color:#FFFFFF; font-weight:bold; height:20px">
<div style="float:left"><input type="button" value="返回安装向导首页" onClick="window.location.href = '?';" /></div>
<div style="float:right"><input type="submit" value=" 下一步 " /></div>
</div>
</form>
<br />

<script type="text/javascript" src="Utility/global.js"></script>
<script language="javascript" type="text/javascript">
function chkInput(form){
	if (form.SiteName.value==''){
		alert('请输入站点名称');
		return false;
	}
	return true;
}
</script>
<%
	Set SiteConfigXMLDOM=nothing
End Sub




Function InstallExecute(SqlCommand)
	On Error Resume Next
	Execute(SqlCommand)
	If Err Then
		Response.write ""&Err.Description&""&CHR(10)&""
		FoundError=True
	else
		if instr(SqlCommand,"[FK_"&TablePrefix&"")>0 then
			Response.write "关系创建成功：[FK_"&ReplaceText(SqlCommand,"(.)*\[FK_([^[]*)\](.)*","$2")&"]"&CHR(10)&""
		elseif instr(SqlCommand,"insert into")>0 then
			Response.write "数据添加成功：["&ReplaceText(SqlCommand,"(.)*\[([^[]*)\](.|\n)*","$2")&"]"&CHR(10)&""
		else
			Response.write "表创建成功：["&ReplaceText(SqlCommand,"(.)*\[([^[]*)\](.|\n)*","$2")&"]"&CHR(10)&""
		end if
	end if
	On Error goto 0
End Function

Sub AutoCreateTable
%>
<div style="text-align:left;padding:40px;width:auto; background:#FFFFFF">
<p style="font-size:10pt;"><b><u>第 3 步）创建数据表、建立关系及添加数据</u></b></p>
    	<font color=red>正在创建表...</font><br /><br />
    	<textarea cols="100" rows="10">
<%

	Sql="CREATE TABLE ["&TablePrefix&"Advertisements] ("&_
	"AdvertisementID int IDENTITY (1, 1) NOT NULL ,"&_
	"Body ntext NULL ,"&_
	"ExpireDate datetime Default "&SqlNowString&" NOT NULL "&_
	")"
	InstallExecute(sql)
	
	Sql="CREATE TABLE ["&TablePrefix&"EventLog] ("&_
	"UserName nvarchar(50) NOT NULL ,"&_
	"ErrNumber int NULL ,"&_
	"EventDate datetime Default "&SqlNowString&" NOT NULL ,"&_
	"MessageXML ntext NULL "&_
	")"
	InstallExecute(sql)
	
	Sql="CREATE TABLE ["&TablePrefix&"FavoriteForums] ("&_
	"FavoriteID int IDENTITY (1, 1) NOT NULL ,"&_
	"OwnerUserName nvarchar(50) NOT NULL ,"&_
	"ForumID int Default 0 NOT NULL "&_
	")"
	InstallExecute(sql)
	
	Sql="CREATE TABLE ["&TablePrefix&"FavoritePosts] ("&_
	"FavoriteID int IDENTITY (1, 1) NOT NULL ,"&_
	"OwnerUserName nvarchar(50) NOT NULL ,"&_
	"PostID int Default 0 NOT NULL "&_
	")"
	InstallExecute(sql)
	
	Sql="CREATE TABLE ["&TablePrefix&"FavoriteUsers] ("&_
	"FavoriteID int IDENTITY (1, 1) NOT NULL ,"&_
	"OwnerUserName nvarchar(50) NOT NULL ,"&_
	"FriendUserName nvarchar(50) NOT NULL "&_
	")"
	InstallExecute(sql)
	
	Sql="CREATE TABLE ["&TablePrefix&"ForumPermissions] ("&_
	"ForumID int Default 0 NOT NULL ,"&_
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -