search.asp

一个有用的东西 希望大家喜欢 谢谢大家对本站的支持

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="mfk_body.asp"-->
<title><%=title1%>--线路搜索</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
pagestart
dim action
action=trim(request("action"))
%>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="27"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1.gif"></td>
    <td width="701" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1.gif">&nbsp;</td>
    <td width="27"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1.gif"></td>
  </tr>
</table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0" class="lefttablebox">
  <tr>
    <td><table width="751" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td width="30" height="22" align="center">&nbsp;</td>
        <td width="721" height="30">线 路 搜 索</td>
      </tr>
    </table>
      <table width="751" border="0" align="center" cellpadding="0" cellspacing="0">
        <form action="?action=go" method="post" name="form1">
          <tr class="titletable">
            <td width="125" height="30" align="center">您要去的地方：</td>
            <td width="250" height="30">　
                <input name="address" type="text" id="address" title='只需填写一个地名' onmouseover='this.focus();' size="20">可为空</td>
            <td width="125" height="30" align="center">您想出行几天？：</td>
            <td width="251" height="30">　
                <select name="shijian" id="shijian" onmouseover="this.focus();">
                  <option value="一">一 天</option>
                  <option value="二">二 天</option>
                  <option value="三">三 天</option>
                  <option value="四">四 天</option>
                  <option value="五">五 天</option>
                  <option value="六">六 天</option>
                  <option value="七">七 天</option>
                  <option value="八">八 天</option>
                  <option value="九">九 天</option>
                  <option value="十">十 天</option>
                  <option value="" selected>不 限</option>
              </select></td>
          </tr>
          <tr class="titletable">
            <td height="30" align="center">您想游览的景点：</td>
            <td height="30" colspan="3"> 　
                <input name="jingdian" type="text" id="jingdian" title='填写一个景点既可' onmouseover='this.focus();' size="30">
                　 搜索技巧：不改变搜索模式，填写任意一项就可以搜索。</td>
          </tr>
          <tr class="titletable">
            <td height="30" colspan="2" align="center">模糊查询：
                <input name="searchmode" type="radio" value="mf" checked title='包含所要查找的内容'>
        　　 精确查询：
        <input name="searchmode" type="radio" value="jq" title='完全与要查找的内容相符'>
            </td>
            <td height="35" colspan="2" align="center"><input name="Submit" type="submit" class="mfk_button" title='开始搜索' value="开 始 搜 索"></td>
          </tr>
        </form>
    </table></td>
  </tr>
</table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1_1.gif"></td>
    <td width="741" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1_1.gif">&nbsp;</td>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1_1.gif"></td>
  </tr>
</table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="772" height="4"></td>
  </tr>
</table>
<%
if action="go" then
mfk
end if
sub mfk
dim address,shijian,jingdian,searchmode,oneorall
address=trim(request("address"))
shijian=request("shijian")
jingdian=trim(request("jingdian"))
searchmode=request("searchmode")
if searchmode="mf" then
if jingdian="" then
sql="select id,x_name,x_leixun,x_shijian,x_baojia,x_jingdian from xianlu where x_shijian like '%"&shijian&"%' and x_name like '%"&address&"%'"
else
if address="" then
sql="select id,x_name,x_leixun,x_shijian,x_baojia,x_jingdian from xianlu where x_shijian like '%"&shijian&"%'"
else
sql="select id,x_name,x_leixun,x_shijian,x_baojia,x_jingdian from xianlu where x_shijian like '%"&shijian&"%' or x_name like '%"&address&"%' or x_jingdian like '%"&jingdian&"%'"
end if
end if
end if
if searchmode="jq" then
sql="select id,x_name,x_leixun,x_shijian,x_baojia,x_jingdian from xianlu where x_shijian = '"&shijian&"' and x_name = '"&address&"' and x_jingdian = '"&jingdian&"'"
end if
set rs=conn.execute (sql)
%>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="772" height="4"></td>
  </tr>
</table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td width="29" height="22" align="center"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle.gif"></td>
<td width="695" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle.gif">搜索结果(此次搜索：<%=jingdian%>　　<%=shijian%>天　　<%=address%>)</td>
<td width="31"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle.gif"></td>
</tr></table>
<table width="751" border="0" align="center" cellpadding="0" cellspacing="1" class="tablebox1">
<tr class="titletable">
<td width="354" height="24" align="center">线 路 名 称(点击查看详细信息)</td>
<td width="110" align="center">类　型</td>
<td width="121" align="center">价　格</td>
<td width="120" align="center">时　间</td>
<td width="50" align="center">预订</td></tr>
<%
while not rs.eof%>
<tr>
<td height="24"><img src=images/mfk5.gif><a href="listxianlu.asp?id=<%=rs("id")%>" title='详细信息'><%=rs("x_name")%></a></td>
<td align="center"><%=rs("x_leixun")%></td>
<td align="center"><%=rs("x_baojia")%></td>
<td align="center"><%=rs("x_shijian")%></td>
<td align="center"><a href="giveme.asp?id=<%=rs("id")%>"><img src=images/mfk7.gif alt="快速预订" border="0"></a></td></tr>
<%rs.movenext
wend
closers(rs)
%>
</table><table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td width="772" height="4"></td></tr></table>
<%
end sub
call pageend
%>