Home News Tours AboutUS
LINKS FOR
 
Entertainment <% 'on error resume next Rem รับค่าจาก form และ set ค่าเริ่มต้น 'Vcsql=request.form("Vcsql") 'Csql=request.form("csql") 'Csql2=request.form("csql2") 'if csql = "" or csql = null then Csql = "Entertainment" Csql2 = "TV" Csql3 = "Radio" Csql4 = "Movie" 'end if Gdirect=request.form("direct") Gpage=request.form("pageno") Gpagesize=request.form("pagesize") if cstr(Gpage) ="" then gpage = 1 else Gpage = (Gpage) end if if cstr(gpagesize) = "" then gpagesize = 20 end if Gty="title" Gau= "ok" Gye= "ok" Gsu= "ok" Rem ถ้าเป็นการเรียงมาครั้งแรกจะไม่มีค่า csql ก็ให้ข้ามไปส่วนของ form เลย If csql<> "xxxxxxxxx" then Rem ตั้งเวลาให้ติดต่อได้ไม่เกิน 10 นาที ' Session.timeout=10 Rem เริ่มส่วนการติดต่อกับฐานข้อมูล Set conn = Server.CreateObject("ADODB.Connection") Set rs1 = Server.CreateObject("ADODB.Recordset") Set rs2 = Server.CreateObject("ADODB.Recordset") conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("../url/urldata.mdb") Sql="SELECT * from url Where url_keyword like '%" & csql &"%' or url_desc like '%" & csql &"%' or url_type like '%" & csql &"%' or url_title like '%" & csql &"%' or url_keyword like '%" & csql2 &"%' or url_desc like '%" & csql2 &"%' or url_type like '%" & csql2 &"%' or url_title like '%" & csql2 &"%' or url_keyword like '%" & csql3 &"%' or url_desc like '%" & csql3 &"%' or url_type like '%" & csql3 &"%' or url_title like '%" & csql3 &"%' or url_keyword like '%" & csql4 &"%' or url_desc like '%" & csql4 &"%' or url_type like '%" & csql4 &"%' or url_title like '%" & csql4 &"%' order by url_id DESC" 'Sql="SELECT * from url Where url_keyword like '% Csql %' or url_desc like '% Csql %' or url_type like '% Csql %' or url_title like '% Csql %' order by url_id DESC" Rem ตรวจสอบความต้องการค้นว่าต้องการค้นจาก column ใดแล้วให้กำหนดหัวข้อให้ตรง 'Sql="SELECT * from company Where com_id like '%" & csql2 & "%' order by com_id DESC" rem สร้าง recordset แบบ static เพื่อให้สามารถนับ จะนำได้ 'Set rs1=server.createobject("ADODB.recordset") rs1.open sql, conn,1,3 rem หากเกิดข้อผิดพลาดขึ้นก็เลยตามเลย 'On error resume next Rem นับจำนวนรายการที่สร้างขึ้นมาตามเงื่อนไข TotalRows=Rs1.Recordcount if totalrows = 0 then response.write(" ไม่มีรายการตามเงื่อนไข ") else rs1.pagesize=gpagesize pagesize = rs1.pagesize Totalpages=rs1.pagecount Rem กำหนดหน้าที่จะแสดง จากค่า gDirect ที่ส่งมา Select case gdirect Case "First" Pageno=1 Case "Prev" 'response.write(" Pageno : " & pageno & gpage ) If gpage < 2 or gpage = ""then Pageno =1 Else Pageno = gpage-1 End if Case "Next" 'response.write(" Pageno : " & pageno & "/" & gpage & "/" & Totalpages) ' If cstr(Gpage) >= cstr(Totalpages) then If cstr(Pageno) >= cstr(Totalpages) then Pageno=Totalpages 'response.write(" Pageno : aa" &totalpages) Else Pageno=gpage+1 'response.write(" Pageno :bb" & totalpages) End if Case "Last" Pageno=totalpages Case "Go To" if cstr(Pageno) >= cstr(totalpages) then Pageno=totalpages Else Pageno= gpage End if Case else Pageno=1 End select %>
<%=ghead & " " & csql %> พบ <%=totalrows%> รายการ ตามเงื่อนไขหน้าที่ <%=pageno%>/<%=totalpages%> <%Rem วนลูปแสดงไปเรื่อย ๆ จนกว่าจะหมดรายการ 'response.write(" Pageno : " & pageno & rs1.absolutepage) rs1.absolutepage=pageno Rowcount=1 %>
<%Do While Not RS1.EOF and rowcount<=Pagesize%> <% Rowcount =rowcount+1 if not rs1.eof then Rs1.movenext end if Loop Rs1.close Conn.close %>
       
<%=((Pageno-1)*rs1.pagesize)+rowcount%> target="_blank"> <%=(RS1("url_title"))%> <% Rowcount =rowcount+1 if not rs1.eof then Rs1.movenext end if %> <%=((Pageno-1)*rs1.pagesize)+rowcount%> target="_blank"><%=(RS1("url_title"))%>
<%End if%> <%End if %>

รายการต่อหน้า :