OHOLOVE
Member Message List
<%
Rem รับค่าจาก form และ set ค่าเริ่มต้น
csql1=request.form("csql1")
'Csql=request.form("csql1")
'response.write(" vsql : " & vcsql )
'response.write(" csql : " & csql )
if csql = "" or csql = null then
Csql = Vcsql
end if
csql2=request.form("csql2")
csql3=request.form("csql3")
csql4=request.form("csql4")
csql5=request.form("csql5")
Gdirect=request.form("direct")
Gpage=request.form("pageno")
Gpagesize=request.form("pagesize")
if cstr(Gpage) ="" then
gpage = 1
end if
if cstr(gpagesize) = "" then
gpagesize = 10
end if
Gty="title"
Gau= "ok"
Gye= "ok"
Gsu= "ok"
Rem ถ้าเป็นการเรียงมาครั้งแรกจะไม่มีค่า csql ก็ให้ข้ามไปส่วนของ form เลย
'response.write(" oholove no : " & session("User_no")& " Nick Name" & session("User_id") )
Rem ตั้งเวลาให้ติดต่อได้ไม่เกิน 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("oholove.mdb")
'Sql="SELECT * from message Where to_user_id ='%" & session("User_id") &"%' and msg_status ='3' &"and from_user_id <>'" & csql1 & "%' or msg_title like '%" & csql2 &"% or message like '%" & csql3 &" % or msg_date '%" & csql4 &" % ' order by url_title DESC"
Sql="SELECT * from oholoveuser Where cstr(oholove_id) like '%" & csql1 & "%' and Nickname like '%" & csql2 & "%' and Sex like '%" & csql3 & "%' and age like '%" & csql4 & "%' and interest like '%" & csql5 & "%' order by oholove_id DESC"
Rem ตรวจสอบความต้องการค้นว่าต้องการค้นจาก column ใดแล้วให้กำหนดหัวข้อให้ตรง
rem สร้าง recordset แบบ static เพื่อให้สามารถนับ จะนำได้
Set rs=server.createobject("ADODB.recordset")
rs.open sql, conn,1,3
rem หากเกิดข้อผิดพลาดขึ้นก็เลยตามเลย
'On error resume next
Rem นับจำนวนรายการที่สร้างขึ้นมาตามเงื่อนไข
TotalRows=Rs.Recordcount
if TotalRows = 0 then
response.write(" ไม่มีรายการตามเงื่อนไข ")
else
rs.pagesize=gpagesize
pagesize = rs.pagesize
Totalpages=rs.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
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(gpage) >= cstr(totalpages) then
Pageno=totalpages
Else
Pageno= gpage
End if
Case else
Pageno=1
End select
%>
For Good Friends
