excel.asp

财务预算管理 财务支出

<!--#include file="../sysconfig.asp"-->
<%
dim excelfile,tbname
excelfile="pinmu.xls"    '指定excel文件名
tbname="Sheet1"          '指定excel表名
Dim Driver,DBPath
'Set conn = Server.CreateObject("ADODB.Connection")
'Driver = "Driver={Microsoft Excel Driver (*.xls)};Readonly=0;"
'DBPath = "DBQ=" & Server.MapPath(excelfile) 
'conn.Open Driver & DBPath
set rs= Server.CreateObject("adodb.recordset")



'读取excel部分
sql="select * from ["& tbname &"$]"
set rs=conn.Execute(sql)%><title>数据导入</title>
	
	<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>fieldname1</td>
    <td>fieldname2</td>
    <td>fieldname3</td>
    <td><a href="add.asp" target="_blank">向excel表中添加数据</a></td>
  </tr><%do while Not rs.Eof%>
  <tr>
    <td><%=rs("fieldname1")%></td>
    <td><%=rs("fieldname2")%></td>
    <td><%=rs("fieldname3")%></td>
    <td>&nbsp;</td>
  </tr><%rs.MoveNext
	loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>