<%
' Declare the variable
Dim ValName
Dim Arrname
Dim objconn
Dim ConnStr
If Request.Form ("mysubmit") = "OK" Then
' Database Link code
Set Objconn=server. CreateObject ("Adodb.connection")
ConnStr = "PROVIDER=SQLOLEDB; server= (local);D atabase=test; Uid=sa; pwd=123456; "
objConn.Open connstr
' Get value
ValName = Cstr (Request.Form ("myname"))
' Insert Database
Arrname = Split (ValName, ",")
Arrpassword = Split (Valpassword, ",")
' Perform the process of inserting a database
For i = 0 to Ubound (arrname)
' Change your SQL statement yourself
objConn.Execute ("INSERT INTO mytable (sname) VALUES (' &trim (Arrname (i)) &") "
Next
Response.Write ("Data insert succeeded")
' Close the database connection
Objconn.close
Set objconn = Nothing
End If
%>
<body>
<input type= "button" value= "Add a Data" onclick= "Addit ()"/>
<form method= "POST" action= "test.asp" id= "MyForm" >
<div><input type= "text" name= "MyName"/></div>
<input type= "Submit" value= "confirm" id= "Mysubmit" name= "Mysubmit"/>
</form>
</body>
<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>
