趣味測驗	昆蟲專家	書籤列印
通過趣味測驗，你就可以成為昆蟲專家囉！

<% response.write "" set conn=Server.CreateObject("ADODB.Connection") conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.mappath("redtree.mdb") cSQL="Select * from goodlist" set rs=Server.CreateObject("ADODB.Recordset") rs.pagesize=30 rs.open cSQL,conn,3,3 response.write "

" if rs.recordcount>0 then response.write "" if rs.pagecount>1 then response.write " (1) " for linknum=2 to rs.pagecount step 1 response.write " (" & linknum & ") " next else end if response.write " " response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" rs.movelast For a=rs.recordcount to rs.recordcount-29 step -1 response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" rs.moveprevious if rs.Bof then exit for else end if Next response.write " 測驗時間 就讀學校 就讀班級 昆蟲專家 " & rs("testdate") & " " & rs("stcounty") & rs("stschool") & " " & rs("classroom") & " " & rs("testname") & " --- 總計共有 " & rs.recordcount &_ " 位專家通過檢測 ---

" else response.write "

目前沒有任何專家通過檢測！" end if rs.close set rs=Nothing conn.close set conn=Nothing %>