<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

武汉特美科 工控产品(配件)常备现货库存查询

注:快速查找型号:CTL+F或F3键 (更新时间：2025年3月7日14:12:51)

---

<% vXlFile="kucun.xls" 'vXlFile = Request("XlBook") vXlFilePath = Server.MapPath(vXlFile) ' assumes file in current directory vConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&vXlFilePath&";Extended Properties='Excel 8.0;HDR=Yes;IMEX=1';" '其中，hdr取值yes,no ,表示第一行是否为字段名 'imex 取值1，2， '其中1 正是解决此问题的关键（也有人说取值1，只能在连续16行中出现上诉问题才能解决，未经证实？） ' 其中2 只查到有人用，但是不清楚具体代表什么！ 'HDR=Yes这个我说一下，这代表第一行是标题，不做为数据使用 ，如果用HDR=NO，则表示第一行不是标题，做为数据来使用。系统默认的是YES Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open vConnString %> <% vXlRange = Request("XlRange") 'Set oRs = oConn.Execute("[" & vXlRange & "]") Set oRs = Server.CreateObject("ADODB.Recordset") oRs.Open "Select * From [sheet1$]",oconn,1,1 %> <% '格式化并输出HTML DataTable = "" '输出标题行 For Each oField in oRs.Fields DataTable = DataTable & "" Next DataTable = DataTable & "" '输出表格体 Do While Not oRs.EOF DataTable = DataTable & "" For Each oField in oRs.Fields DataTable = DataTable & "" Next DataTable = DataTable & "" oRs.MoveNext Loop '结束表格并释放 DataTable = DataTable & "

" & oField.Name & "
" & oField.Value & "

" Set oRs = Nothing Response.Write DataTable %>