ค้นหาฉับไว คำไทยอีสาน ด้วย Dictionary Online : Isan - Thai - English
ฐานข้อมูลจากหนังสือ : สารานุกรมภาษาอีสาน-ไทย-อังกฤษ โดย ดร.ปรีชา พิณทอง
» » ขณะนี้มีบริการถึงหมวดตัวอักษร ก. ไก่ - บ. ใบไม้ ครบทุกคำแล้วครับ « « (ที่เหลือหมวดตัวอักษรอื่นจะเพิ่มเฉพาะคำที่เป็นภาษาอีสานแท้ๆ ก่อน)
<%
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")
%>
|
<%= iw%>
|
<%= kw%>
|
<%= tw%>
|
|
<%= ew%>
|
<%
rs.MoveNext
i = i + 1
Loop
rs.Close
set rs = nothing
%>
<%
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
%>
|