<%@ Language=VBScript %> <% If Session("UserLoggedIn") <> "true" Then Response.Redirect("login.asp") Else %> : : ฐานข้อมูลเด็กที่มารับการทาฟลูออไรด์วานิช จังหวัดอำนาจเจริญ : :
ฐานข้อมูลเด็กที่มารับการทาฟลูออไรด์วานิช จังหวัดอำนาจเจริญ (หน้าหลัก)
จะมีเฉพาะข้อมูลเด็กอายุแรกเกิดถึง 3 ขวบ ( เด็กที่เกิดตั้งแต่ 1 พฤศจิกายน 2544 ถึง ปัจจุบัน )
กรุณาตรวจดูรายชื่อจากฐานข้อมูลก่อนหากพบว่าไม่มีชื่อเด็กให้
 [ เพิ่มชื่อและข้อมูลเด็กรายใหม่ ] [ ไปหน้าแก้ไข ] [ ค้นหาข้อมูลรายอำเภอ ตำบล ] [ ค้นหาข้อมูลรายสถานบริการ ] [ สรุปข้อมูลการทาฟลูออไรด์วานิชและสภาวะโรคฟันผุ ]
วิธีการค้นหา : ลงรายละเอียดในช่องสี่เหลี่ยมด้านล่าง ที่มีคำว่า..จากนั้นจึง Click ที่ปุ่ม แสดงรายการหน้าแรก <% Rem รับค่าจาก form และ set ค่าเริ่มต้น csql=request.form("csql") gDirect=request.form("Direct") gPage=request.form("PageNo") gPageSize=request.form("PageSize") gty="btype" gau="ok" gye="ok" gsu="ok" gisbn="ok" Rem ถ้าเป็นการเรียกมาครั้งแรกจะไม่มีค่า csql ก็ให้ข้ามไปที่ส่วนของ form เลย if csql<>"" then Rem รับค่าจาก form ว่าต้องการให้แสดงข้อมูลอะไรบ้าง gau=request.form("gauth") gye=request.form("gyear") gsu=request.form("gsub") gty=request.form("gtype") gisbn=request.form("gisbn") Rem ตั้งเวลาให้ติดต่อได้ไม่เกิน 10 นาที Session.timeout = 10 Rem เริ่มส่วนการติดต่อกับฐานข้อมูล Set conn = Server.CreateObject("ADODB.Connection") conn.open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ=" & server.mappath("database/metacart.mdb") sql="Select * From [patient]" Rem ตรวจสอบการค้นว่าต้องการค้นจาก column ใดแล้วกำหนดหัวข้อให้ตรง if gty="bookname" then sql = sql & " Where name like '%" & csql & "%'ORDER BY birthdate deSC; " ghead="รายชื่อเด็กที่มีคำว่า" elseif gty="authors" then sql = sql & " Where surname like '%" & csql & "%'ORDER BY birthdate deSC; " ghead="นามสกุลเด็กที่มีคำว่า" elseif gty="office" then sql = sql & " Where catid like '%" & csql & "%' ORDER BY birthdate deSC; " ghead="เลข 13 หลักของเด็กที่มีตัวเลข" elseif gty="btype" then sql = sql & " ORDER BY ptid deSC; " ghead="ว่ามี" elseif gty="bisbn" then sql = sql & " Where ptid like '" & csql & "' ORDER BY birthdate deSC; " ghead="เลขทะเบียนเด็กที่" elseif gty="bampur" then sql = sql & " Where ampur like '%" & csql & "%' ORDER BY birthdate deSC; " ghead="เด็กในอำเภอ" elseif gty="btambon" then sql = sql & " Where tambon like '%" & csql & "%' ORDER BY birthdate deSC; " ghead="เด็กในตำบล" elseif gty="bbirthdate" then sql = sql & " Where birthdate like '%" & csql & "' ORDER BY birthdate deSC; " ghead="วันเดือนปีเกิด" elseif gty="bfnum" then sql = sql & " Where ntx like '" & csql & "' ORDER BY birthdate deSC; " ghead="จำนวนครั้งที่ทาฟลูออไรด์" else sql = sql & " Where ptid like '%" & csql & "%'" ghead="รายชื่อ" end if Rem สร้าง Recordset แบบ Static เพื่อให้สามารถนับได้ Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 1, 3 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 %>
พบ  <%=ghead & " " & csql %> <%if ToTalRows=0 then%> ไม่มีรายการตามเงื่อนไข <%Else%> จำนวน <%=TotalRows%> รายชื่อ แสดงหน้าละ 8 รายชื่อ ขณะนี้คือหน้าที่ <%=PageNo%> จากจำนวน <%=TotalPages%> หน้า <%End if%>

<% RS.Absolutepage=pageno RowCount = 1%>
<% count=1 Do while Not RS.EOF and rowcount<=PageSize if bg="#f6f6f6" then bg="#f1f1f1" else bg="#f6f6f6" %> valign=top> <% RowCount=RowCount+1 rs.MoveNext Loop rs.CLOSE conn.close %> <%End if%>
ลำดับ ชื่อ - นามสกุล เลข 13 หลัก ว/ด/ป เกิด สภาวะฟัน ภูมิลำเนา
ประวัติการทา
ฟลูออไรด์วานิช
บันทึกการทา
ครั้งใหม่
<%=((PageNo-1)*RS.PageSize)+RowCount%>   <% if RS("prename")=001 then %> ดช.<% elseIf RS("prename")=002 then %> ดญ.<% else %> <% end if %> <%=hilight(RS("name"))%>  <%= hilight(RS("surname"))%> <%= hilight(RS("catid"))%> <%= hilight(RS("birthdate")) %> <% if hilight(RS("cariesfree"))=1 then response.write "ผุ" else response.write "ไม่ผุ" end if %>  <%= rs("address") %> ม.<%= rs("moo") %> ต.<%= hilight(rs("tambon")) %> อ.<%= hilight(rs("ampur")) %> &prename=<%= rs("prename") %>&name=<%= rs("name") %>&surname=<%= rs("surname") %>&birthdate=<%= rs("birthdate") %>&ntx=<%= rs("ntx") %> " >


<%if gty="btype" then%> ดูรายชื่อทั้งหมด <%else%> ดูรายชื่อทั้งหมด <%end if%>   [ ต้องการค้นหาจาก : <%if gty="bookname" then%> ชื่อ <%else%> ชื่อ <%end if%> <%if gty="authors" then%> นามสกุล <%else%> นามสกุล <%end if%> <%if gty="btambon" then%> ตำบล <%else%> ตำบล <%end if%> <%if gty="bampur" then%> อำเภอ <%else%> อำเภอ <%end if%> <%if gty="office" then%> เลข 13 หลัก <%else%> เลข 13 หลัก <%end if%> <%if gty="bbirthdate" then%> วันเดือนปีเกิด <%else%> วันเดือนปีเกิด <%end if%> <%if gty="bisbn" then%> เลขทะเบียน <%else%> เลขทะเบียน <%end if%> <%if gty="bfnum" then%> จำนวนครั้งที่ทา <%else%> จำนวนครั้งที่ทา <%end if%> ]
<%if gty="btype" then%> ที่มีคำว่า กรุณากำหนดให้ใกล้เคียงที่สุด เพื่อลดเวลาในการเรียกค้น <%else%> ที่มีคำว่า กรุณากำหนดให้ใกล้เคียงที่สุด เพื่อลดเวลาในการเรียกค้น <%end if%> <%if gau<>"" then%> <%else%> <%end if%> <%if gye<>"" then%> <%else%> <%end if%> <%if gsu<>"" then%> <%else%> <%end if%>
<% End If %>