<% 'option explicit強(qiáng)制定義變量  第一行使數(shù)據(jù)庫(kù)支持中文，默認(rèn)腳本語(yǔ)言@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") 
'新版本連接數(shù)據(jù)庫(kù)
newconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("stry_exercise.mdb") 
'老版本連接數(shù)據(jù)庫(kù)
Set rs1= Server.CreateObject("ADODB.Recordset") 
'創(chuàng)建游標(biāo)
%>