research.asp

漂亮的欧美旅游模板

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="db_conn.asp"-->
<!--#include file="my_libs/my_request.asp"-->
<!--#include file="my_libs/my_lib.asp"-->
<!--#include file="my_libs/comm.asp"-->
<!--#include file="my_libs/pages.asp"-->
<%
response.write ("<script language=javascript>")
response.write ("function check(){if(formu.uwhere.value==''){alert(""您要去的地方必须填写！"");return false;}}")
response.write ("</script>")
call head("最新动态_"&arrlist_s(0))
call top()
	response.write ("<div align=center>")
	response.write ("<table border=0 width=760 cellpadding=4 class=istable height=28>")
	response.write ("<tr class=smallblack>")
	response.write ("<td>当前位置: 网站首页 &gt;&gt; 最新动态</td>")
	response.write ("</tr>")
	response.write ("</table>")

	response.write ("<table border=0 width=760 cellpadding=0 class=istable>")
	response.write ("<tr>")
	response.write ("<td width=220 valign=top>")

dim y
for y=1 to 5
call left(y)
next
	response.write ("</td>")
	response.write ("<td width=10 valign=top>　</td>")
	response.write ("<td width=530 valign=top>")
	response.write ("<table border=1 width=100% cellpadding=0 class=istable bordercolor=#C0C0C0 cellspacing=0>")
	response.write ("<tr>")
	response.write ("<td>")
	response.write ("<table border=0 width=528 cellpadding=2 style=""border-collapse: collapse; border-top: 4px solid #F1F1F1; background-color: #E7E7E7"">")
	response.write ("<form action=research.asp method=post name=formu onsubmit='return check();'>")
	response.write ("<tr class=smallblack>")
	response.write ("<td width=281>")
	response.write ("<p align=right>")
	response.write ("您想要去的地方：<input type=text name=uwhere size=20 maxlength=50>")
	response.write ("</td>")
	response.write ("<td width=239>您想出行几天：<select size=1 name=uday>")
	response.write ("<option selected value=三>三 天</option>")
	response.write ("<option value=四>四 天</option>")
	response.write ("<option value=五>五 天</option>")
	response.write ("<option value=六>六 天</option>")
	response.write ("<option value=七>七 天</option>")
	response.write ("</select></td>")
	response.write ("</tr>")
	response.write ("<tr class=smallblack>")
	response.write ("<td width=281>")
	response.write ("<p align=right>您想游览的景点：<input type=text name=usight size=20 maxlength=50></td>")
	response.write ("<td width=239>")
	response.write ("<input type=radio value=1 checked name=flag>模糊搜索")
	response.write ("<input type=radio value=2 name=flag>精确搜索&nbsp;<input type=submit value=给我搜 name=B1></td>")
	response.write ("</tr></form>")
	response.write ("</table>")
	response.write ("</td>")
	response.write ("</tr>")
	response.write ("</table>")
	response.write ("<table border=0 width=100% cellpadding=0 class=istable>")
	response.write ("<tr>")
	response.write ("<td>　</td>")
	response.write ("</tr>")
	response.write ("</table>")
	%>
			<table border="0" width="100%" cellpadding="0" class=istable style="line-height: 150%">
				<tr>
					<td colspan="5">
					<table border="0" width="100%" cellpadding="0" class=istable>
						<tr>
							<td bgcolor="#5483D1">
							<p align="center"><font color="#FFFFFF"><b>
							<span style="font-size: 14px">&nbsp;</span></b><span style="font-size: 14px"><b>查询结果</b></span></font></td>
							<td width="23">
							<img border="0" src="images/lineconer.gif" width="23" height="25"></td>
							<td width="367" style="border-bottom: 2px solid #5483D1">
							　</td>
						</tr>
					</table>
					</td>
				</tr>
				<tr class=smallblack>
					<td height="10">线路名称</td>
					<td height="10">类型</td>
					<td height="10">价格</td>
					<td height="10">时间</td>
					<td height="10">预订</td>
				</tr>
				<%
dim uwhere,uday,usight,flag,usql,urs,line(4),u
uwhere=my_request("uwhere",0)
uday=my_request("uday",0)
usight=my_request("usight",0)
flag=my_request("flag",1)
if flag=1 then
if usight="" then
usql="select id,zm_linename,zm_lineprice,zm_linetype,zm_linetime from ssort_lines where zm_linetime like '%"&uday&"%' and zm_linename like '%"&uwhere&"%' and zm_isok=0 order by zm_istop desc, zm_flagx asc"
else
usql="select id,zm_linename,zm_lineprice,zm_linetype,zm_linetime from ssort_lines where zm_linetime like '%"&uday&"%' or zm_linename like '%"&uwhere&"%' or zm_sing like '%"&usight&"%' order by zm_istop desc, zm_flagx asc"
end if
end if
if flag=2 then
usql="select id,zm_linename,zm_lineprice,zm_linetype,zm_linetime from ssort_lines where zm_linetime = '"&uday&"' and zm_linename = '"&uwhere&"' and zm_isok=0 order by zm_istop desc, zm_flagx asc"
end if
set urs=conn.execute (usql)
if urs.eof then
response.write ("<tr class=smallblack><td colspan=5>对不起，没有您查询的结果</td></tr>")
else
while not urs.eof
for u=0 to 4
line(u)=urs(u)
next
%>
				<tr class=smallblack>
					<td height="10"><a href=lineDetail.asp?id=<%=line(0)%> target=_blank class=small><%=line(1)%></a></td>
					<td height="10"><%=line(3)%></td>
					<td height="10"><%=line(2)%></td>
					<td height="10"><%=line(4)%></td>
					<td height="10"><a href=orderit.asp?id=<%=line(0)%>><img border=0 src=images/point_order.gif></a></td>
				</tr>
				<%
				urs.movenext
				wend
				urs.close
				set urs=nothing
				end if
				%>
				</table>
		<table border="0" width="100%" id="table6" cellpadding="0" class=istable>
				<tr>
					<td></td>
				</tr>
		</table>
		</td>
	</tr>
</table>




</div>
<%
call htmlend()
%>