<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<title>@@|||</title>

<script>
<!--
function land(ref, target)
{
if (target=="_self") {window.location=loc;}
else {if (target=="_top") {top.location=loc;}
else {if (target=="_blank") {window.open(loc);}
else {if (target=="_parent") {parent.location=loc;}
else {parent.frames[target].location=loc;};
}}}
}

function jump1(menu1)
{
ref=menu1.district.options[menu1.district.selectedIndex].value;
splitc=ref.lastIndexOf("&");
target="";
if (splitc!=-1)
{loc=ref.substring(0,splitc);
target=ref.substring(splitc+1,1000).toLowerCase();}
else {loc=ref; target="_self";};
if (ref != "") {land(loc,target);}
}
-->
</script>
<script>
<!--
function land(ref, target)
{
if (target=="_self") {window.location=loc;}
else {if (target=="_top") {top.location=loc;}
else {if (target=="_blank") {window.open(loc);}
else {if (target=="_parent") {parent.location=loc;}
else {parent.frames[target].location=loc;};
}}}
}

function jump2(menu2)
{
ref=menu2.old.options[menu2.old.selectedIndex].value;
splitc=ref.lastIndexOf("&");
target="";
if (splitc!=-1)
{loc=ref.substring(0,splitc);
target=ref.substring(splitc+1,1000).toLowerCase();}
else {loc=ref; target="_self";};
if (ref != "") {land(loc,target);}
}
-->
</script>

<script>
<!--
function land(ref, target)
{
if (target=="_self") {window.location=loc;}
else {if (target=="_top") {top.location=loc;}
else {if (target=="_blank") {window.open(loc);}
else {if (target=="_parent") {parent.location=loc;}
else {parent.frames[target].location=loc;};
}}}
}

function jump3(menu3)
{
ref=menu3.kind.options[menu3.kind.selectedIndex].value;
splitc=ref.lastIndexOf("&");
target="";
if (splitc!=-1)
{loc=ref.substring(0,splitc);
target=ref.substring(splitc+1,1000).toLowerCase();}
else {loc=ref; target="_self";};
if (ref != "") {land(loc,target);}
}
-->
</script>
</head>

<body>

<form name="form1">

<select name="district" size="1" onChange="jump1(this.form)">
<option value="">請選擇行政區</option>
<option value="old-tree-file.asp?district=玉里鎮市區&amp;_self">玉里鎮市區</option>
<option value="old-tree-file.asp?district=安通地區&amp;_self">安通地區</option>
<option value="old-tree-file.asp?district=長良地區&amp;_self">長良地區</option>
<option value="old-tree-file.asp?district=觀音地區&amp;_self">觀音地區</option>
</select>

<select size="1" name="old" onChange="jump2(this.form)">
<option value="">請選擇樹齡</option>
<option value="old-tree-file.asp?old=百年&amp;_self">百年</option>
<option value="old-tree-file.asp?old=近百年&amp;_self">近百年</option>
<option value="old-tree-file.asp?old=逾五十年&amp;_self">逾五十年</option>
</select>

<select size="1" name="kind" onChange="jump3(this.form)">
<option value="">請選擇樹種</option>
<option value="old-tree-file.asp?kind=樟樹&amp;_self">樟樹</option>
<option value="old-tree-file.asp?kind=榕&amp;_self">榕樹</option>
<option value="old-tree-file.asp?kind=松&amp;_self">松樹</option>
<option value="old-tree-file.asp?kind=茄苳&amp;_self">茄苳</option>
<option value="old-tree-file.asp?kind=苦楝&amp;_self">苦楝</option>
<option value="old-tree-file.asp?kind=鳳凰木&amp;_self">鳳凰木</option>
<option value="old-tree-file.asp?kind=其它&amp;_self">其它</option>
</select>

</form>

<br>

<%
if Request.QueryString("district")="" And Request.QueryString("old")="" And Request.QueryString("kind")="" then

set rs=nothing
Set conn = Server.CreateObject("ADODB.connection")
DBPath = Server.MapPath("admin/database/tree.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

Set rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tree_file"
rs.Open Sql, conn, 1,1
%>
<table border="1" width="100%" id="table11" bordercolor="#999966">
<tr>
<td bgcolor="#B1B163" align="center" width="105">行政區</td>
<td bgcolor="#B1B163" align="center">地點</td>
<td bgcolor="#B1B163" align="center">樹種</td>
<td bgcolor="#B1B163" align="center">樹齡</td>
<td bgcolor="#B1B163" align="center">內容</td>
</tr>
<%
Do While not rs.Eof
%>
<tr>
<td width="105" align="center"><font size="2"><%=rs("district")%></font></td>
<td align="center"><p style="margin-top: 2px; margin-bottom: 2px" align="center"><font size="2"><%=rs("location")%></font></td>
<td align="center"><font size="2"><%=rs("kind")%></font></td>
<td align="center"><font size="2"><%=rs("old")%></font></td>
<td align="center"><p style="margin-top: 2px; margin-bottom: 2px" align="center"><a href="cultural2.asp?aa=<%=rs("location")%>"><font size="2">詳細介紹</font></a></td>
</tr>
<%
rs.MoveNext
Loop
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
</table>
<%End If%>

<%
'----------------------------------------------------------------------------------------------------------------------------------------------------
%>

<%
if Request.QueryString("district")<>"" then

district = Request.QueryString("district")

set rs=nothing
Set conn = Server.CreateObject("ADODB.connection")
DBPath = Server.MapPath("admin/database/tree.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

Set rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tree_file where district='"&district&"'"
rs.Open Sql, conn, 1,1
%>
<table border="1" width="100%" id="table12" bordercolor="#999966">
<tr>
<td bgcolor="#B1B163" align="center" width="105">行政區</td>
<td bgcolor="#B1B163" align="center">地點</td>
<td bgcolor="#B1B163" align="center">樹種</td>
<td bgcolor="#B1B163" align="center">樹齡</td>
<td bgcolor="#B1B163" align="center">內容</td>
</tr>
<%
Do While not rs.Eof
%>
<tr>
<td width="105" align="center"><font size="2"><%=rs("district")%></font></td>
<td align="center"><p style="margin-top: 2px; margin-bottom: 2px" align="center"><font size="2"><%=rs("location")%></font></td>
<td align="center"><font size="2"><%=rs("kind")%></font></td>
<td align="center"><font size="2"><%=rs("old")%></font></td>
<td align="center"><p style="margin-top: 2px; margin-bottom: 2px" align="center"><a href="cultural2.asp?aa=<%=rs("location")%>"><font size="2">詳細介紹</font></a></td>
</tr>
<%
rs.MoveNext
Loop
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
</table>
<%End If%>

<%
'----------------------------------------------------------------------------------------------------------------------------------------------------
%>

<%
if Request.QueryString("old")<>"" then

old = Request.QueryString("old")

set rs=nothing
Set conn = Server.CreateObject("ADODB.connection")
DBPath = Server.MapPath("admin/database/tree.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

Set rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tree_file where old='"&old&"'"
rs.Open Sql, conn, 1,1
%>
<table border="1" width="100%" id="table13" bordercolor="#999966">
<tr>
<td bgcolor="#B1B163" align="center" width="105">行政區</td>
<td bgcolor="#B1B163" align="center">地點</td>
<td bgcolor="#B1B163" align="center">樹種</td>
<td bgcolor="#B1B163" align="center">樹齡</td>
<td bgcolor="#B1B163" align="center">內容</td>
</tr>
<%
Do While not rs.Eof
%>
<tr>
<td width="105" align="center"><font size="2"><%=rs("district")%></font></td>
<td align="center"><p style="margin-top: 2px; margin-bottom: 2px" align="center"><font size="2"><%=rs("location")%></font></td>
<td align="center"><font size="2"><%=rs("kind")%></font></td>
<td align="center"><font size="2"><%=rs("old")%></font></td>
<td align="center"><p style="margin-top: 2px; margin-bottom: 2px" align="center"><a href="cultural2.asp?aa=<%=rs("location")%>"><font size="2">詳細介紹</font></a></td>
</tr>
<%
rs.MoveNext
Loop
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
</table>
<%End If%>

<%
'----------------------------------------------------------------------------------------------------------------------------------------------------%>

<%
if Request.QueryString("kind")<>"" then

kind = Request.QueryString("kind")

set rs=nothing
Set conn = Server.CreateObject("ADODB.connection")
DBPath = Server.MapPath("admin/database/tree.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

Set rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tree_file where kind Like '%"&kind&"%'"
rs.Open Sql, conn, 1,1
%>
<table border="1" width="100%" id="table14" bordercolor="#999966">
<tr>
<td bgcolor="#B1B163" align="center" width="105">行政區</td>
<td bgcolor="#B1B163" align="center">地點</td>
<td bgcolor="#B1B163" align="center">樹種</td>
<td bgcolor="#B1B163" align="center">樹齡</td>
<td bgcolor="#B1B163" align="center">內容</td>
</tr>
<%
Do While not rs.Eof
%>
<tr>
<td width="105" align="center"><font size="2"><%=rs("district")%></font></td>
<td align="center"><p style="margin-top: 2px; margin-bottom: 2px" align="center"><font size="2"><%=rs("location")%></font></td>
<td align="center"><font size="2"><%=rs("kind")%></font></td>
<td align="center"><font size="2"><%=rs("old")%></font></td>
<td align="center"><p style="margin-top: 2px; margin-bottom: 2px" align="center"><a href="cultural2.asp?aa=<%=rs("location")%>"><font size="2">詳細介紹</font></a></td>
</tr>
<%
rs.MoveNext
Loop
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
</table>
<%End If%>
</body>
</html>

lovean 發表在 痞客邦 PIXNET 留言(0) 人氣()