|
|
<%
'用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 "搜尋不到資料！