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



%>