?? linesearchrlt.asp
字號:
<!--#include file="admin/conndb.asp"-->
<html>
<head>
<title>旅游線路查詢結果</title>
<link href="style.css" rel="stylesheet">
</head>
<body>
<form name="form1" method="POST">
<%
Dim SearchCnd
SearchCnd = ""
lname = Request("name")
area = Request("area")
days = Request("days")
If lname<>"" And area<>"" Then
'表示選擇線路
SearchCnd = " l.LineName Like '%"&lname&"%' And a.AreaName Like '%"&area&"%'"
ElseIf lname<>"" And area="" Then
SearchCnd = " l.LineName Like '%"&lname&"%'"
ElseIf lname="" And area<>"" Then
SearchCnd = " a.AreaName Like '%"&area&"%'"
End If
If days<>"" And SearchCnd="" Then
SearchCnd = " l.Days="&Cint(days)
ElseIf days<>"" And SearchCnd<>"" Then
SearchCnd = SearchCnd&" And l.Days="&Cint(days)
ElseIf days="" And SearchCnd<>"" Then
SearchCnd = SearchCnd
End If
'Response.Write searchcnd
Dim rs
Set rs = Server.CreateObject("ADODB.RecordSet")
If SearchCnd="" Then
sql = "Select l.*,a.TypeId,a.AreaName From Line l,Area a Where l.AreaId=a.AreaId Order By l.LineId Desc"
Else
sql = "Select l.*,a.TypeId,a.AreaName From Line l,Area a Where l.AreaId=a.AreaId And "&SearchCnd&" Order By l.LineId Desc"
End If
'Response.Write sql
rs.Open sql,Conn,1,1
%>
<p align=center><font color="#000080"><b><font color="#990000" style="font-size: 12pt">旅游線路查詢結果</font></b></font></p>
<table align=center border="1" cellspacing="0" width="100%" bordercolorlight="#FFE8DD" bordercolordark="#FFFFFF">
<tr>
<td width="20%" align="center" bgcolor="#FFE8DD"><strong>地域</strong></td>
<td width="40%" align="center" bgcolor="#FFE8DD"><strong>線路名稱</strong></td>
<td width="10%" align="center" bgcolor="#FFE8DD"><strong>行程天數</strong></td>
<td width="30%" align="center" bgcolor="#FFE8DD"><strong>適合人群</strong></td>
</tr>
<%
Do While Not rs.Eof
%>
<tr>
<td align="center"><%If rs("TypeId")=1 Then%>本市<%Else%>外埠<%End If%>--<%=rs("AreaName")%></td>
<td><a href="/travel/LineView.asp?lid=<%=rs("LineId")%>" target="_blank">
<%=rs("LineName")%></a></td>
<td align="center"><%=rs("Days")%></td>
<td align="center"><%=rs("People")%></td>
</tr>
<%
rs.MoveNext()
Loop
rs.Close
%>
</table>
<p align="center"><a href="javascript:window.close();">[ 關 閉 ]</a></p>
</form>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -