<!-- #include file=../inc/BBSsetup.asp -->
<!-- #include file=../inc/Board_Popfun.asp -->
<!-- #include file=../inc/Limit_Fun.asp -->
<!-- #include file=inc/Search_fun.asp -->
<!--#include file="xgcity_community_head.asp" -->
<%
dim Assort_id
Assort_id=0
%>
<script>
if(self!=top){top.location=self.location;}
function switchSysBar(){
if (switchPoint.innerText==3){
switchPoint.innerText=4
document.all("frmTitle").style.display="none"
}else{
switchPoint.innerText=3
document.all("frmTitle").style.display=""
}}
</script>
<table border="0" cellPadding="0" cellSpacing="0" height="100%" width="100%">
<tbody>
  <tr>
    <td height="100%" align="left" vAlign="top" noWrap id="frmTitle">
    <iframe frameBorder="0" id="carnoc" name="carnoc" scrolling="no" src="../left.asp?Assort_id=<%=Assort_id%>" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 92px; Z-INDEX: 2">
    </iframe>    </td>
    <td style="WIDTH: 9pt" >
    <table border="0" cellPadding="0" cellSpacing="0" height="100%">
	<tbody>
      <tr>
        <td style="HEIGHT: 100%" onclick="switchSysBar()" background="../images/left/bg.gif" style=CURSOR:hand; title=开启/关闭左边导航栏>
<font style=COLOR:#ffffff;CURSOR:hand;FONT-FAMILY:Webdings;FONT-SIZE:9pt;>
<SPAN id=switchPoint>3</SPAN></font></td>
      </tr>
	  </tbody>
    </table>
    </td>
    <td align="left" valign="top" style="WIDTH: 100%">
<%
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
%>
 </td>
  </tr>
  </tbody>
</table>
<script>
if(window.screen.width<'1024'){switchSysBar()}
</script>
