<% On Error Resume Next '放在最前面 Set connExcel = Server.CreateObject("ADODB.Connection") ConnExcel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ server.MapPath("HospitalList.xls") & _ ";Extended Properties=""Excel 8.0; HDR=yes;"";" 'HDR=yes表示第一列欄位名稱 Set RsExcel=Server.CreateObject("ADODB.Recordset") sql="Select * from [台中市醫院$]" RsExcel.open sql, connExcel, 3, 3 if Err Then response.write Err.Description '回傳描述產生錯誤的原因 response.end End If %> <% RsExcel.movefirst while not RsExcel.eof %> <% RsExcel.movenext wend %>

序號	醫療機構	區域	地址	醫院首頁	藥劑部 首頁	連絡電話
<%=RsExcel("序號")%>	<%=RsExcel("醫療機構")%>	<%=RsExcel("區域")%>	<%=RsExcel("地址")%> " target=_blank>	<%if RsExcel("醫院首頁") <> "" then %> " target=_blank> <%end if%>	<%if RsExcel("藥劑科部首頁") <> "" then %> " target=_blank> <%end if%>	<%=RsExcel("連絡電話")%>

<% RsExcel.close Set RsExcel = nothing connExcel.close Set connExcel = nothing %>