?? addsave.asp
字號:
<!--#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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -