📄 input_excel.asp

📁 办公软件之间的数据交换,可以把WORD文件和EXCEL文件中的数据添加到WEB服务器,也可以从WEB服务器中下载数据到本地电脑.

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>导入excel数据到数据库</title>
<%
fname11=request.Form("fname")
response.Write fname11&"文件数据写入成功" 

'连接EXCEL
Dim conn
Dim StrConn
Dim rs
Dim Sql
Set conn=Server.CreateObject("ADODB.Connection") 
'StrConn="Driver={Microsoft Excel Driver (*.xls)};DBQ="& Server.MapPath("list.xls")
filepath="up\updown\"&fname11
StrConn="Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source="& Server.MapPath(filepath)
conn.Open StrConn
Set rs = Server.CreateObject("ADODB.Recordset") 
Sql="select * from [Sheet1$]"
rs.Open Sql,conn,1,1

'连接ACCESS数据库
   set newconn=server.createobject("adodb.connection")
   set newrs=server.createobject("adodb.recordset")
   DBPath = Server.MapPath("#ctm wish.mdb")
   newconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
   sqlcmd="select * from student_info "
   newrs.Open sqlcmd,newconn,1,2
     
	do while Not rs.EOF   
	  newrs.addnew
        for i=0 to rs.Fields.Count-1
     		  newrs(i+1)=rs(i)
			    ' response.write rs(i)
		 next
		 newrs.update
	 'response.write "<br>"
    rs.MoveNext
	 loop
	'response.write  "文件数据写入成功" 
	 
set newrs=nothing
newconn.close
response.Redirect("11.asp")

%>

<script language="JavaScript" type="text/JavaScript">
<!--
function MM_displayStatusMsg(msgStr) { //v1.0
  status=msgStr;
  document.MM_returnValue = true;
}
//-->
</script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>

<body onLoad="MM_displayStatusMsg('陈利品的毕业论文设计');return document.MM_returnValue">
<div id="Layer1" style="position:absolute; left:507px; top:26px; width:99px; height:61px; z-index:1; font-size: 24px;"><a href="index.asp">返回主页<br>
  查看结果
</a> </div>

<p>&nbsp;</p>
<p onMouseOver="MM_displayStatusMsg('陈利品的毕业设计');return document.MM_returnValue">&nbsp;</p>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -