<!-- #include file=../../inc/BBSSetup.asp -->
<!-- #include file=../../inc/Board_Popfun.asp -->
<!-- #include file=../inc/bbsmanage_Fun.asp -->
<%
DEF_BBS_HomeUrl = "../../"
Dim GBL_ID
initDatabase
GBL_CHK_TempStr = ""
GBL_ID = checkSupervisorPass

SiteHead(DEF_SiteNameString & " - 管理员")
UserTopicTopInfo
DisplayUserNavigate("全文索引功能管理")
If GBL_CHK_Flag=1 Then
	LoginAccuessFul
Else%>
	<table width=96%>
	<tr>
	<td>
	<%
	If Request("submitflag")="" Then
		Response.Write "<br><b>请先登录</b>"
	Else
		Response.Write "<br><p align=left><font color=ff0000 class=RedFont><b>" & GBL_CHK_TempStr & "</b></font>"
	End If
	DisplayLoginForm
	Response.Write "</p>"%>
	</td>
	</tr>
	</table>
<%End If	
UserTopicBottomInfo
closeDataBase
SiteBottom
If GBL_ShowBottomSure = 1 Then Response.Write GBL_SiteBottomString

Sub LoginAccuessFul

	If DEF_UsedDataBase = 1 Then
		GBL_CHK_TempStr = "<span style=""FONT-FAMILY: 宋体; FONT-SIZE: 12px;color:ff0000"">Access数据库不支持全文索引服务!</span>"
		Exit Sub
	End If%>

<table width="97%" border="0" cellspacing="0" cellpadding="0">
<tr>
	<td>
		<br>
		<p><b>数据库全文索引常用控制命令</b></p>
		<a href=#29 onclick="javascript:window.open('ExeCuteFullTEXTCommands.asp?ExeFlag=1','','width=300,height=20 scrollbars=yes,status=no');"><font color=008800 class=GreenFont>为数据库启用全文索引</font></a>
		<a href=#29 onclick="javascript:window.open('ExeCuteFullTEXTCommands.asp?ExeFlag=2','','width=300,height=20 scrollbars=yes,status=no');"><font color=880000 class=RedFont>为数据库禁用全文索引</font></a> (已经启动切忌不要再启用,先启用下面两项试试)<br>
		<br>
		<a href=#29 onclick="javascript:window.open('ExeCuteFullTEXTCommands.asp?ExeFlag=3','','width=300,height=20 scrollbars=yes,status=no');"><font color=008800 class=GreenFont>启动全文索引增量填充</font></a>
		<a href=#29 onclick="javascript:window.open('ExeCuteFullTEXTCommands.asp?ExeFlag=4','','width=300,height=20 scrollbars=yes,status=no');"><font color=880000 class=RedFont>停止全文索引增量填充</font></a> (论坛有帖子但什么东西也搜不到请启用)<br>
		<br>
		<a href=#29 onclick="javascript:window.open('ExeCuteFullTEXTCommands.asp?ExeFlag=5','','width=300,height=20 scrollbars=yes,status=no');"><font color=008800 class=GreenFont>启动更新后台中的索引</font></a>
		<a href=#29 onclick="javascript:window.open('ExeCuteFullTEXTCommands.asp?ExeFlag=6','','width=300,height=20 scrollbars=yes,status=no');"><font color=880000 class=RedFont>停止更新后台中的索引</font></a> (论坛新帖了发了半天但搜索不到请启用<br>
		<br>
		<a href=#29 onclick="javascript:window.open('ExeCuteFullTEXTCommands.asp?ExeFlag=7','','width=300,height=20 scrollbars=yes,status=no');"><font color=000088 class=BlueFont>将当前一系列跟踪的变化传播到全文索引(更新索引)</font></a><br>
		<p><b>其它常用命令<br><br></b>
		<a href=#29 onclick="javascript:window.open('ExeCuteFullTEXTCommands.asp?ExeFlag=8','','width=300,height=20 scrollbars=yes,status=no');"><font color=000088 class=BlueFont>清除MSSQL当前使用数据库日志(删除后不可恢复日志，当日志满时请使用此命令，请注意经常清除)</font></a><br>
		<a href=#29 onclick="javascript:window.open('ExeCuteFullTEXTCommands.asp?ExeFlag=9','','width=300,height=20 scrollbars=yes,status=no');"><font color=000088 class=BlueFont>收缩MSSQL当前使用数据库日志文件(缩小Log文件来释放硬盘空间给系统)</font></a><br>
		<a href=#29 onclick="javascript:window.open('ExeCuteFullTEXTCommands.asp?ExeFlag=10','','width=300,height=20 scrollbars=yes,status=no');"><font color=000088 class=BlueFont>收缩MSSQL当前使用数据库的数据文件(<font color=red class=RedFont>请小心使用此项，使用全文索引数据库可能会产生一些不稳定</font>)</font></a><br>
	</td>
</tr>
</table>
<%
	DisplayOtherInfo

End Sub

Sub DisplayOtherInfo

	Response.Write "<br><p><b>数据库参数参考</b></p>"
	Response.Write "<table width=100% border=0 cellspacing=1 cellpadding=5 bgcolor=" & DEF_BBS_Color & " class=TBtwo>"
	Dim Rs,SQL
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	SQL = "Select @@TRANCOUNT,@@VERSION,@@SERVERNAME,@@LANGUAGE,@@CONNECTIONS,@@CPU_BUSY,@@IDLE,@@IO_BUSY,@@LOCK_TIMEOUT,@@MAX_CONNECTIONS,@@TOTAL_READ,@@TOTAL_WRITE,CURRENT_USER,APP_NAME(),HOST_NAME(),DB_NAME(DB_ID()),DATABASEPROPERTY(DB_NAME(DB_ID()), 'IsFulltextEnabled')"
	Rs.Open SQL,con,1,1
	GBL_DBNum = GBL_DBNum + 1
	If Not Rs.Eof Then
		Response.Write "<tr valign=top bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td width=200>当前连接的活动事务数</td><td>" & Rs(0) & "个</td>"
		Response.Write "<tr valign=top bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td width=200>当前安装的日期、版本和处理器类型</td><td>" & Rs(1) & "</td>"
		Response.Write "<tr valign=top bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td width=200>本地服务器名称</td><td>" & Rs(2) & "</td>"
		Response.Write "<tr valign=top bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td width=200>当前使用的语言名</td><td>" & Rs(3) & "</td>"
		Response.Write "<tr valign=top bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td width=200>自上次启动以来连接或试图连接次数</td><td>" & Rs(4) & "次</td>"
		Response.Write "<tr valign=top bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td width=200>自上次启动以来CPU的工作时间</td><td>" & Rs(5) & "毫秒（基于系统计时器的分辨率）</td>"
		Response.Write "<tr valign=top bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td width=200>自上次启动后闲置的时间</td><td>" & Rs(6) & "毫秒（基于系统计时器的分辨率）</td>"
		Response.Write "<tr valign=top bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td width=200>自上次启动后用于执行输入输出时间</td><td>" & Rs(7) & "毫秒（基于系统计时器的分辨率）</td>"
		
		Response.Write "<tr valign=top bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td width=200>返回当前会话的当前锁超时设置</td><td>" & Rs(8) & "毫秒</td>"
		Response.Write "<tr valign=top bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td width=200>允许的同时用户连接的最大数</td><td>" & Rs(9) & "人(32767表示未配置)</td>"
		Response.Write "<tr valign=top bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td width=200>自上次启动后读取磁盘的次数</td><td>" & Rs(10) & "次（不是读取高速缓存）</td>"
		Response.Write "<tr valign=top bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td width=200>自上次启动后写入磁盘的次数</td><td>" & Rs(11) & "次</td>"
		Response.Write "<tr valign=top bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td width=200>当前登录用户名</td><td>" & Rs(12) & "</td>"
		Response.Write "<tr valign=top bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td width=200>当前会话的应用程序名称</td><td>" & Rs(13) & "</td>"
		Response.Write "<tr valign=top bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td width=200>工作站名称</td><td>" & Rs(14) & "</td>"
		Response.Write "<tr valign=top bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td width=200>数据库名称</td><td>" & Rs(15) & "</td>"
		Response.Write "<tr valign=top bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td width=200>数据库是否全文启用</td><td>" & Replace(Replace(Rs(16) & "","0","否"),"1","是") & "</td>"

		Response.write "</tr>"
	End If
	Rs.Close
	Set Rs = Nothing
	Response.Write "</table>"
	
	Response.Write "<br><br><b>查看数据库表信息</b><p><a href=TableInfo.asp?tb=LeadBBS_Announce>点击这里查看表LeadBBS_Announce信息</a>"
	Response.Write "<br><a href=TableInfo.asp?tb=LeadBBS_Assort>点击这里查看表LeadBBS_Assort</a>"
	Response.Write "<br><a href=TableInfo.asp?tb=LeadBBS_Boards>点击这里查看表LeadBBS_Boards</a>"
	Response.Write "<br><a href=TableInfo.asp?tb=LeadBBS_CollectAnc>点击这里查看表LeadBBS_CollectAnc</a>"
	Response.Write "<br><a href=TableInfo.asp?tb=LeadBBS_ForbidIP>点击这里查看表LeadBBS_ForbidIP</a>"
	Response.Write "<br><a href=TableInfo.asp?tb=LeadBBS_FriendUser>点击这里查看表LeadBBS_FriendUser</a>"
	Response.Write "<br><a href=TableInfo.asp?tb=LeadBBS_GoodAssort>点击这里查看表LeadBBS_GoodAssort</a>"
	Response.Write "<br><a href=TableInfo.asp?tb=LeadBBS_InfoBox>点击这里查看表LeadBBS_InfoBox</a>"
	Response.Write "<br><a href=TableInfo.asp?tb=LeadBBS_IPAddress>点击这里查看表LeadBBS_IPAddress</a>"
	Response.Write "<br><a href=TableInfo.asp?tb=LeadBBS_Link>点击这里查看表LeadBBS_Link</a>"
	Response.Write "<br><a href=TableInfo.asp?tb=LeadBBS_onlineUser>点击这里查看表LeadBBS_onlineUser</a>"
	Response.Write "<br><a href=TableInfo.asp?tb=LeadBBS_Setup>点击这里查看表LeadBBS_Setup</a>"
	Response.Write "<br><a href=TableInfo.asp?tb=LeadBBS_SiteInfo>点击这里查看表LeadBBS_SiteInfo</a>"
	Response.Write "<br><a href=TableInfo.asp?tb=LeadBBS_SpecialUser>点击这里查看表LeadBBS_SpecialUser</a>"
	Response.Write "<br><a href=TableInfo.asp?tb=LeadBBS_TopAnnounce>点击这里查看表LeadBBS_TopAnnounce</a>"
	Response.Write "<br><a href=TableInfo.asp?tb=LeadBBS_Upload>点击这里查看表LeadBBS_Upload</a>"
	Response.Write "<br><a href=TableInfo.asp?tb=LeadBBS_User>点击这里查看表LeadBBS_User</a>"
	Response.Write "<br><a href=TableInfo.asp?tb=LeadBBS_UserFace>点击这里查看表LeadBBS_UserFace</a>"
	Response.Write "<br><a href=TableInfo.asp?tb=LeadBBS_VoteItem>点击这里查看表LeadBBS_VoteItem</a>"
	Response.Write "<br><a href=TableInfo.asp?tb=LeadBBS_VoteUser>点击这里查看表LeadBBS_VoteUser</a>"

End Sub%>