<%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