把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%">
