<% '申明变量 Dim valName Dim arrName Dim objConn Dim connStr If Request.Form("mySubmit") = "确定" Then '数据库链接代码 set objConn=server.CreateObject("ADODB.connection") connStr = "PROVIDER=SQLOLEDB;Server=(local);DATABASE=test;UID=sa;PWD=123456;" objConn.Open connstr '取得值 valName = Cstr(Request.Form("myName")) '插入数据库 arrName = split(valName,",") arrPassword = split(valPassword,",") '执行插入数据库的过程 For i = 0 to Ubound(arrName) '请自行更改SQL语句 objConn.execute("insert into mytable(sname) values('"&Trim(arrName(i))&"')") Next Response.write("数据插入成功") '关闭数据库连接 objConn.close Set objConn = nothing End If %> <html> </head> <body> <input type="button" value="增加一条数据" onclick="addIt()" /> <form method="post" action="test.asp" id="myForm"> <div><input type="text" name="myName" /></div> <input type="submit" value="确定" id="mySubmit" name="mySubmit" /> </form> </body> </html> <script language="javascript" type="text/javascript"> function $(obj){ return document.getElementById(obj); } function addIt(){ var myForm = $("myForm"); var mySubmit = $("mySubmit"); var myDiv = document.createElement("div"); var myInput = document.createElement("input"); myInput.setAttribute("type","Text"); myInput.setAttribute("name","myName"); myForm.insertBefore(myDiv,mySubmit); myDiv.appendChild(myInput); } </script>
推荐阅读
再发几个ASP不错的函数
******************** '函数作用:根据条件真假返回选定值中的某个 '参数:blnCondition:条件变量,varResultTrue:条件为真时返回值,varResultFalse:条件为假时返回值 Function IIF(blnCondition, varResultTrue,varR>>>详细阅读
本文标题:asp下实现批量插入数据的方法
地址:http://www.17bianji.com/kaifa2/ASP/32459.html
1/2 1