<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=玉里鎮市區&_self">玉里鎮市區</option>
<option value="old-tree-file.asp?district=安通地區&_self">安通地區</option>
<option value="old-tree-file.asp?district=長良地區&_self">長良地區</option>
<option value="old-tree-file.asp?district=觀音地區&_self">觀音地區</option>
</select>
<select size="1" name="old" onChange="jump2(this.form)">
<option value="">請選擇樹齡</option>
<option value="old-tree-file.asp?old=百年&_self">百年</option>
<option value="old-tree-file.asp?old=近百年&_self">近百年</option>
<option value="old-tree-file.asp?old=逾五十年&_self">逾五十年</option>
</select>
<select size="1" name="kind" onChange="jump3(this.form)">
<option value="">請選擇樹種</option>
<option value="old-tree-file.asp?kind=樟樹&_self">樟樹</option>
<option value="old-tree-file.asp?kind=榕&_self">榕樹</option>
<option value="old-tree-file.asp?kind=松&_self">松樹</option>
<option value="old-tree-file.asp?kind=茄苳&_self">茄苳</option>
<option value="old-tree-file.asp?kind=苦楝&_self">苦楝</option>
<option value="old-tree-file.asp?kind=鳳凰木&_self">鳳凰木</option>
<option value="old-tree-file.asp?kind=其它&_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>
留言列表
