% gen=request("gen") spe=request("spe") TSID=request("TSID") sc=request("sc") predirect="http://taibnet.sinica.edu.tw/chi/taibnet_species_detail.php?gen=" & gen & "&spe=" & spe & "&name_code=" & TSID & "&sc=" & sc response.redirect predirect if TSID="" then if gen="" or spe="" then ps=gen & spe response.redirect "taibnet_species_query2.asp?D2=ScientificName&D3=contain&T1=" & ps else sql="SELECT * from taibnet_specieslist where genus='" & gen & "' and species='" & spe & "'" end if else sql="SELECT * from taibnet_specieslist where TSID=" & TSID end if rs.open sql ,conn ,1,1 if rs.eof then response.redirect "../home.asp" 'TSID 查不到就跳回首頁 end if pValid="" if rs("isValid")=0 then if rs("Valid_TSID") <>"" then TSID=rs("Valid_TSID") pValid="" else pValid=" [無效,不正確或不產於台灣地區的物種名]" end if rs.close if TSID="" then sql="SELECT * from taibnet_specieslist where genus='" & gen & "' and species='" & spe & "'" else sql="SELECT * from taibnet_specieslist where TSID=" & TSID end if rs.open sql ,conn ,1,1 end if if rs("endemic")="Yes" then pende=" [特有種]" else pende= Null end if %>
Kingdom <%=rs("kingdom")%> <%=rs("kingdom_c")%> Phylum <%=rs("phylum")%> <%=rs("phylum_c")%> Class <%=rs("theclass")%> <%=rs("class_c")%> Order <%=rs("theorder")%> <%replunicode rs("order_c_u")%> Family <%=rs("family")%> <%replunicode rs("family_c_u")%> <%=rs("ScientificName")%> <%=rs("authors")%> <%=rs("year")%> <%=rs("subspecies")%> <%=rs("mutation")%> <%=rs("authors2")%> <%replunicode rs("species_c1_u")%> <%replunicode rs("species_c2_u")%> <%=pende%> <%=pValid%> <% sql3 = "SELECT * from taibnet_synonym where TSID='" & TSID & "' and Valid_SW <> '1' order by Science" if rs3.state = 1 then rs3.close rs3.open sql3 ,conn ,1,1 for i =1 to rs3.RecordCount %> <%=rs3("Science")%> <%=rs3("Author")%> <%=rs3("Valid_status")%> (synonym) <% rs3.movenext if rs3.eof then exit for next %> |
<% if rs("photo") <> "" then %> .jpg"> <% end if%> |
<%=rs("ScientificName")%> 基本資料摘要 ">English Version
<% if isnull(rs("Diagnosis_C")) then
pnull=true
else
if trim(rs("Diagnosis_C"))="" then
pnull=true
else
pnull=false
end if
end if
if pnull then
%>
本資料庫尚未建立此物種基本資料,請向下列資料庫查詢(點選後會自動以此學名查詢)
資料提供:
<%=rs("provider_chinese")%>
<% if not isnull(rs("record")) then %>
文獻:
<%=rs("citation")%>
歷史紀錄:
<%=rs("record")%>
<% end if%>
形態特徵:
<%=rs("Diagnosis_C")%>
棲所生態:
<%=rs("Habitat_C")%>
地理分布:
<%=rs("Distribution_C")%>
利用:
<%=rs("Utility_C")%>
物種編號:
<%=rs("TSID")%>
推薦連結:
<%
link=""
link1=""
linkgo=""
if rs("suggested_link") <> "" then
link=rs("suggested_link")
while len(link) > 1
if instr(link,";") >1 then
link1=mid(link,1,instr(link,";")-1)
link=mid(link,instr(link,";")+1)
else
link1=link
link=""
end if
sql="select * from taibnet_SuggestedLink where id='" & link1 & "'"
if rs2.state=1 then rs2.close
rs2.open sql, conn,1,1
suggested_link_name=rs2("suggested_link_name")
icon=rs2("icon")
if rs2("linkurl") = "Fixed" then
sql="select * from taibnet_FixUrl where id='" & link1 & "' and tsid=" & rs("tsid")
if rs2.state=1 then rs2.close
rs2.open sql, conn,1,1
end if
linkgo=replace(rs2("linkurl"),"SSS",rs("ScientificName"))
linkgo=replace(linkgo,"GGG",rs("genus"))
linkgo=replace(linkgo,"PPP",rs("species"))
%>
<%=suggested_link_name%>
<% wend
end if%>
<%else%>
其他詳細資料,請向下列資料庫查詢(點選後會自動以此學名查詢)
<%end if%>