波克棋牌

你的位置:首页 > 技术支持 > 库存查询
<%@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 %>
友情链接:快发彩票  一分彩  快发彩票注册  速发彩票  速发彩票官网  快发彩票  速发彩票  

免责声明: 本站资料及图片来源互联网文章,本网不承担任何由内容信息所引起的争议和法律责任。所有作品版权归原创作者所有,与本站立场无关,如用户分享不慎侵犯了您的权益,请联系我们告知,我们将做删除处理!