<% 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 not isnull(rs("record")) then %> <% end if%>
資料提供: <%=rs("provider_chinese")%>
       文獻: <%=rs("citation")%>
歷史紀錄: <%=rs("record")%>
形態特徵: <%=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%>

<% 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 %> 本資料庫尚未建立此物種基本資料,請向下列資料庫查詢(點選後會自動以此學名查詢)
<%else%> 其他詳細資料,請向下列資料庫查詢(點選後會自動以此學名查詢) <%end if%>

| &p_string=exactly+for&p_name=<%=rs("genus")%>+<%=rs("species")%>">BiOSC Point Data+<%=rs("species")%>">CISTI | +<%=rs("species")%>&time=7&x=44&y=7">Google | %20<%=rs("species")%>">GOBASE | +<%=rs("species")%>">PubMed+<%=rs("species")%>wordtype_1=all&dsweb=on&dsmem=on&hits=10">Scirus">Zoological Record