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



%>