<%
'*********************************
Set objconn = Server.CreateObject("Adodb.Connection")
provider=connection_provider
dbpath=connection_dbpath
objconn.open provider&dbpath
function connection_provider
provider="provider=microsoft.jet.oledb.4.0;"
connection_provider=provider
end function
function connection_dbpath
dbpath="data source=C:\inetpub\wwwroot\jl\2007je\equip.mdb"
connection_dbpath=dbpath
end function
%>
中山大學共用實驗室
<%
'列出所有儀器所屬單位
SQL_dep = "select distinct [儀器所屬單位] from Sheet1 order by [儀器所屬單位]"
Set rs_dep = objconn.Execute(SQL_dep)
%>