<% '********************************* 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) %>
<% '用Session紀錄剛剛選單的值 session("dep")=trim(request("dep")) session("host")=trim(request("host")) '若選擇教授則以人優先 否則顯示系所所有儀器 if session("host") <> "" and session("host") <> "請選擇" then SQL_query = "Select * from Sheet1 where [儀器指導教授] like '%"&session("host")&"%'" Set rs_query = objconn.Execute(SQL_query) flag = 1 title = session("dep")&" "&session("host") elseif session("dep") <> "" and session("dep") <> "請選擇" then SQL_query = "Select * from Sheet1 where [儀器所屬單位] like '%"&session("dep")&"%'" Set rs_query = objconn.Execute(SQL_query) flag = 1 title = session("dep") end if '一進入網頁時顯示所有儀器 if request("dep") = "" and request("host") = "" then SQL_all = "select * from Sheet1" Set rs_all = objconn.Execute(SQL_all) %>

 

共用儀器導覽

相關單位連結

學研處首頁

 
 
 
 
 
 

 

 

 

 

 

 

 
 
 

中山大學貴重暨共用儀器中心

網址:http://khvic.nsysu.edu.tw/khvic/

聯絡窗口:林明政先生   TEL︰(07)5252000轉4097   FAX︰(07)5254099

 

● 中山大學奈米科技研究中心

網址:http://www.nano.nsysu.edu.tw/nano/index.htm

聯絡窗口:鹿文卿小姐   TEL︰(07)5252000轉2681 

 

● 國科會高屏地區奈米核心設施建造

網址:http://www2.nsysu.edu.tw/Physics/ncf/index.htm

聯絡窗口:陳惠華小姐   TEL︰(07)5252000轉3701  FAX︰(07)5253709

 

● 南臺灣光電卓越研究中心

網址:http://140.117.163.100/acorc/index.htm

聯絡窗口:陳姵伶小姐   TEL︰(07)5252000轉4450-2  FAX︰(07)5254499

 

● 海研三號研究船

網址:http://www2.nsysu.edu.tw/marines/or3/

 

其他共用實驗室連絡方式詳見『儀器導覽』

 

 
 
 

<% end if if flag = 1 then '當有指定SQL_query時才執行以下動作 If rs_query.EOF And rs_query.BOF Then '若執行SQL_query無資料則顯示找不到資料 Response.Write "搜尋不到資料!請重新搜尋。" Else %>   <%response.write(title) '顯示系所教授%>

  <% End if 'END(If rs_query.EOF And rs_query.BOF Then) end if 'END(if flag = 1 then) %>