addsave.asp

来自「财务预算管理 财务支出」· ASP 代码 · 共 25 行

<!--#include file="../sysconfig.asp"-->
<title>数据导入</title><%
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 &"$]"
rs.Open sql,conn,3,3
	rs.addnew
	rs("fieldname1")=request.form("fieldname1")
	rs("fieldname2")=request.form("fieldname2")
	rs("fieldname3")=request.form("fieldname3")

rs.update
response.write"<SCRIPT language=JavaScript>alert('添加成功！');" 
response.write"window.close();</SCRIPT>"
response.End
%>