28,403
社区成员
发帖
与我相关
我的任务
分享为何ASP只读出部分EXCEL文件内容
ASP程序代码如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
dim excelconn,strAddr,excelrs,sql
set excelconn=server.createobject("adodb.connection")
strAddr = Server.MapPath("./sample.xls")
'输出源文件名
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
%>
<table>
<%
do while not excelrs.eof
Response.Write("<tr>")
Response.Write("<td>"&excelrs("字段1")&"</td>")
Response.Write("<td>"&CStr(excelrs("字段2"))&"</td>")
Response.Write("<td>"&CStr(excelrs("字段3"))&"</td>")
Response.Write("</tr>")
excelrs.MoveNext
loop
excelrs.close()
set excelrs=nothing
excelconn.Close()
set excelconn=nothing
%>
</table>
</body>
</html>
sample.xls文件内容如下：
字段1 字段2 字段3
1 2 3
a b c
程序运行后的结果如下：
源文件：E:\sample.xls
1 2 3
为何abc没有显示？？
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
dim excelconn,strAddr,excelrs,sql
set excelconn=server.createobject("adodb.connection")
strAddr = Server.MapPath("./sample.xls")
'输出源文件名
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
%>
<table>
<%
do while not excelrs.eof
Response.Write("<tr>")
Response.Write("<td>"&excelrs("字段1")&"</td>")
Response.Write("<td>"&CStr(excelrs("字段2"))&"</td>")
Response.Write("<td>"&CStr(excelrs("字段3"))&"</td>")
Response.Write("</tr>")
excelrs.MoveNext
loop
excelrs.close()
set excelrs=nothing
excelconn.Close()
set excelconn=nothing
%>
</table>
</body>
</html>
sample.xls文件内容如下：
字段1 字段2 字段3
1 2 3
a b c
程序运行后的结果如下：
源文件：E:\sample.xls
1 2 3
为何abc没有显示？？
...全文
请发表友善的回复…
发表回复
