操纵Excel - asfman

操纵Excel

< html >

< head >

< title > 操纵Excel </ title >

</ head >

< body >

< h2 align ="center" > 显示Excel文件示例 </ h2 >

< table border ="1" width ="90%" align ="center" >

< tr align ="center" bgcolor ="#E6E6E6" >

< td > 学号 </ td >< td > 姓名 </ td >< td > 数学 </ td >< td > 语文 </ td >< td > 英语 </ td >< td > 总分 </ td >

</ tr >

' 建立Connection对象

Dim db,rs,strSql

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

db.Open " Driver={Microsoft Excel Driver (*.xls)};Dbq= " & Server.MapPath( " Mark.xls " )

' 打开记录集，表名一定要以"[表名$]"的格式

strSql = " Select * From [Sheet1$] "

Set rs = db.Execute(strSql)

' 循环读取所有行

Do While Not rs.EOF

Response.Write " <tr align='center'> "

Response.Write " <td> " & rs( " 学号 " ) & " </td> "

Response.Write " <td> " & rs( " 姓名 " ) & " </td> "

Response.Write " <td> " & rs( " 数学 " ) & " </td> "

Response.Write " <td> " & rs( " 语文 " ) & " </td> "

Response.Write " <td> " & rs( " 英语 " ) & " </td> "

Response.Write " <td> " & rs( " 总分 " ) & " </td> "

Response.Write " </tr> "

rs.MoveNext

Loop

' 关闭对象

rs.Close

Set rs = nothing

db.Close

Set db = Nothing

</ table >

</ body >

</ html >

posted on 2007-02-08 13:49 汪杰阅读(244) 评论(0) 编辑收藏引用所属分类: asp(javascrpt)

常用链接

留言簿(15)

随笔分类(1)

随笔档案(90)

文章分类(727)

文章档案(712)

相册

收藏夹

http://blog.csdn.net/prodigynonsense

友情链接

最新随笔

搜索

积分与排名

最新随笔

最新评论

阅读排行榜

评论排行榜