<!-- #include file=../inc/BBSsetup.asp -->
<!-- #include file=../inc/Board_Popfun.asp -->
<!-- #include file=../inc/Limit_Fun.asp -->
<!-- #include file=inc/Search_fun.asp -->
<%
DEF_BBS_HomeUrl = "../"

Function LoginAccuessFul

	GBL_CHK_TempStr = ""
	DisplaySearchForm
	DisplayAnnouncesSplitPages

End Function

Function DisplaySearchForm

	If DEF_BBS_SearchMode = 0 Then Exit Function
	If GBL_TableHeadString <> "" Then
		Response.Write "<table width=100% border=0 cellspacing=0 cellpadding=0 align=center><tr><td>"
		Response.Write GBL_TableHeadString
		Response.Write "</td></tr></table>"
	End If%>
	<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
	<tr bgcolor=<%=DEF_BBS_LightColor%> class=TBBG1>
		<td height=20><img src=../images/null.gif width=2 height=2><br>&nbsp;<b>论坛模糊查询</b>
		</td>
	</tr>
	</table>
	<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
	<tr bgcolor=<%=DEF_BBS_LightDarkColor%> class=TBHead>
		<td>
			<table border="0" cellspacing="0" cellpadding="0"><form name=sform id=sform action=Search.asp>
			<tr>
				<td>&nbsp;<font color=ffffff class=HeadFont>搜索词：</font></td>
				<td><input value="<%=htmlencode(Request("key"))%>" name=key maxlength=255 class=fminpt></td>
				<td><select name=mode>
						<option value=0<%If Request("mode") = "0" Then Response.Write " selected"%>>帖子名称</option>
						<option value=1<%If Request("mode") = "1" Then Response.Write " selected"%>>帖子作者</option>
					</select></td>
				<td>&nbsp;<input type="image" src="../images/<%=GBL_DefineImage%>sch.gif" border="0" id="image1" name="image1" WIDTH="17" height="14" align=absmiddle></td>
			</tr></form>
			</table>
		</td>
	</tr>
	</table>
	<%

End Function

Sub Main

	GBL_CHK_PWdFlag = 0
	initDatabase
	GBL_CHK_TempStr = ""
	BBS_SiteHead DEF_SiteNameString & " " & DEF_BBS_Name,0," &gt;&gt; 论坛搜索"
	UpdateOnlineUserAtInfo 0,"论坛搜索"

	If GBL_CHK_TempStr = "" Then
		%>
		<table width="<%=DEF_BBS_ScreenWidth%>" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="<%=DEF_BBS_DarkColor%>" class=TBone>
		<tr>
			<td>
				<%LoginAccuessFul%></td>
		</tr>
		</table><%
	Else
		%>
		<br>
		<table width="<%=DEF_BBS_ScreenWidth%>" border="0" cellspacing="0" cellpadding="0" align="center">
		<tr>
			<td>
				<%=GBL_CHK_TempStr%></td>
		</tr>
		</table><%
	End If
	If GBL_TableBottomString <> "" Then
		%><table width=<%=DEF_BBS_ScreenWidth%> border=0 cellspacing=0 cellpadding=0 align=center><tr><td><%=GBL_TableBottomString%></td></tr></table><%
	End If
	SiteBottom
	If GBL_SiteBottomString <> "" Then Response.Write GBL_SiteBottomString
	closeDataBase

End Sub

Main
%>