<!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">&nbsp;</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>&nbsp;&nbsp; </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>&nbsp;&nbsp; </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 -->
&nbsp;&nbsp; </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">&nbsp;</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>&nbsp;</p>
      <p>&nbsp;</p>
      <p>&nbsp;</p>
      <p>&nbsp;</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>