apcthailand directory search...

<% Rem รับค่าจาก form และ set ค่าเริ่มต้น csql=request.form("csql") gDirect=request.form("Direct") gPage=request.form("PageNo") gPageSize=request.form("PageSize") gco="coname" gde="ok" gpro="ok" gte="ok" Rem ถ้าเป็นการเรียกมาครั้งแรกจะไม่มีค่า csql ก็ให้ข้ามไปที่ส่วนของ form เลย if csql<>"" then Rem รับค่าจาก from ว่าต้องการให้แสดงข้อมูลอะไรบ้าง gde=request.form("gdet") gpro=request.form("gprov") gte=request.form("gtel") gco=request.form("gcon") Rem ตั้งเวลาให้ติดต่อได้ไม่เกิน 10 นาที Session.timeout = 10 Rem เริ่มส่วนการติดต่อกับฐานข้อมูล set conn = Server.CreateObject("ADODB.Connection") conn.open "Apcthailand_com_1","","" 'conn.open "sqlbook","sa","port3" sql="Select * from [Apc]" Rem ตรวจสอบการค้นว่าต้องการค้นจาก column ใดแล้วกำหนดหัวข้อให้ตรง if gco="coname" then sql = sql & " Where CO_NAME like '%" & csql & "%'" ghead="รายชื่อบริษัทที่มีคำว่า" elseif gco="detail" then sql = sql & " Where DETAIL like '%" & csql & "%'" ghead="รายชื่อบริษัทที่ผลิตสินค้าและให้บริการที่มีคำว่า" elseif gco="tel" then sql = sql & " Where TEL like '%" & csql & "%'" ghead="เบอร์โทรศัพท์ที่มีหมายเลข" else sql = sql & " Where PROVINCE like '%" & csql & "%'" ghead="จังหวัดที่มีคำว่า" 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 เลื่อน pointer ไปรายการแรก rs.MoveFirst 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 %>
<%=ghead & " " & csql %> <%if ToTalRows=0 then%> ไม่มีรายการตามเงื่อนไข <%Else%> พบ <%=TotalRows%> รายการตามเงื่อนไข หน้าที่ <%=PageNo%>/<%=TotalPages%> <%End if%>
<% Rem วนลูปแสดงไปเรื่อยๆ จนกว่าจะหมดรายการ RS.Absolutepage=pageno RowCount = 1%> <%if gde<>"" then%> <%end if%> <%if gpro<>"" then%> <%end if%> <%if gte<>"" then%> <%end if%> <%Do While Not RS.EOF and rowcount<=PageSize%> <%if gde<>"" then%> <%end if%> <%if gpro<>"" then%> <%end if%> <%if gte<>"" then%> <%end if%> <% RowCount=RowCount+1 rs.MoveNext Loop rs.CLOSE conn.close %>
ลำดับ รายชื่อบริษัท(CO_NAME)รายละเอียด(DETAIL)จังหวัด(PROVINCE)เบอร์โทรศัพท์(TEL)หมายเลขเรียกค้น(ID_NO)
<%=((PageNo-1)*RS.PageSize)+RowCount%> <%= hilight(RS("CO_NAME"))%> <%= hilight(RS("DETAIL"))%> <%= hilight(RS("PROVINCE")) %> <%= hilight(RS("TEL"))%> <%= RS("ID_NO") %>
<%End if%>



รายการต่อหน้า
(***ใส่10,15,20 เป็นต้น แต่ห้ามเว้นว่าง!!!) :  


ค้นจาก <%if gco="coname" then%> : ชื่อบริษัท(CO_NAME) <%else%> ชื่อบริษัท (CO_NAME) <%end if%> <%if gco="detail" then%> ประเภทธุรกิจ (DETAIL) <%else%> ประเภทธุรกิจ(DETAIL) <%end if%> <%if gco="pro" then%> จังหวัด(PROVINCE) <%else%> จังหวัด(PROVINCE) <%end if%> <%if gco="tel" then%> เบอร์โทรศัพท์ (TEL) <%else%> เบอร์โทรศัพท์(TEL) <%end if%> (เลือกอันใดอันหนึ่ง) 

ที่มีคำว่า เป็นส่วนหนึ่ง กรุณากำหนดให้ใกล้เคียงที่สุด เพื่อลดเวลาในการเรียกค้น (เช่น ก หรือ ข หรือ กรุงเทพฯ เป็นต้น) 

*** เมื่อใส่ข้อมูลครบถ้วนให้กด enter

หัวข้อที่ต้องการแสดง <%if gde<>"" then%> ประเภทธุรกิจ <%else%> ประเภทธุรกิจ <%end if%> <%if gpro<>"" then%> จังหวัด <%else%> จังหวัด <%end if%> <%if gte<>"" then%> เบอร์โทรศัพท์ <%else%> เบอร์โทรศัพท์ <%end if%>