<%
dim excelfile,tbname

excelfile="excelup/"&session("kfglid")    '指定excel文件名
tbname="Sheet1"          '指定excel表名
Dim Driver,DBPath
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(excelfile)&";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
conn.Open connstr 
set rs= Server.CreateObject("adodb.recordset")



'讀取excel部分
sql="select * from ["& tbname &"$]"
set rs=conn.Execute(sql)%>
	
	<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
  <%do while Not rs.Eof%>
  <tr>
    <td><%=rs(0)%></td>
    <td><%=rs(1)%></td>
    <td><%=rs(2)%></td>
    <td><%=rs(3)%></td>


  </tr><%rs.MoveNext
	loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>