<%
dim startime,endtime
startime=timer()
'HTML代码过滤函数

%> 
<!--#include file="include/Conn.asp"-->
<!--#include file="include/Char.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="Include/const.asp" -->
<!--#include file="Include/ubbcode.asp" -->
<%
					dim PerPage
					dim mcc
					dim idArr
					dim p,mp
					 m_keywords=CheckStr(trim(request("keywords")))
					 if m_keywords<>"" then
					 idArr=split(site_info(8),",")
					 for i = 0 to ubound(idArr)
					 m_keywords=replace(m_keywords,idArr(i),"")
					 next
					 i=0
					 end if				

				    set rs_c=server.createobject("adodb.recordset")
					sql_c="select * from info_mater where 1=1"
					mCategoryID=CheckStr(trim(request("CategoryID")))
					if mCategoryID<>"" then
					 if isnumeric(mCategoryID)=false or mCategoryID="" then
                       Call Msgbox("对不起，ID号错误！",1)
                       Response.end
                       end if
					   sql_c=sql_c&" and f_bigclassid="&mCategoryID
					end if
					mctype=CheckStr(trim(request("CategoryID2")))
					 if mctype<>"" then
					   if isnumeric(mctype)=false or mctype="" then
                       Call Msgbox("对不起，ID号错误！",1)
                       Response.end
                       end if
					   sql_c=sql_c&" and f_smallclassid="&mctype
					 end if
					 marea=CheckStr(trim(request("carea")))
					 if marea<>"" then
					 sql_c=sql_c&" and f_city='"&marea&"'"
					 end if
					
		 if m_keywords<>"" then
	     idwords=split(m_keywords," ")
	      wordsql1=""
		  wordsql2=""		 	 
	     for mp=0 to ubound(idwords)
		 
		 if idwords(mp)<>"" then  
		 if mp>0 then
		 wordsql1 = wordsql1 +" and " 
		 wordsql2 = wordsql2 +" and " 
		 end if	 
     	 wordsql1 = wordsql1 +" f_name like  '%" & idwords(mp) &"%'"
         wordsql2 = wordsql2 +" f_text like  '%" & idwords(mp) &"%'"
		 end if	 
	     next
		 wordsql=wordsql1&" or "&wordsql2	
	    sql_c=sql_c +" and ( "&wordsql&" )"
	end if
	'response.write sql_c
	'response.end
					 
					sql_c=sql_c&" order by f_regtime desc"
					rs_c.open sql_c,conn,1,1
					'response.write sql_c
					'response.end
					'flag="尚未处理"
                    PerPage=15
				
                   '假如没有数据时
                 ' If rs_c.eof and rs_c.bof then
                  ' response.write "<p align='center'><font color='#ff0000'>还没任何新闻</font></p>"
                 ' response.end
                 ' End if
					'取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示
                    text="0123456789"
                    Rs_c.PageSize=PerPage
					
                    for i=1 to len(request("page"))
                    checkpage=instr(1,text,mid(request("page"),i,1))
                    if checkpage=0 then
                    exit for
                    end if
                    next

                  If checkpage<>0 then
                  If NOT IsEmpty(request("page")) Then
                  CurrentPage=Cint(request("page"))
                  If CurrentPage < 1 Then CurrentPage = 1
                  If CurrentPage > Rs_c.PageCount Then CurrentPage = Rs_c.PageCount
                  Else
                  CurrentPage= 1
                  End If
                 If not Rs_c.eof Then Rs_c.AbsolutePage = CurrentPage end if
                 Else
				 CurrentPage=1
                 End if				
				%>

<%
set rs1=server.createobject("adodb.recordset")
sql = "select * from info_SmallClass order by f_ID asc"
rs1.open sql,conn,1,1
%>
<script language = "JavaScript">
var lmcount;
lm=new Array();
<%count=0
do while not rs1.eof
%>
lm[<%=count%>]=new Array('<%= trim(rs1("f_value"))%>','<%= trim(rs1("f_bigclassid"))%>','<%= trim(rs1("f_id"))%>');
<%
count=count+1
rs1.movenext
loop
rs1.close
%>
lmcount=<%=count%>;
function changeCategoryID1(CategoryID1){
document.form1.CategoryID2.length=1; 
var CategoryID1=CategoryID1;
var i;
for (i=0;i<lmcount; i++){
if (lm[i][1]==CategoryID1){ 
document.form1.CategoryID2.options[document.form1.CategoryID2.length]=new Option(lm[i][0], lm[i][2]);
}        
}
}    
</script>
<html>
<head>
<title>襄樊搜索 - 搜索<%=m_keywords%>在分类信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="西安搜索是立足于西安本地的搜索引擎。提供西安吃喝玩乐住行游等方面信息的搜索查询。">
<meta name="keywords" content="襄樊信息港,生活消费,休闲娱乐,时尚,家政,安居,旅游,购物,美食,交友,俱乐部,特约商户,消费打折">
<!--#include file="Include/style1.css"-->
<script>
window.status="西安分类信息搜索"; 
</script>
</HEAD>

<body>

<!--#include file="Include/top_search.inc"-->

<TABLE cellSpacing="0" cellPadding="0" width="100%" align="center" border="0">
  <TR>
    <TD>
      <TABLE cellSpacing="0" cellPadding="0" width="100%" border="0" class="td1">
	<TR>
    	  <TD width="9" height="28"></TD>
    	  <TD width="100">&nbsp;</TD>
    	  <TD width="1"><IMG src="images/icon/_1.gif"></TD>
    	  <TD width="75" class="td1"><a href="/so/Search.asp?keyword=<%=server.urlencode(m_Keywords)%>" class="menu1">网站网页</a></TD>
    	  <TD width="1"><IMG src="images/icon/_1.gif"></TD>
    	  <TD width="75" class="td1"><a href="/so/CardSearch.asp?keywords=<%=server.urlencode(m_Keywords)%>" class="menu1">折扣商家</a></TD>
    	  <TD width="75" class="td1"><a href="/so/InfoSearch.asp?keywords=<%=server.urlencode(m_Keywords)%>" class="menu1">分类信息</a></TD>
    	  <TD width="75" class="td2"><a href="/so/ClassADSearch.asp?keywords=<%=server.urlencode(m_Keywords)%>" class="menu">都市商家</a></TD>
    	  <TD width="1"><IMG src="images/icon/_1.gif"></TD>
    	  <TD class="td1">&nbsp;</TD>
	<TR>
      </TABLE>
    </TD>
  </TR>
  <TR>
    <TD height="60" class="tdbg1">
      <TABLE cellSpacing="0" cellPadding="0" width="100%" border="0">
	<TR>
    	  <TD>&nbsp;</TD>
    	  <TD>

            <TABLE cellSpacing=0 cellPadding=0 width="640" border=0>
              <form name="form1" method="get" action="/so/ClassadSearch.asp">
                <TBODY>
                  <TR>
                    <TD width="240" align="right"><INPUT name=Keywords value="<%=m_Keywords%>" class="input2" size=22></TD>
                    <TD align="center">
		      <select size="1" name="CategoryID" onChange="changeCategoryID1(document.form1.CategoryID.value)">
		        <option value="" selected>选择所有分类</option>
          <%
		Set rs1=Server.createobject("Adodb.RecordSet")
        sql = "select * from info_BigClass"
        rs1.open sql,conn,1,1
		if rs1.eof and rs1.bof then
			response.write "请先添加类别"
		else		
		    do while not rs1.eof
			%>
		        <option value="<%=trim(rs1("f_id"))%>"><%=trim(rs1("f_value"))%></option>
          <%
		        rs1.movenext
    	    loop
		end if
        rs1.close
			%>
		      </select>
	&nbsp;
		      <select size="1" name="CategoryID2">
		        <option selected value="">选择所有小类</option>
		      </select>&nbsp;
		      <select name=carea id="carea">
                    <option value="" selected>所有区域</option>
                    <% 
	  classsql="Select F_ID,F_Value From T_areaType where F_CityTypeID=15 order by f_grade"	  
	  Set rsclass=Conn.Execute(classSql)
	  do while not rsclass.eof 	  
	  %>
                    <option value=<%=rsclass("f_id")%>><%=rsclass("f_value")%></option>
                    <%
	  rsclass.movenext 
	  loop
	  rsclass.close
	  set rsclass=nothing
	  %>
                  </select>
                    </TD>
                    <TD><INPUT type="image" src="images/td/button_search.gif" width="68" height="24" name="Submit"></TD>
                  </TR>
                  </FORM>
                 </TABLE>

	  </TD>
	<TR>
      </TABLE>
    </TD>
  </TR>
  <TR>
    <TD height="1" bgcolor="#c0c0c0">
    </TD>
  </TR>
  <TR>
    <TD height="29" background="images/bg/bg_td_001.gif">
      <TABLE cellSpacing="0" cellPadding="0" width="100%" border="0">
	<TR>
    	  <TD width="70%" class="result_content">　<b>搜索：</b></span>襄樊分类信息</TD>
    	  <TD></TD>
	</TR>
      </TABLE>
    </TD>
  </TR>
</TABLE>

<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
  <TR>
    <TD height="5"></TD>
  </TR>
</TABLE>

	<% if not rs_c.eof then %>

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TR>
    <TD vAlign=bottom width="63%" height=35 class="result_content"><STRONG>&nbsp;&nbsp;<% if m_Keywords<>"" then %>
        &quot;<%=m_Keywords%>&quot; <% end if %>相关商家</STRONG></SPAN> 共找到<span class="result_highlight"><%=Cstr(rs_c.RecordCount)%></span> 家(耗时 <% endtime=timer() %><%=FormatNumber((endtime-startime),3,-1)%>秒)
    </TD>
    <TD vAlign=bottom width="37%"><A href="/info/write_info.asp" class="dark1" target=_blank>我要发布</A></TD>
  </TR>
</TABLE>

	<% end if %>

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD vAlign=top>
<%
if not rs_c.eof then
i=1
mcc=(CurrentPage*PerPage)-PerPage+1  '设定数值序号
do while not rs_c.eof
%>
      <TABLE cellSpacing=0 cellPadding=0 width="90%" border=0 style="border: #CCCCCC dotted; border-width: 1px 0px 0px 0px;" onMouseOver="className='td6';" onMouseOut="className='td5';">
            <TR> 
              <TD colSpan=3 height=10></TD>
            </TR>
            <TR> 
              <TD width=25 height=25></TD>
              <TD>
                <%
				select case rs_c("F_bigclassid")
				case "1"
				murl="house/"
				case "2"
				murl="play/"
				case "4"
				murl="service/"
				case "5"
				murl="food/"
				case else
				murl="service/"
				end select
				
	  classsql="select f_id,f_value from info_bigclass where f_id="&rs_c("F_bigclassid")
	  Set rsclass=Conn.Execute(classSql)
	  if not rsclass.eof then
	  %>
		<A class="result_url border" href="?CategoryID=<%=rsclass("f_id")%>">【<%=rsclass("f_value")%>】</A> 
                <%
	  end if
	  rsclass.close
	  set rsclass=nothing
		%>
                <A class="result_title1" href="/info/<%=murl%><%=rs_c("f_id")%>.htm" target="_blank">
		<% if m_keywords<>"" then %>
		<%
				re_text=rs_c("f_name")
				for mp = 0 to ubound(idwords)
				re_text=replace(re_text,idwords(mp),"<span class='result_highlight'>"&idwords(mp)&"</span>")
				next
				response.write re_text
				%>
		<% else %>
		<%=rs_c("f_name")%>
                <% end if %></A>
              </TD>
              <TD>
		<span class="result_content">发布时间：<span class="dark">[<%=datevalue(rs_c("f_regtime"))%>]</span></span>
	      </TD>
            </TR>
            <TR>
              <TD></TD>
              <TD height=25 class="result_content">分　类： 
                <%
	  classsql="select f_value from info_smallclass where f_id="&rs_c("F_smallclassid")
	  Set rsclass=Conn.Execute(classSql)
	  if not rsclass.eof then
	  %> <%=rsclass("f_value")%> <%
	  end if
	  rsclass.close
	  set rsclass=nothing
	  %>  </TD>
              <TD colSpan=2 class="result_content">区域： 
                <%  
	mSql="Select F_ID,F_Value From T_areaType where F_CityTypeID=22 and f_id="&rs_c("f_city")
	Set rst = conn.Execute(mSql)
	if not rst.eof then
	%>
	<%=rst("F_value")%>
	<%
	end if
	rst.close
	set rst=nothing
	%>
              </TD>
            </TR>
            <TR> 
              <TD height="25"></TD>
              <TD class="result_content">联系电话：<%=rs_c("f_tel")%></TD>
              <TD colSpan=2 class="result_content">地址：<%=rs_c("f_address")%></TD>
            </TR>
            <TR> 
              <TD height=25></TD>
              <TD colSpan=2>
		<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
                  <TR> 
                    <TD width=53 class="result_content">内　容：</TD>
                    <TD vAlign=top rowSpan=2 class="result_content">
			<% if rs_c("f_text")<>"" then %> 
			<% if m_keywords<>"" then %>
			<%
				re_text=left(deleteHtmlTag(rs_c("f_text")),150)
				for mp = 0 to ubound(idwords)
				re_text=replace(re_text,idwords(mp),"<span class='result_highlight'>"&idwords(mp)&"</span>")
				next
				response.write re_text						
			%>
			<% else %>
			<%=(left(deleteHtmlTag(rs_c("f_text")),150))%>
			<% end if %> ... <% end if %> 
			<A class="result_url" href="/info/<%=murl%><%=rs_c("f_id")%>.htm" target="_blank">[详细内容]</A>
		    </TD>
                  </TR>
                  <TR> 
                    <TD>&nbsp;</TD>
                  </TR>
		</TABLE>
	      </TD>
            </TR>
            <TR> 
              <TD colSpan=4 height=10></TD>
            </TR>
          </TABLE>
<%
if i >= Perpage then exit do
i=i+1
mcc=mcc+1
rs_c.movenext
loop

else
%>

<!-- include nothing -->

<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
  <TR>
    <TD height="40" class="result_content">　<B>小提示</B>：你只需输入商家的名称，地址，电话，经营项目等信息，就可以搜索到你想要的分类信息了！</TD>
  </TR>
  <TR>
    <TD height="80"><p class="result_content">　<IMG src="images/icon/icon_alert.gif" align="absmiddle"> 对不起！未找到和您的查询相匹配的内容，请您另选关键字搜索！</p></TD>
  </TR>
</TABLE>

<%
end if
%>
      </TD>
      <TD vAlign=top align=middle width=220>

<!-- 右侧关键字广告区 -->

      <TABLE width="95%" cellSpacing="0" cellPadding="0" border="0" class="table_border">
        <TR>
          <TD align=center background="images/bg/bg_td_title.jpg" height="32"><A href="/card" target="_blank" style="behavior:url(include/font.htc)" class="content">查看更多商家信息</A></TD>
        </TR>
      </TABLE>

                <%					
					
				    set rst=server.createobject("adodb.recordset")
					sql_c="SELECT  * FROM CityCard_League WHERE (tj='1')"									
				
					  if m_keywords<>"" and 1=2 then				 
					 sql_c=sql_c&" and ("
					  for mp = 0 to ubound(idwords)					  
					   if idwords(mp)<>"" then 
					   if mp>0 then sql_c=sql_c&" or "
					  sql_c=sql_c&" name like  '%" & idwords(mp) & "%'"
					   end if
					  next
					 sql_c=sql_c&" ) "
					 end if
					 
					sql_c=sql_c&" order by grade desc ,tuijian desc"
					rst.open sql_c,conn,1,1
					'response.write sql_c
					'response.end
					'flag="尚未处理"
                    PerPage=12
				
                   '假如没有数据时
                 ' If rs_c.eof and rs_c.bof then
                  ' response.write "<p align='center'><font color='#ff0000'>还没任何新闻</font></p>"
                 ' response.end
                 ' End if
					'取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示
                    text="0123456789"
                    Rs_c.PageSize=PerPage
					m_pageno=request("page")
                    for i=1 to len(m_PageNo)
                    checkpage=instr(1,text,mid(m_PageNo,i,1))
                    if checkpage=0 then
                    exit for
                    end if
                    next

                  If checkpage<>0 then
                  If NOT IsEmpty(m_PageNo) Then
                  CurrentPage=Cint(m_PageNo)
                  If CurrentPage < 1 Then CurrentPage = 1
                  If CurrentPage > Rst.PageCount Then CurrentPage = Rst.PageCount
                  Else
                  CurrentPage= 1
                  End If
                 If not Rst.eof Then Rst.AbsolutePage = CurrentPage end if
                 Else
                 CurrentPage=1
                 End if					
		
if not rst.eof then
i=1
do while not rst.eof
%>


<!-- 右侧商家展示 -->

      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TR>
          <TD height=5></TD>
        </TR>
      </TABLE>

      <TABLE cellSpacing=2 cellPadding=2 width=95% border=0 class="result_table">
	<TR>
	  <TD><a target="_blank" class="result_title_right" href="/card/show.asp?id=<%=rst("companyid")%>">
            	<% if m_Keywords<>"" then %>
                <%
				re_text=rst("name")
				for m = 0 to ubound(idwords)
				re_text=replace(re_text,idwords(m),"<span class='result_highlight'>"&idwords(m)&"</span>")
				next
				response.write re_text
				%> 
                <% else %>
                <%=rst("name")%> 
                <% end if %></A>
	  </TD>
	</TR>
	<TR>
	  <TD>地址：<%=rst("address")%></TD>
	</TR>
	<TR>
	  <TD>电话：<% =left(rst("tel"),20) %></TD>
	</TR>
	<TR>
	  <TD class="result_url">
	<% if rst("website")<>"" then %>
	<a target="_blank" class="result_url" href="<%=rst("website")%>"><%=rst("website")%></a>
	<% else %>
	<a class="result_url" target="_blank" href="/card/show.asp?id=<%=rst("companyid")%>">
	/card/show.asp?id=<%=rst("companyid")%>
	</a>
	<% end if %>
	  </TD>
        </TR>
      </TABLE>

      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TR>
          <TD height=5></TD>
        </TR>
      </TABLE>

                <%
if i >= Perpage then exit do
i=i+1
rst.movenext
loop
end if
rst.close
%>



      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TR>
          <TD height=5></TD>
        </TR>
      </TABLE>

      </TD>
  </TR>
</TABLE>


<!-- 分页过程 -->

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TR>
    <TD height=5></TD>
  </TR>
</TABLE>

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TR>
    <TD height=35>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
	<TR>
          <TD height=35 width="30%">页次：<B><FONT color=#ff0000><%=CurrentPage%></FONT></B>/<B><FONT 
            color=#ff0000><%=Cstr(rs_c.pagecount)%></FONT></B>页 每页<B><FONT 
            color=#ff0000><%=PerPage%></FONT></B>条记录 总数<B><FONT 
            color=#ff0000><%=Cstr(rs_c.RecordCount)%></FONT></B>条</TD>
          <TD width="70%"><% If currentpage > 1 Then  %>
                        &nbsp;<a href='?CategoryID=<%=mCategoryID%>&CategoryID2=<%=mctype%>&carea=<%=marea%>&keywords=<%=server.urlencode(m_keywords)%>&page=<%=cstr(1)%>'><img alt='首页' src='images/arrow4.gif' border=0 width='11' height='11'></a> 
                        &nbsp;<a href='?CategoryID=<%=mCategoryID%>&CategoryID2=<%=mctype%>&carea=<%=marea%>&keywords=<%=server.urlencode(m_keywords)%>&page=<%=Cstr(currentpage-1)%>'><span class="content5">上一页</span></a> 
                        &nbsp; 
                        <% Else  %>
                        &nbsp;<img alt='首页' src='images/arrow4-1.gif' border=0 width='11' height='11'>
                        &nbsp;<span class="content">上一页</span>
                        <% end if %>
                        <%
			  if rs_c.pagecount>10 then
			  n_star=currentpage
			  n_end=currentpage+9
			  else
			  n_star=1
			  n_end=rs_c.pagecount			  
			  end if
			  %>
                        <% FOR n=n_star to n_end %>
                        <% if n>rs_c.pagecount then  exit for  end if%>
                        <a href='?CategoryID=<%=mCategoryID%>&CategoryID2=<%=mctype%>&carea=<%=marea%>&keywords=<%=server.urlencode(m_keywords)%>&page=<%=n%>'>[<%=n%>]</a> 
                        <%next%>
                        <% If currentpage < Rs_c.PageCount Then %>
                        &nbsp;<a href='?CategoryID=<%=mCategoryID%>&CategoryID2=<%=mctype%>&carea=<%=marea%>&keywords=<%=server.urlencode(m_keywords)%>&page=<%=Cstr(currentPage+1)%>'><span class="content5">下一页</span></a> 
                        &nbsp;<a href='?CategoryID=<%=mCategoryID%>&CategoryID2=<%=mctype%>&carea=<%=marea%>&keywords=<%=server.urlencode(m_keywords)%>&page=<%=Cstr(Rs_c.PageCount)%>'><img alt='末页' src='images/arrow2.gif' border=0 width='11' height='11'></a> 
                        <% else %>
                        &nbsp;<span class="content">下一页</span>
                        &nbsp;<img alt='末页' src='images/arrow2-1.gif' border=0 width='11' height='11'>
                        <% end if %>
                       
          </TD>
        </TR>
      </TABLE>
    </TD>
  </TR>
</TABLE>

<%
if m_keywords="fhdshkjvggkwehglshldhglsdhglsdhgls" then 
		  'write search word 写入关键词
		  	set rst=server.createobject("adodb.recordset")
			sqlt="select * from search_word where f_class=3 and f_word='"&m_keywords&"'"
			rst.open sqlt,conn,1,3
			if rst.eof then
			rst.addnew
			rst("f_word")=m_keywords
			rst("f_class")=3   '1=商家搜索  2=信息广场 3=分类信息
			rst("F_update")=now()
			rst("f_ip")=Request.ServerVariables("REMOTE_ADDR") 
			rst.update
			else
			rst("f_hits")=rst("f_hits")+1   '搜索率
			rst("F_update")=now()
			rst("f_ip")=Request.ServerVariables("REMOTE_ADDR") 
			rst.update
			end if
			rst.close
			
%>

      <table width="100%" border="0" cellspacing="0" cellpadding="0" class="result_table">
        <tr>
          <td width="15%" align="center" class="content1">相关搜索：</td>
          <td width="85%" height="40">
	    <table width="100%" border="0" cellspacing="3" cellpadding="3">
              <tr align="center"> 
			  <% 			
			sqlt="select top 10 * from search_word where f_class=3"
		        	 if m_keywords<>"" then					 
					   sqlt=sqlt&" and ("
					   for mp = 0 to ubound(idwords)					  
					   if idwords(mp)<>"" then 
					   if mp>0 then sqlt=sqlt&" or "
					   sqlt=sqlt&" f_word like  '%" & idwords(mp) & "%'"
					   end if
					  next
					  sqlt=sqlt&" ) "
					 end if
			sqlt=sqlt&" order by f_hits desc"
			rst.open sqlt,conn
			i=1
			do while not rst.eof
			%>
                <td><A href="?keywords=<%=server.urlencode(rst("f_word"))%>" class="result_related"><%=rst("f_word")%></a></td>
			<%
			if i mod 5=0 then response.write "</tr><tr align=center> "
			i=i+1
			rst.movenext
			loop
			rst.close
			set rst=nothing
			%>		
              </tr>
            </table>
	  </td>
        </tr>
      </table>

<% end if %>

<TABLE cellSpacing=3 cellPadding=3 width=100% border=0>
  <FORM name=form2 action=/so/select.asp method=get>
  <TR>
    <TD align=center width="15%" class="content1">继续搜索：</TD>
    <TD align=center>

      <TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
	<TR>
	  <TD height="30">
	    <INPUT size=22 class="input2" value="<%=m_keywords%>" name=keywords>
	    <INPUT style="FONT-SIZE: 14px; HEIGHT: 25px" type=submit value=" 搜索 " name=Submit>
	  </TD>
	</TR>
	<TR>
	  <TD height="30">
	    <INPUT type=radio value=1 name=t> 网站网页
	    <INPUT type=radio value=3 name=t> 折扣商户
	    <INPUT type=radio CHECKED value=4 name=t> 分类信息
	    <INPUT type=radio value=5 name=t> 信息广场
	  </TD>
	</TR>
      </TABLE>

    </TD>
  </TR>
  </FORM>
</TABLE>

<!--#include file="../include/bottom.asp"-->
</BODY>
</HTML>
<% rs_c.close %>