<form id="hz9zz"></form>
  • <form id="hz9zz"></form>

      <nobr id="hz9zz"></nobr>

      <form id="hz9zz"></form>

    1. 明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

      如何直接調用Excel數據?

      [摘要]<%@language=vbscript %> <% Set exlApp = server.CreateObject("Excel.Application") strsource = "e:\excel\sample.xls" '...

      <%@language=vbscript %>
      <%
      Set exlApp = server.CreateObject("Excel.Application")
      strsource = "e:\excel\sample.xls"
      ' 數據庫位置
      Set exlstock = exlApp.Workstocks.Open(strsource)
      Set exlsheet = exlstock.Worksheets(1)
      i=1
      response.write "<table cellpadding=0 cellspacing=0 border=1 width=500>"
      while exlsheet.cells(i,1)<>""
      response.write "<tr>"
      response.write " <td height=20 align=center width=100>" & xlsheet.Cells(i, 1) & "</td>"
      response.write " <td height=20 align=center width=200>" & xlsheet.Cells(i, 2) & "</td>"
      response.write " <td height=20 align=center width=200>" & xlsheet.Cells(i, 3) & "</td>"
      response.write "</tr>"
      i=i+1

      wend
      response.write "</table>"
      set xlsheet=nothing
      set xlstock=nothing
      xlApp.quit
      %>




      日韩精品一区二区三区高清