- Talamok.com ทะเลหมอกดอทคอม แนะนำสถานที่ชมวิวทะเลหมอกทั่วไทย อาทิ เช่น เนินกูดดอย ผาโหล่นน้อย ดอยวาว
- พื้นที่โฆษณา 1 บรรทัด พื้นที่นี้รอท่านอยู่นะครับ | สนใจลงโฆษณาติดต่อ 08-1629-3354 โจ ( เจ้าของเว็บหามานานดอทคอม )
|
<%
thmonth=array("ม.ค.","ก.พ.","มี.ค.","เม.ย.","พ.ค.","มิ.ย.","ก.ค.","ส.ค.","ก.ย.","ต.ค.","พ.ย.","ธ.ค.")
' ---- ส่วนติดต่อกับฐานข้อมูลเพื่อแสดงรายการคำถาม
Set Conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../cgi-bin/superintrowebsite.mdb")
if request("keyword") <> "" then
Sql="Select id,name,address,describ,group from webdat where (name like '%"&request("keyword")&"%') or (describ like '%"&request("keyword")&"%') or (group like '%"&request("keyword")&"%') order by id desc"
else
Sql="Select id,name,address,describ,group from webdat order by id desc"
end if
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
total=RS.Recordcount
if total=0 then%>
ไม่พบข้อมูล.....ใกล้เคียงกับคำที่คุณต้องการครับผม
----> ลองคำอื่นดูนะครับ
<%else
pagesize=20
totalpage=total\pagesize
if (total mod pagesize) <> "0" then
totalpage= totalpage+1
end if
RS.Move pagesize*(pageno-1)
a=1
if trim(pageno) <> trim(totalpage) then
endrecord = pagesize
else
if (total mod pagesize)=0 then
endrecord=10
else
endrecord=(total mod pagesize)
end if
end if
For a=1 to endrecord%>
<%ano=rs("name")
ano=replace(ano,"<","<")
ano=replace(ano,chr(13),"
")
if flag=8 then
flag=6
color="ffffff"
elseif flag=4 then
flag=8
color="ffffff"
elseif flag=2 then
flag=4
color="ffffff"
elseif flag=3 then
flag=2
color="ffffff"
else
flag=3
color="ffffff" 'สีอ่อนสุด
End If
%>
target="_blank"><%=RS("address")%>
- <%=RS("name")%> ---> ( <%=RS("id")%> )
<%=RS("describ")%>
กลุ่ม : : :> target=_blank><%=RS("group")%>
<%RS.MoveNext
Next
rs.close
conn.close%>
|
|
: : : : : : : : ค้นหาพบทั้งหมด <%=total%> website : : : : : : : :
|
|
ลิงก์ผู้สนับสนุน : -
