<%if request("no") ="" then pageno =1 else pageno=request("no") end if%>
Home
ʶҹ·Õè¾Ñ¡·ÑèÇä·Â
www.hamanan.com

àªÔ­á¹Ð¹Óʶҹ·Õè¾Ñ¡ä´éàŤÃѺ | ¡ÅѺ˹éÒáá
¤é¹ËÒ¤ÓÇèÒ :
<% thmonth=array("Á.¤.","¡.¾.","ÁÕ.¤.","àÁ.Â.","¾.¤.","ÁÔ.Â.","¡.¤.","Ê.¤.","¡.Â.","µ.¤.","¾.Â.","¸.¤.") ' ---- ÊèǹµÔ´µè͡Ѻ°Ò¹¢éÍÁÙÅà¾×èÍáÊ´§ÃÒ¡ÒäӶÒÁ Set Conn=Server.CreateObject("ADODB.Connection") conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../cgi-bin/superstay.mdb") if request("keyword") <> "" then Sql="Select qhomepage,qnumber,qname,qemail,qnote,qdate,tel,qprovince from question where (Qnote like '%"&request("keyword")&"%') or (Qname like '%"&request("keyword")&"%') or (QProvince like '%"&request("keyword")&"%') order by QNumber desc" else Sql="Select qhomepage,qnumber,qname,qemail,qnote,qdate,tel,qprovince 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="ccffcc" else flag=0 color="D0FDC0" End If %>
<%=right("0000" & RS("QNumber"),5)%>
ª×èÍʶҹ·Õè¾Ñ¡ : : : <%=RS("QEmail")%>
·ÕèµÑé§Ê¶Ò¹·Õè¾Ñ¡ : : : <%=RS("QHomepage")%>
¨Ñ§ËÇÑ´ : : : <%=RS("QProvince")%>
àºÍÃìâ·ÃÈѾ·ì : : : <%=rs("tel")%>
ÃÒÂÅÐàÍÕ´ʶҹ·Õè¾Ñ¡ : -
<%=RS("QNote")%>

¼Ùéá¹Ð¹Ó : : : <%=RS("QName")%> --> [<%=formatdatetime(rs("Qdate"),1)%> ... àÇÅÒ <%=formatdatetime(rs("Qdate"),3)%>]
<%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.thaiasp.net
 

¡ÅѺ´éÒ¹º¹

::::::::: á¡é䢨éÒ ::::::::