<% 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 %>