linelist.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()

dim sql,rs,idd,sortname
idd=my_request("id",1)
sql="select zm_linesort from ssort_line where sort_id="&idd
set rs=conn.execute (sql)
sortname=rs(0)
rs.close
set rs=nothing

	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=3>三 天</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>")
	
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>&nbsp;<a href=lineList.asp?id="&idd&" class=orgbig>"&sortname&"</a></td>")
response.write ("<td width=23>")
response.write ("<img border=0 src=images/lineconer.gif width=23 height=25></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=left bgcolor=#F0FFDD>线路名称</td>")
response.write ("<td align=left bgcolor=#F0FFDD>类型/时间</td>")
response.write ("<td align=left bgcolor=#F0FFDD>报价</td>")
response.write ("<td align=left bgcolor=#F0FFDD>预定</td>")
response.write ("</tr>")

	dim rss,sqls,k,arrs(4),iii
    sqls="select id,zm_linename,zm_lineprice,zm_linetype,zm_istop from ssort_lines where zm_isok=0 and zm_linesort="&idd&" order by zm_istop desc, zm_flagx asc"
    set rss=server.CreateObject("adodb.recordset")
	rss.open sqls,conn,1,1
	if (rss.eof and rss.bof) then
	response.write "<tr>"
    response.write "<td class=12px width=760 colspan=6><font color=#FF0000>暂时还没有任何数据</font></td>"
    response.write "</tr>"
    else
    rss.PageSize =20 '每页记录条数
			iCount=rss.RecordCount '记录总数
			iPageSize=rss.PageSize
    		maxpage=rss.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rss.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if

end if
						  iii=1
						  while not rss.eof and iii<=rss.pagesize
arrs(0)=rss(0)
arrs(1)=rss(1)
arrs(2)=rss(2)
arrs(3)=rss(3)

response.write ("<tr class=12px>")
response.write ("<td>")
response.write ("<img border=0 src=images/icon_4x7_arrow.gif width=8 height=7><a href=lineDetail.asp?id="&arrs(0)&" target=_blank class=small>"&arrs(1)&"</a></td>")
response.write ("<td>"&arrs(3)&"</td>")
response.write ("<td>"&arrs(2)&"</td>")
response.write ("<td align=left>")
response.write ("<img border=0 src=images/point_order.gif width=10 height=14></td>")
response.write ("</tr>")
rss.movenext
iii=iii+1
wend
response.write ("<tr>")
response.write ("<td colspan=4>")
call PageControl(iCount,maxpage,page,"border=0 align=left","<p align=left>")
response.write ("</td>")
response.write ("</tr>")
response.write ("</table>")
response.write ("</td>")
response.write ("</tr>")
response.write ("</table>")
rss.close
set rss=nothing
response.write ("<table border=0 width=100% cellpadding=0 class=istable>")
response.write ("<tr>")
response.write ("<td>　</td>")
response.write ("</tr>")
response.write ("</table>")
response.write ("</td>")
response.write ("</tr>")
response.write ("</table>")
response.write ("</div>")
call htmlend()
%>