我程序代码如下:
<%
Dim conn
Dim Drivers
Dim rs
Dim Sql
Set conn=Server.CreateObject("ADODB.Connection")
Drivers="Driver={Microsoft Excel Driver (*.xls)};"& _
"DriverId=790;"& _
"DBQ=e:\test\select\chengji.xls"
conn.Open Drivers
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from ["&三班&"$]"
rs.Open Sql,conn,2,2