index.asp

漂亮的欧美旅游模板

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#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"-->
<%
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>")
	
dim sql,rs,arrlist(2),p
sql="select sort_id,zm_linesort from ssort_line order by zm_flag asc"
set rs=conn.execute (sql)
if rs.eof then
response.write "暂时没有任何线路类别"
else
do while not rs.eof
for p=0 to 1
arrlist(p)=rs(p)
next

	response.write ("<table border=0 width=100% cellpadding=0 class=istable>")
	response.write ("<tr>")
	response.write ("<td>")

	response.write ("<table border=0 width=100% cellpadding=0 class=istable>")
	response.write ("<tr>")
	response.write ("<td bgcolor=#5483D1 align=center>")
	response.write ("&nbsp;")
	response.write ("<a href=lineList.asp?id="&arrlist(0)&" class=orgbig>"&arrlist(1)&"</a>")
	response.write ("</td>")
	response.write ("<td width=23>")
	response.write ("<img border=0 src=images/lineconer.gif width=23 height=25>")
	response.write ("</td>")
	response.write ("<td width=367 style=""border-bottom: 2px solid #5483D1"">")
	response.write ("</td>")
	response.write ("</tr>")
	response.write ("</table>")
	response.write ("</td>")
	response.write ("</tr>")
	response.write ("<tr>")
	response.write ("<td>")
	response.write ("<table border=0 width=100% cellpadding=4 class=istable>")
	response.write ("<tr class=12px>")
	response.write ("<td align=center bgcolor=#F0FFDD>线路名称</td>")
	response.write ("<td align=center bgcolor=#F0FFDD>类型/时间</td>")
	response.write ("<td align=center bgcolor=#F0FFDD>报价</td>")
	response.write ("<td align=center bgcolor=#F0FFDD>预定</td>")
	response.write ("</tr>")

dim rss,sqls,k,arr(4)
sqls="select id,zm_linename,zm_lineprice,zm_linetype,zm_istop from ssort_lines where zm_linesort="&arrlist(0)&" and zm_isok=0 order by zm_istop desc, zm_flagx asc"
set rss=conn.execute (sqls)
if rss.eof then
response.write "暂时没有任何数据"
else
do while not rss.eof
for k=0 to 4
arr(k)=rss(k)
next

	response.write ("<tr class=12px>")
	response.write ("<td>")
	response.write ("<img src=images/info.gif align=absMiddle>")
	response.write ("<a href=lineDetail.asp?id="&arr(0)&" target=_blank class=small>"&arr(1)&"</a>")
if arr(4)=1 then response.write ("&nbsp;<img src=images/tuijian.gif>")
	response.write ("</td>")
	response.write ("<td>"&arr(3)&"</td>")
	response.write ("<td>"&arr(2)&"</td>")
	response.write ("<td align=center>")
	response.write ("<a href=orderit.asp?id="&arr(0)&"><img border=0 src=images/point_order.gif></a></td>")
	response.write ("</tr>")

rss.movenext
loop
rss.close
set rss=nothing
end if

						
						
	response.write ("</table>")
	response.write ("</td>")
	response.write ("</tr>")
	response.write ("<tr>")
	response.write ("<td align=right>")
	response.write ("<img border=0 src=images/icon_point.gif width=16 height=16 align=absmiddle>")
	response.write ("<a href=lineList.asp?id="&arrlist(0)&" class=small target=_blank>更多</a>")
	response.write ("</td>")
	response.write ("</tr>")
	response.write ("<tr>")
	response.write ("<td>　</td>")
	response.write ("</tr>")
	response.write ("</table>")

rs.movenext
loop
rs.close
set rs=nothing
end if

	response.write ("</td>")
	response.write ("</tr>")
	response.write ("</table>")

call htmlend()
%>