| Travel
<%
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 = "Travel"
Csql2 = "เที่ยว"
'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 &"%' 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
%>
|
 |
