<% 'option explicit強制定義變量  第一行使數據庫支持中文，默認腳本語言@LANGUAGE="VBSCRIPT"
dim newconn,rs1
Set newconn = Server.CreateObject("ADODB.Connection")
'conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("employee_information.mdb") 
'新版本連接數據庫
newconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("stry_exercise.mdb") 
'老版本連接數據庫
Set rs1= Server.CreateObject("ADODB.Recordset") 
'創建游標
%>