<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-874"> <title>ข้อมูลไม้และการใช้ประโยชน์ ... Thai Timbers Database.</title> <meta name="description" content="ข้อมูลไม้และการใช้ประโยชน์ไม้ในประเทศไทย จัดทำโดยงานคุณสมบัติและวิศวกรรมโครงสร้างไม้ กลุ่มงานพัฒนาผลิตผลป่าไม้ สำนักวิจัยการจัดการป่าไม้และผลิตผลป่าไม้ กรมป่าไม้ เพื่อเผยแพร่ความรู้เรื่องไม้และการใช้ประโยชน์ให้กับผู้สนใจ นักวิชาการป่าไม้ นักวิจัย ใช้เป็นข้อมูลอ้างอิง"> <meta name="keywords" content="ไม้, ป่าไม้, กลสมบัติไม้, พฤษศาสตร์, ไทย, ไม้แปรรูป, ไม้ท่อน, ไม้สวนป่า, wood, timber, lumber, forest, mechanical, physical, botany, plantation, thailand"> </head> <body bgcolor="#CC6600" topmargin="0"> <div align="center"><center> <table width="95%" border="0" cellpadding="0" cellspacing="0" bordercolor="#CC3300"> <tr> <td bgcolor="#FFFFFF"><div align="center"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr bgcolor="#FFFFFF"> <td width="130" rowspan="5" bgcolor="#FFFFFF"><div align="center"> <p><img src="./image/rfd_logo.gif" width="100" height="107" border="0" usemap="#Map"></p> </div></td> <td rowspan="5"> </td> <td rowspan="5" nowrap bgcolor="#FFFFFF"><div align="left"><strong><font color="#CC3300" size="+2" face="sans-serif">ข้อมูลไม้และการใช้ประโยชน์ </font><font color="#CC3300" size="+2" face="sans-serif"></font><font color="#CC3300" face="sans-serif"><br> THAI TIMBERS DATABASE</font></strong></div></td> <td valign="bottom" nowrap bgcolor="#FFFFFF"><div align="right"><strong><font size="-1" face="Geneva, Arial, Helvetica, sans-serif"><a href="http://www.forest.go.th/forprod/thai-timbers" target="_parent">www.forest.go.th/forprod/thai-timbers</a> </font></strong></div></td> </tr> <tr bgcolor="#FFFFFF"> <td valign="bottom"> <div align="right"><font size="-1" face="sans-serif"><a href="../default.php" target="_blank">สำนักวิจัยการจัดการปา่ไม้และผลิตผลป่าไม้</a> </font> </div></td> </tr> <tr bgcolor="#FFFFFF"> </tr> <tr bgcolor="#FFFFFF"> <td valign="bottom"><div align="right"><font size="-1" face="Geneva, Arial, Helvetica, sans-serif">update : <!-- #BeginDate format:Am1 -->November 29, 2010<!-- #EndDate --> </font></div></td> </tr> </table> </td> </tr> <tr> <td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC"> <tr bgcolor="#999999"> <td bgcolor="#8ED345"><div align="left"><img src="./image/vista_plants_10.jpg" width="650" height="53"></div></td> </tr> </table></td> </tr> <tr> <td width="100%" bgcolor="#FFFFFF"> <table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#A7D534"> <tr> <td width="0" valign="middle" background="./image/DSCF3357.jpg" bgcolor="#A7D534"><table width="150" border="0" align="center" cellpadding="2" cellspacing="1"> <tr> <td bgcolor="#CCCC33"><div align="left"><font size="-1" face="sans-serif"><a href="default.asp" target="_parent">หน้าหลัก</a></font></div></td> </tr> <tr> <td bgcolor="#CCCC33"><div align="left"><font size="-1" face="sans-serif"><a href="objective.htm" target="_parent">วัตถุประสงค์</a></font></div></td> </tr> <tr> <td bgcolor="#CCCC33"><div align="left"><font size="-1" face="sans-serif"><a href="discribtion.htm" target="_parent">คำอธิบาย</a></font></div></td> </tr> <tr> <td bgcolor="#CCCC33"><div align="left"><font size="-1" face="sans-serif"><a href="reference.htm" target="_parent">เอกสารอ้างอิง</a></font></div></td> </tr> <tr> <td bgcolor="#CCCC33"><div align="left"><font size="-1" face="sans-serif"><a href="team.htm" target="_parent">คณะผู้จัดทำ</a></font></div></td> </tr> </table> <p align="center"> </p></td> <td width="100%" valign="top"><font face="MS Sans Serif"><small> <!-- ส่วนของ form รับการขอเรียกค้น --> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign="top"><p align="left"><img src="./image/wood.jpeg" width="100" height="74"></p> </td> <td valign="top"><p><table border="0" cellspacing="1" width="100%"> <tr> <td align="center"><p align="center"> <% Rem รับค่าจาก form และ set ค่าเริ่มต้น csql=request.form("csql") gDirect=request.form("Direct") gPage=request.form("PageNo") gPageSize=request.form("PageSize") gty="name" gid="ok" gcm="ok" gtr="ok" ggn="ok" gsp="ok" gsn="ok" gau="ok" gfm="ok" gsfm="ok" Rem ถ้าเป็นการเรียกมาครั้งแรกจะไม่มีค่า csql ก็ให้ข้ามไปที่ส่วนของ form เลย if csql<>"" then Rem รับค่าจาก from ว่าต้องการให้แสดงข้อมูลอะไรบ้าง gid=request.form("gwid") gcm=request.form("gcom") gtr=request.form("gtrad") ggn=request.form("ggen") gsp=request.form("gspec") gau=request.form("gauth") gsn=request.form("gsyn") gfm=request.form("gfam") gsfm=request.form("gsubfam") gty=request.form("gtype") Rem ตั้งเวลาให้ติดต่อได้ไม่เกิน 10 นาที Session.timeout = 10 Rem เริ่มส่วนการติดต่อกับฐานข้อมูลโดยไม่ใช้ DSN Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "&server.mappath("timberDB.mdb") sql="Select * from [timberTB]" Rem ตรวจสอบการค้นว่าต้องการค้นจาก column ใดแล้วกำหนดหัวข้อให้ตรง if gty="name" then sql = sql & " Where name like '%" & csql & "%'" ghead="ชื่อ (name) ที่มีคำว่า" elseif gty="gen" then sql = sql & " Where gen like '%" & csql & "%'" ghead="ชื่อสกุล (genus) ที่มีคำว่า" else sql = sql & " Where spec like '%" & csql & "%'" ghead="ชื่อชนิด (species) ที่มีคำว่า" end if Rem สร้าง Recordset แบบ Static เพื่อให้สามารถนับจะนำได้ Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 1, 3 ' Set RS=Conn.Execute(SQL) Rem หากเกิดข้อผิดพลาดขึ้นก็เลยตามเลย On Error Resume Next Rem นับจำนวนรายการที่สร้างขึ้นมาตามเงื่อนไข TotalRows=RS.RecordCount RS.PageSize = gPageSize PageSize=RS.PageSize TotalPages=RS.PageCount Rem กำหนดหน้าที่จะแสดง จากค่า gDirect ที่ส่งมา Select Case gDirect Case "หน้าแรก" PageNo=1 Case "หน้าที่ผ่านมา" If gPage=1 then PageNo=1 Else PageNo=gPage-1 End If Case "หน้าถัดไป" If Cint(gPage) >=TotalPages then PageNo=TotalPages Else PageNo=gPage+1 End If Case "หน้าสุดท้าย" PageNo=TotalPages Case "ไปยังหน้า" If Cint(gPage)>=Totalpages then PageNo=Totalpages Elseif Cint(gPage)<= 1 then PageNo=1 Else PageNo=gPage End If Case "" PageNo=1 End Select %> <!--เขียนหัวของเอกสารผลลัพธ์--> <font face="MS Sans Serif"><small><strong><font size="+1">ผลการค้นหา</font></strong> <strong><font color="#0000FF" size="+1"> <%=ghead & " " & csql %> </font></strong></small></font> <%if ToTalRows=0 then%> <font face="MS Sans Serif"><small>ไม่มีรายการตามเงื่อนไข</small></font> <%Else%> <small><font face="MS Sans Serif">พบ </font> <strong><font face="MS Sans Serif" color="#FF8000"><%=TotalRows%></font></strong></small> <small><font face="MS Sans Serif">รายการตามเงื่อนไขหน้าที่ </font> <strong><font face="MS Sans Serif" color="#FF8000"><%=PageNo%>/<%=TotalPages%></font></strong></small> <%End if%> <% Rem วนลูปแสดงไปเรื่อยๆ จนกว่าจะหมดรายการ RS.Absolutepage=pageno RowCount = 1%> </td> </tr> </table> <table border="0" cellspacing="1" width="100%"> <tr> <td width="5%" align="center" nowrap bgcolor="#8080C0"><strong><small><small> <font face="MS Sans Serif">No.</font></small></small></strong></td> <td width="13%" align="center" nowrap bgcolor="#8080C0"><strong><small><small><font face="MS Sans Serif">Name</font></small></small></strong></td> <td width="8%" align="center" nowrap bgcolor="#8080C0"><strong><small><small><font face="MS Sans Serif">Genus</font></small></small></strong></td> <td width="9%" align="center" nowrap bgcolor="#8080C0"><strong><small><small><font face="MS Sans Serif">Species</font></small></small></strong></td> <td width="4%" align="center" nowrap bgcolor="#8080C0"><strong><small><small><font face="MS Sans Serif">Family</font></small></small></strong></td> <td width="4%" align="center" nowrap bgcolor="#8080C0"><strong><small><small><font face="MS Sans Serif">Sub-family</font></small></small></strong></td> </tr> <%Do While Not RS.EOF and rowcount<=PageSize%> <tr> <td nowrap bgcolor="#FDDBC1" align="center"><small><small> <font face="MS Sans Serif"><%=((PageNo-1)*RS.PageSize)+RowCount%></font></small></small> </td> <td nowrap bgcolor="#FDDBC1"><div align="left"><small><small><font face="MS Sans Serif"><a href="<%= RS("woodID") %>.asp"><%= hilight(RS("name"))%></a></font></small></small></div></td> <td nowrap bgcolor="#FDDBC1"><div align="left"><small><small><small><font face="MS Sans Serif"><%= hilight(RS("gen")) %></font></small> </small></small> </div></td> <td nowrap bgcolor="#FDDBC1"><div align="left"><small><small><small><font face="MS Sans Serif"><%= hilight(RS("spec")) %></font></small> </small></small> </div></td> <td nowrap bgcolor="#FDDBC1"><div align="left"><small><small><small><font face="MS Sans Serif"><%=RS("Fam") %></font></small> </small></small> </div></td> <td nowrap bgcolor="#FDDBC1"><div align="left"><small><small><small><font face="MS Sans Serif"><%= RS("subFam") %></font></small> </small></small> </div></td> </tr> <% RowCount=RowCount+1 rs.MoveNext Loop rs.CLOSE conn.close %> <%End if%> </table> <form action="result.asp" method="post"> <div align="center"><font face="MS Sans Serif"><strong><font size="+1">ค้นหาข้อมูลไม้ : </font></strong> <input type="text" size="30" name="csql" value="<%=csql%>"> <input name="Submit" type="submit" value="ตกลง"> <input type="reset" name="Reset" value="ยกเลิก"> <font size="+1"><img src="./image/arrow.gif" width="14" height="7"></font><font face="MS Sans Serif"><font size="+1"><img src="./image/arrow.gif" width="14" height="7"></font></font><font size="+1"><img src="./image/arrow.gif" width="14" height="7"></font> <font size="+1"><a href="./adv_search.asp" target="_parent">ค้นหาขั้นสูง </a></font> </font> <div align="left"> </div> <br> <div align="center"> <%if gty="name" then%> <input type="radio" checked name="gtype" value="name"> ชื่อ (name) <%else%> <input type="radio" name="gtype" value="name"> ชื่อ (name) <%end if%> <%if gty="gen" then%> <input type="radio" checked name="gtype" value="gen"> ชื่อสกุล (genus) <%else%> <input type="radio" name="gtype" value="gen"> ชื่อสกุล (genus) <%end if%> <%if gty="spec" then%> <input type="radio" checked name="gtype" value="spec"> ชื่อชนิด (species) <%else%> <input type="radio" name="gtype" value="spec"> ชื่อชนิด (species) <%end if%> </div> </form> </td> <td valign="bottom"><p> </p> <p> </p> <p> </p> <p> </p></td> </tr> </table> </td> </tr> </table> </td> </tr> <tr> <td bgcolor="#000000"></td> </tr> <tr> <td valign="middle" nowrap bgcolor="#A7D534"><div align="center"> <p align="left"><font size="-1" face="sans-serif"><br> Copyright 2007 <a href="http://www.forest.go.th/forprod/aboutus/Dep/fpp.asp" target="_blank">งานคุณสมบัติและวิศวกรรมโครงสร้างไม้ </a> สำนักวิจัยการจัดการป่าไม้และผลิตผลป่าไม้ กรมป่าไม้<br> 61 ถ.พหลโยธิน แขวงลาดยาว เขตจตุจักร กรุงเทพฯ 10900 Tel : 02-5614292-3 ต่อ 491 Fax. 02-9406856<br> <br> </font></p> </div></td> </tr> </table> </center></div> <map name="Map"> <area shape="rect" coords="9,9,93,101" href="http://www.forest.go.th" target="_blank"> </map> </body> </html> <script runat="server" language="vbscript"> <!-- ทำให้ตัวที่ค้นหามีสีเข้ม --> Function hilight(txt) n=1 Do while n<>0 n=instr(ucase(txt),ucase(csql)) if n<>0 then msg=msg & left(txt,n-1)& "<font color=Blue><big>" & mid(txt,n,len(csql)) & "</big></font>" txt = right( txt,len(txt)-(n-1+len(csql)) ) end if loop hilight=msg & txt End Function </script> <script language="vbscript"> Sub msg(txt) msgbox txt end sub </script>