你的位置:首頁 > 技術支持 > 庫存查詢
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

武漢特美科 工控產品(配件)常備現貨庫存查詢

注:快速查找型號:CTL+F或F3鍵
<% 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 %>
av成人教学