《通識教育經驗分享》
   
通識教育經驗分享

數月前,香港大學教育學院母語教學教師支援中心及院內數位教員,先後走訪了幾所中學,與任教中六通識科和中五科技科的教師交流意見。這些訪問對了解這兩個科目的實況極有幫助。本中心已經把這些訪問稿整理好,放於本中心網上,歡迎同工閱覽。我們非常感謝這些熱心的老師接受訪問,慷慨地與同工分享寶貴的教學經驗和心得,有助同工之間交流文化。

<% cstring = "Provider=SQLOLEDB.1;" &_ "Initial Catalog=databank;Data Source=localhost;" &_ "User Id=ssa;PASSWORD=projectlearn247;" Set cnnDB = Server.CreateObject("ADODB.Connection") cnnDB.Open cstring Function CheckLogin(userName, userPd) Set rsLogin = Server.CreateObject("ADODB.Recordset") Set rsPd = Server.CreateObject("ADODB.Recordset") userName = Request("userName") userPd = Request("userPd") session("subjectID") = subjectID strSQL = "SELECT * FROM login WHERE (loginID = N'" & lcase(userName) & "' or loginID = N'" & ucase(userName) & "')" rsLogin.Open strSQL, cnnDB SQL = "SELECT count(1) as chkAc FROM login where (loginID = N'" & lcase(userName) & "' or loginID = N'" & ucase(userName) & "') and password = N'" & userPd & "'" rsPd.Open SQL, cstring if rsLogin.EOF then CheckLogin = "

使用者名稱錯誤!

" elseif cint(rspd("chkAc")) < 1 then CheckLogin = "

密碼錯誤!

" else CheckLogin = "success" end if rsLogin.Close Set rsLogin = Nothing 'rsAccess.Close ' Set rsAccess = Nothing rsPd.Close Set rsPd = Nothing End Function if request("submit") = "登 入" then userName = Request("userName") userPd = Request("password") strCheckLogin = CheckLogin(userName, userPd) End if if strCheckLogin = "success" then session("login") = true Response.Redirect "index.asp" else response.write strCheckLogin End if 'session("login") = true %> <%if session("login") = true then%>

訪問A (AS 通識教育科)

訪問B (AS 通識教育科)

訪問C (AS 通識教育科)

訪問D (CE 科學與科技教育科)

 

(*如要求 輸入網路密碼,請按取消)

<%else%>

請輸入會員密碼以便瀏灠詳細資料:

使用者名稱:

密碼   :

<%end if%>