电脑爱好者,提供IT资讯信息及各类编程知识文章介绍,欢迎大家来本站学习电脑知识。 最近更新 | 联系我们 RSS订阅本站最新文章
电脑爱好者
站内搜索: 
当前位置:首页>> Asp>>asp 读取EXCEL表格数据和文本数据:

asp 读取EXCEL表格数据和文本数据

来源:www.cncfan.com | 2006-4-4 | (有5559人读过)

把EXCEL当成数据库来读要有很严格的格式限制,还会出现很多问题...



'===================
'Ⅰ)将Excel97或Excel2000生成的XLS文件(book)看成一个数据库,其中的每一个工作表(sheet)看成数据库表
'Ⅱ)ADO假设Excel中的第一行为字段名.所以你定义的范围中必须要包括第一行的内容
'Ⅲ)Excel中的行标题(即字段名)不能够包含数字. Excel的驱动在遇到这种问题时就会出错的。例如你的行标题名为"F1"
'Ⅳ)如果Excel表中某一列同时包含了文本和数字的话,那么Excel的ODBC驱动将不能够正常处理这一行的数据类型,你必须要保证该列的数据类型一致(加入预设符号强制转成文本,后台再作处理)
'Ⅴ)日期型时,整列不能有空格,否则读不出
'==========
==================攻略:===============

1、通过filefield获得文件

2、验证.xls文件

3、建立连接

'建立excel连接
set excelconn=server.createobject("adodb.connection")
strAddr = Server.MapPath(uploadpath&filename)
'输出源文件名
Response.Write "源文件:"&strAddr&"<BR>"
excelconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & strAddr

'建立excel记录集
set excelrs=server.createobject("adodb.recordset")

sql="select * from [Sheet1$]"
excelrs.open sql,excelconn,1,1

............

excelrs.close()
set excelrs=nothing
excelconn.Close()
set excelconn=nothing



怎样用asp读取一个文本文件的内容? 这里介绍一种简便的读取一个文本文件的方法:

<!--Start of ASP Code---->

<%
dim write
Dim fileSysObj, tf, read

' 读取文本read.txt
'获得文件名字
read = "read.txt"
'读取文件的完整路径

read = LEFT(Server.Mappath(Request.ServerVariables("PATH_INFO")), InStrRev(Server.Mappath
(Request.ServerVariables("PATH_INFO")), "\")) & read


'新建一个fileSysObj对象

Set fileSysObj = createObject("Scripting.FileSystemObject")

'读取整个文本文件

IF (fileSysObj.FileExists(read)) Then
'如果文件存在,则打来并读取文件
Set tf = filesysobj.OpenTextFile(read, 1)
read = tf.ReadLine
tf.Close
ELSE
'如果找不到read.txt文件,则显示下面的信息!
read = "I can't find the file read.txt! So this is my default message."

END IF
%>

'在下面表格中显示read.txt

<div align="center">
<center>
<table border="0" width="40%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor="#EEEECC"><%=read%>
</td>
</tr>
<tr>
<td width="100%">

Asp热门文章排行
网站赞助商
购买此位置

 

关于我们 | 网站地图 | 文档一览 | 友情链接| 联系我们

Copyright © 2003-2019 电脑爱好者 版权所有 备案号:鲁ICP备09059398号