<%@ Language=VBScript %> <% cn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("isandict.mdb") rpp = 10 'จำนวน record ต่อหน้า (Records Per Page) pc = 0 p = 1 if isnumeric(request("p")) then p = cint(request("p")) 'หน้าที่เลือก if p < 1 then p = 1 end if else p = 1 end if %> Isan - Thai - English Dictionary : IsanGate.Com

ดิกชันนารีออนไลน์ อีสาน-ไทย-อังกฤษ

ค้นหาฉับไว คำไทยอีสาน ด้วย Dictionary Online : Isan - Thai - English
ฐานข้อมูลจากหนังสือ : สารานุกรมภาษาอีสาน-ไทย-อังกฤษ  โดย ดร.ปรีชา  พิณทอง
» » ขณะนี้มีบริการถึงหมวดตัวอักษร ก. ไก่ - บ. ใบไม้ ครบทุกคำแล้วครับ « «
(ที่เหลือหมวดตัวอักษรอื่นจะเพิ่มเฉพาะคำที่เป็นภาษาอีสานแท้ๆ ก่อน)

" method=get>
ค้นหาคำที่ต้องการ : ">

<% if trim(request("w")) <> "" and len(trim(request("w"))) > 1 then %> <% w = request("w") Set rs = Server.CreateObject("adodb.recordset") ' sql = "SELECT * FROM ISANDICT WHERE IWORD Like '%" & w & "%' or TWORD Like '%" & w & "%' or EWORD Like '%" & w & "%'" sql = "SELECT * FROM ISANDICT WHERE IWORD Like '%" & w & "%' or EWORD Like '%" & w & "%'" 'Response.write sql rs.Open sql,cn,adOpenStatic if not rs.EOF then rs.PageSize = rpp rs.AbsolutePage = p pc = rs.PageCount else pc = 1 end if i = 0 Do while not rs.EOF and i < rpp iw = replace(rs("IWORD"),w,"" & w & "") tw = rs("TWORD") ew =replace(rs("EWORD"),w,"" & w & "") kw = rs("KWORD") %> <% rs.MoveNext i = i + 1 Loop rs.Close set rs = nothing %>
คำที่พบ (อีสาน) ชนิดคำ ความหมายภาษาไทยกลาง - ภาษาอังกฤษ
<%= iw%> <%= kw%> <%= tw%>
<%= ew%>
<% end if %> <% w = Server.URLEncode(w) if pc > 1 then %> <%if pc > p then%> ?p=<%= p + 1%>&w=<%= w%>"> Next | <%else%> Next | <% end if for i = 1 to pc if p = i then Response.Write i & " | " else Response.Write "" & i & " | " end if next %> <% end if %>

รายละเอียดปลีกย่อยที่ควรรู้เกี่ยวกับหนังสือเล่มนี้ Top of page