<%  dim ubb As New functionubb
    Dim xml_tables As New Data.DataSet
    xml_tables.ReadXml(System.Web.HttpContext.Current.Server.MapPath(ubb.url() & "web_xml/web_css.xml"))
    %>
<script language="javascript">
    function check() {
        document.form1.action = '<%=ubb.url%>' + document.form1.web_dh_sou_lei.value + '.aspx'
    }
</script>

<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	<% if xml_tables.Tables.Item("item").Rows(0).Item("css_dh_div_bgcorlor")<>"" then%>
       background-color: <%=xml_tables.Tables.Item("item").Rows(0).Item("css_dh_div_bgcorlor")%>;
      <%else%>
        background-color: #fafafa;
        <%end if %>
}

    .web_dh_div_ol_li_sou
{
        background-image: url('<%=ubb.url%>web_aspx/web_aspx_inages/img-18.GIF');
        background-repeat: no-repeat;
        width: 202px;
        height: 22px;
        border-style: none;
        margin-top: 1px;
        line-height: 20px;
        margin-right: 2px;
    }
     .web_dh_div_ol_li_sou_lei
{
        background-image: url('<%=ubb.url%>web_aspx/web_aspx_inages/img-18.GIF');
        background-repeat: no-repeat;
        width: 82px;
        height: 22px;
        border-style: none;
        margin-top: 1px;
        line-height: 22px;
    }
    .web_dh_div_ol_li_sou_Button
{
        border-width: 0px;
        background-image: url('<%=ubb.url%>web_aspx/web_aspx_inages/img-17.GIF');
        background-repeat: no-repeat;
        width: 75px;
        height: 22px;
        border-style: none;
    }

-->
</style>
<link href="<%=ubb.url%>web_css/button.css" rel="stylesheet" type="text/css" />
<table width="100" border="0" cellspacing="0" cellpadding="0">
<form action="" method="get" name="form1" target="_parent" onSubmit="check();">
  <tr>
    <td height="26"><img src="<%=ubb.url%>web_aspx/web_aspx_inages/img-4.GIF" 
            style="width: 89px; height: 22px" /></td>
    <td>
        <input name="sou" type="text" id="sou" style="width:221px;"></td>
    <td><select name="web_dh_sou_lei" class="web_dh_div_ol_li_sou_lei" style="margin-top: -1px;">
      <option value="news_tables">文章搜索</option>
       <%If ubb.xml_tables("red_parrot.xml", "parrot_shop") = "True" Then%>
      <option value="shop_tables">商品搜索</option>
      <%End If
          If ubb.xml_tables("red_parrot.xml", "parrot_bbs") = "True" Then%>
      <option value="BBS_Select">论坛搜索</option>
      <%End If%>
    </select></td>
    <td><input type="submit" name="Buttonok" id="Buttonok" value="搜  索" style="width:58px;height:22px;" class="btn_2k3"></td>
  </tr>
  </form>
</table>

