<%
'Declarar variables
Nombre dimval
Dimarrname
Dimobjconn
Dimconnstr
Ifrequest.form ("mysubmit") = "ok" entonces
'Código de enlace de base de datos
setobjconn = server.createObject ("ADODB.Connection")
connstr = "proveedor = sqloledb; server = (local); database = test; uid = sa; pwd = 123456;"
objconn.openconnstr
'Obtenga el valor
valname = cstr (request.form ("myname"))
'Inserte la base de datos
arrname = split (valname, ",")
arrpassword = split (valpassword, ",")
'Ejecutar el proceso de insertar la base de datos
Fori = 0toUbound (arrname)
'Por favor cambie la declaración SQL usted mismo
objconn.execute ("InsertIntomyTable (Sname) Valores ('" & Trim (arrname (i)) y "')")
Próximo
Response.Write ("Inserción de datos con éxito")
'Cierre la conexión de la base de datos
objconn.close
Setobjconn = nada
Endif
%>
<html>
</ablo>
<Body>
<inputType = "Button" Value = "Agregar un data" onClick = "addit ()"/>
<formmethod = "post" action = "test.asp" id = "myform">
<div> <inputType = "text" name = "myname"/> </div>
<inputType = "Subt" Value = "Idention" id = "mySubMit" name = "mySubmit"/>
</form>
</body>
</html>
<scriptLanguage = "javaScript" type = "text/javaScript">
función $ (obj) {
returnDocument.getElementById (OBJ);
}
functionAddit () {
varmyform = $ ("myForm");
varmysubmit = $ ("mysubmit");
varmydiv = document.createElement ("div");
VarmyInput = document.createElement ("entrada");
myInput.SetAttribute ("tipo", "texto");
myInput.SetAttribute ("Nombre", "MyName");
myform.insertbefore (myDiv, mysubmit);
myDiv.AppendChild (MyInput);
}
</script>