|
|
 |
|
 สมุดเยี่ยม : : : แนะนำ ติชม ลงนาม ... |
 |
|
<%if request("no") ="" then
pageno =1
else
pageno=request("no")
end if%>
|
 |
<%
thmonth=array("ม.ค.","ก.พ.","มี.ค.","เม.ย.","พ.ค.","มิ.ย.","ก.ค.","ส.ค.","ก.ย.","ต.ค.","พ.ย.","ธ.ค.")
' ---- ส่วนติดต่อกับฐานข้อมูลเพื่อแสดงรายการคำถาม
Set Conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../cgi-bin/superdogguestbook.mdb")
if request("keyword") <> "" then
Sql="Select qhomepage,qnumber,qname,qemail,qnote,qdate,pic,nanswer from question where (Qnote like '%"&request("keyword")&"%') or (Qname like '%"&request("keyword")&"%') order by QNumber desc"
else
Sql="Select qhomepage,qnumber,qname,qemail,qnote,qdate,pic,nanswer from question order by QNumber desc"
end if
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
total=RS.Recordcount
if total=0 then%>
ไม่พบคำที่คุณต้องการค้นหา ลองคำอื่นดูนะครับ
<%else
pagesize=10
totalpage=total\pagesize
if (total mod pagesize) <> "0" then
totalpage= totalpage+1
end if
RS.Move pagesize*(pageno-1)
a=1
if trim(pageno) <> trim(totalpage) then
endrecord = pagesize
else
if (total mod pagesize)=0 then
endrecord=10
else
endrecord=(total mod pagesize)
end if
end if
For a=1 to endrecord%>
<%ano=rs("QNote")
ano=replace(ano,"<","<")
ano=replace(ano,chr(13),"
")
if flag=0 then
flag=1
color="FEE9BE"
else
flag=0
color="FFDE9E"
End If
%>
<%=right("0000" & RS("QNumber"),5)%>
 ">
|
<%=RS("QNote")%>
"><%=RS("QName")%> --> [<%=formatdatetime(rs("Qdate"),1)%> ... เวลา <%=formatdatetime(rs("Qdate"),3)%>]
: : : " target="_blank"><%=RS("QHomepage")%>
<%RS.MoveNext
Next
rs.close
conn.close%>
|
|
จำนวนผู้ลงนามทั้งหมด <%=total%> ท่าน
|
|
|
|
| |
Guestbook hamanan.com
