微信扫一扫2.8w+
社区成员
一个有关EXCEL的问题
<%
Set conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( "edata.xls" )
conn.Open Driver & DBPath
%>
显示页面
<!--#include file="dbconn.asp"-->
<html>
<%
dim sql
dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From [Sheet1$]", conn, 2, 2
%>
<head>
<title>open</title>
</head>
<body text="#000000" link="#000000" vlink="#000000" alink="#000000" leftmargin="0" bgcolor="#FFFFFF">
<table width="13%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="41"><font color="#000066"><b><font size="3"><%=rs("A")%></font></b></font></td>
</tr>
</table>
</body>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
这样会出错，请问怎样才能正常显示？
Set conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( "edata.xls" )
conn.Open Driver & DBPath
%>
显示页面
<!--#include file="dbconn.asp"-->
<html>
<%
dim sql
dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From [Sheet1$]", conn, 2, 2
%>
<head>
<title>open</title>
</head>
<body text="#000000" link="#000000" vlink="#000000" alink="#000000" leftmargin="0" bgcolor="#FFFFFF">
<table width="13%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="41"><font color="#000066"><b><font size="3"><%=rs("A")%></font></b></font></td>
</tr>
</table>
</body>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
这样会出错，请问怎样才能正常显示？
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复