您现在的位置是：网站首页> 编程资料编程资料
asp读取excel表名的实现代码_应用技巧_
2023-05-25
447人已围观
简介 asp读取excel表名的实现代码_应用技巧_
看代码：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
dim conn,rs,excelFileName
excelFileName=Server.MapPath("Data/test.xls")
set conn = Server.CreateObject("ADODB.Connection")
conn.connectionstring="Provider=Microsoft.Jet.OleDb.4.0;Persist Security Info=True;Data Source=" & excelFileName & ";Extended ProPerties=""Excel 8.0;HDR=Yes;IMEX=1"";"
conn.open()
set rs=conn.OpenSchema(20)
%>
Excel操作
<%
dim i
response.write("Excel表信息字段：
------------------------
")
for i=0 to rs.fields.count-1 step 1
response.write(rs.fields(i).name&"
")
next
response.write("
Excel中的表名(Table_Name)：
------------------------
")
while not rs.EOF
response.write(rs("Table_Name")&"
")
rs.movenext
wend
%>
复制代码 代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
dim conn,rs,excelFileName
excelFileName=Server.MapPath("Data/test.xls")
set conn = Server.CreateObject("ADODB.Connection")
conn.connectionstring="Provider=Microsoft.Jet.OleDb.4.0;Persist Security Info=True;Data Source=" & excelFileName & ";Extended ProPerties=""Excel 8.0;HDR=Yes;IMEX=1"";"
conn.open()
set rs=conn.OpenSchema(20)
%>
<%
dim i
response.write("Excel表信息字段：
------------------------
")
for i=0 to rs.fields.count-1 step 1
response.write(rs.fields(i).name&"
")
next
response.write("
Excel中的表名(Table_Name)：
------------------------
")
while not rs.EOF
response.write(rs("Table_Name")&"
")
rs.movenext
wend
%>
您可能感兴趣的文章:
相关内容
- asp页面提示Response 对象 错误 ASP 0156 : 80004005 HTTP 头错误_应用技巧_
- Asp常见挂马方式大总结_木马相关_
- ASP网站出现 msxml3.dll 错误 80072ee7 错误的解决方法_应用技巧_
- 使用innerHTML时注意处理空格和回车符(asp后台处理)_应用技巧_
- ASP Eval、Execute、ExecuteGlobal区别分析_应用技巧_
- Js获取asp页面返回的值(加载值)实现代码_应用技巧_
- asp教程中get post提交表单有5点区别_应用技巧_
- ASP wsImage组件添加水印的实用代码_应用技巧_
- ASP组件AspJpeg(加水印)生成缩略图等使用方法_应用技巧_
- asp有效防止网站留言板出现垃圾留言/评论实现思路_应用技巧_
