<%if request("no") ="" then pageno =1 else pageno=request("no") end if%>
ʶҹ·Õè·èͧà·ÕèÂÇ·ÑèÇä·Â

àªÔ­á¹Ð¹Óʶҹ·Õè·èͧà·ÕèÂÇ·ÑèÇä·Â·Õè¹ÕèàŤÃѺ | ¡ÅѺ˹éÒáá
<% thmonth=array("Á.¤.","¡.¾.","ÁÕ.¤.","àÁ.Â.","¾.¤.","ÁÔ.Â.","¡.¤.","Ê.¤.","¡.Â.","µ.¤.","¾.Â.","¸.¤.") on error resume next ' ---- ÊèǹÃѺ¢éÍÁÙŨҡ form gID=Request.QueryString("GID") ' ---- ÊèǹµÔ´µè͡Ѻ°Ò¹¢éÍÁÙÅà¾×èÍáÊ´§ÃÒ¡ÒäӶÒÁáÅФӵͺ੾ÒзÕèµéͧ¡Òà Set Conn=Server.CreateObject("ADODB.Connection") conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.mappath("../../cgi-bin/supertour.mdb") if request("keyword") <> "" then Sql="Select aname,picshow,pic,aemail,ahomepage,anumber,adate,anote from answer where (anote like '%"&request("keyword")&"%') or (aname like '%"&request("keyword")&"%') order by ANumber desc" else Sql="Select aname,picshow,pic,aemail,ahomepage,anumber,adate,anote from answer order by ANumber 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("ANote") ano=replace(ano,"<","<") ano=replace(ano,chr(13),"
") if flag=0 then flag=1 color="F0FFF0" else flag=0 color="E0FFE0" End If %>
<% if RS("picshow")=1 then response.write "" else end if %>
ÃÒÂÅÐàÍÕ´ : <%=RS("ANote")%>
ª×èÍʶҹ·Õè : <%=RS("AEmail")%>
·ÕèµÑé§Ê¶Ò¹·Õè : <%=RS("AHomepage")%>
¼Ùéá¹Ð¹Ó : <%=RS("AName")%> --> [<%= formatdatetime(RS("ADate"),1)%> ...àÇÅÒ <%= formatdatetime(RS("ADate"),3)%>]

: : : <%=RS("ANumber")%> : : :
<%RS.MoveNext Next rs.close conn.close%>
¨Ó¹Ç¹Ê¶Ò¹·Õè·èͧà·ÕèÂÇ·Ñé§ËÁ´ <%=total%> áËè§    
àªÔ­á¹Ð¹Óʶҹ·Õè·èͧà·ÕèÂÇ·ÑèÇä·Â·Õè¹ÕèàŤÃѺ | ¡ÅѺ˹éÒáá

<% response.write "
¡ÓÅѧáÊ´§Ë¹éÒ·Õè " & pageno & "/" & totalpage & "
" %> ˹éÒ·Õè <%For b=1 to totalpage%> "><%=b%> | <%Next%><%end if%>

àªÔ­á¹Ð¹Óʶҹ·Õè·èͧà·ÕèÂÇ·ÑèÇä·ÂàŨéÒ
 
Êè§ÃÙ»ÀÒ¾ :       
ª×èͤس :       
ª×èÍʶҹ·Õè :       
·ÕèµÑé§Ê¶Ò¹·Õè :       

ÃÒÂÅÐàÍÕ´ : 		     
     

Power by : : : http://www.weekendhobby.com