<% Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("database.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Dim e_name, post_time, email, gra_year, gra_class e_name = "OrderBy=e_name" post_time = "OrderBy=post_time" email = "OrderBy=email" gra_year = "OrderBy=gra_year" gra_class = "OrderBy=gra_class" Set rs2 = Server.CreateObject("ADODB.Recordset") SQLcmd = "Select * from GraBook " SQLcmd = SQLcmd & " Where show = True and show_2 = True" If Request("OrderBy") = "" Then SQLcmd = SQLcmd & " order by gra_year Desc" Else SQLcmd = SQLcmd & " order by " & Request("OrderBy") If Request("Order") = "Desc" Then SQLcmd = SQLcmd & " Desc " End If If Request("OrderBy") = "e_name" And Request("Order") <> "Desc" Then e_name = e_name & "&Order=Desc" ElseIf Request("OrderBy") = "post_time" And Request("Order") <> "Desc" Then post_time = post_time & "&Order=Desc" ElseIf Request("OrderBy") = "email" And Request("Order") <> "Desc" Then email = email & "&Order=Desc" ElseIf Request("OrderBy") = "gra_year" And Request("Order") <> "Desc" Then gra_year = gra_year & "&Order=Desc" ElseIf Request("OrderBy") = "gra_class" And Request("Order") <> "Desc" Then gra_class = gra_class & "&Order=Desc" End If End If ' Response.Write SQLcmd rs2.Open SQLcmd, conn, 3 Dim CurrentPage Dim QueryString If Request("OrderBy") <> "" Then QueryString = "&OrderBy=" & Request("OrderBy") If Request("OrderBy") = "e_name" Then QueryString = QueryString & "&Order="&Request("Order") ElseIf Request("OrderBy") = "post_time" Then QueryString = QueryString & "&Order="&Request("Order") ElseIf Request("OrderBy") = "gra_year" Then QueryString = QueryString & "&Order="&Request("Order") ElseIf Request("OrderBy") = "gra_class" Then QueryString = QueryString & "&Order="&Request("Order") End If End If If Not rs2.EOF Then If Request("Page") = "" Then CurrentPage = 1 rs2.pagesize = 10 'rs2.pagesize = clng(rs3("pagesize")) ElseIf Request("Page") = "-1" Then CurrentPage = 1 rs2.pagesize = rs2.recordcount Else CurrentPage = CLng(Request("Page")) rs2.pagesize = Request("page_size") End If rs2.AbsolutePage = CurrentPage Else End If %>
  　

 

　

　

請選擇排序:

<% If CurrentPage <> 1 Then %> <% End If%>
頁數: <%for i = 1 to rs2.pagecount %> <%=i%> <% Next %>
<% If CurrentPage < rs2.pagecount Then %> <% End If%>

<%for i=1 to rs2.pagesize If rs2.EOF then Exit For End If %> bgcolor="#94D9FE" <%End If%> bgcolor="#B4E4FE" > <% rs2.MoveNext Next%>
　
姓名(英文) : <%=rs2("e_name")%> 畢業/離校年份 : <%=rs2("gra_year")%>
姓名(中文) : <%=rs2("c_name")%> 畢業/離校班別 : <%=rs2("gra_class")%>
性別 : <%=rs2("sex")%> 　
電郵地址 : ><%=rs2("email")%> 　
ICQ# 　
刊登時間 : <%=rs2("post_time")%> 　

<% If CurrentPage <> 1 Then %> <% End If%>
頁數: <%for i = 1 to rs2.pagecount %> <%=i%> <% Next %>
<% If CurrentPage < rs2.pagecount Then %> <% End If%>

　

[返回首頁] [學校資料] [課外活動] [校園生活] [學生園地] [學校通告] [家長教師會]
[老師電郵] [舊生園地] [網絡連結]
Copyright S.K.H. Fung Kei Millennium Primary School. All rights reserved.