用户 密码
太平洋系列网站:汽车网 | 游戏网 | 时尚女性
首  页 | 今日报价 | 新闻中心 | 数码世界 | 硬件资讯 | 软件资讯 | 下载中心 | 通讯世界
论  坛 | 产品大全 | 导购大全 | 渠道商情 | 解决方案 | 招聘培训 | 产品调查 | 评 测 室
 
 软件首页 | 软件新闻 | 软件评测 | 软件应用 | 信息安全 | 创意设计 | 开发特区 | 精品导用
 特色专区: 教你学电脑 | 组网专栏 | 素材下载 | Flash 剧场 | CG专栏
网络学院 > 开发教室 > 网站开发 > ASP
   利用ASP存取各种常用类型数据库(4)

出处:
责任编辑:pjl

[01-11-22 0:09] 作者:张伟


四、实例(存取Excel数据表)

  为了更进一步说明这些函数的用法,本文给出一个存取Excel数据表的例子,其它函数的存取方法与此类似。假设有一个如图2的名为1.xls的Excel文件, 含有三个工作表一班、二班、三班。下面得用上面的函数存取工作表“一班”的数据。



图2

编写ASP文件(文件名为1.asp)存取此Excel中文件。

1.asp源代码

ASP文件 <%

' 建立Connection对象

Function CreateExcelRecordset(xlsfile,sheet)

Dim rs,conn,Driver,DBPath

Set conn = Server.CreateObject("ADODB.Connection")

Driver = "Driver={Microsoft Excel Driver (*.xls)};"

DBPath = "DBQ=" & Server.MapPath( "xlsfile" )

' 调用Open 方法连接数据库

conn.Open Driver & DBPath

set CreateExcelRecordset = Server.CreateObject("ADODB.Recordset")

' 打开Sheet表,参数二'>Connection对象

CreateExcelRecordset.Open "Select * From ["&sheet&"$]",conn, 2, 2

End Function

%>

<HTML>

<BODY bgcolor="#FFFFFF">

<TABLE BORDER=1>

<TR BGCOLOR=#00FFFF>

<%

'本行是关键行,对函数的引用

' set rs=CreateExcelRecordset("1.xls","一班")

Part I输出“表头名称”且表头的背景的颜色为#00FFFF

' For i=0 to rs.Fields.Count-1

Response.Write "<TD>" & rs(i).Name & "</TD>"

Next

%>

</TR>

<%

' Part '>输出数据表的“内容”

rs.MoveFirst ' 将目前的数据记录移到第一项

While Not rs.EOF ' 判断是否过了最后一项

Row = "<TR>"

For i=0 to rs.Fields.Count-1

Row = Row & "<TD>" & rs(i) & "</TD>"

Next

Response.Write Row & "</TR>"

rs.MoveNext ' 移到下一项

Wend

%>

</TABLE></CENTER>

</BODY>

</HTML>

利用IE和PWS(Personal Web Server)后浏览结果如图3:



图3

参考文献:

[1]DataBase and the World Wide Web Marianne Winslett, University of Illinois

[2]http://www.aspobjects.com


点击这里发表意见

相关文章:

 

 

 

内容搜索 
  高级搜索

本栏今日焦点 


广东省通信管理局
粤ICP证号:000010
关于太平洋 | 网站地图 | 广告指南 | 联系我们 | 招聘精英
技术报障:
support@pconline.com.cn
              020-87568837
             
对本站有任何建议、意见或投诉,
请点这里在线提交.
本网站简体、繁体两种版本,以简体版为准
PConline版权所有,未经授权禁止转载、摘编、复制或建立镜像.如有违反,追究法律责任.