<%
'Déclarer les variables
Nom de dim
Nom de dimarrn
Dimobjconn
Dimconnstr
Ifrequest.form ("mySubmit") = "OK" puis
«Code de liaison de base de données
setObjConn = server.createObject ("adodb.connection")
Connstr = "provider = sqloledb; server = (local); database = test; uid = sa; pwd = 123456;"
objconn.openconnstr
'Obtenez la valeur
ValName = CSTR (request.form ("MyName"))
'Insérer la base de données
Arrname = Split (ValName, ",")
Arrpassword = Split (Valpassword, ",")
'Exécuter le processus d'insertion de la base de données
Fori = 0Toubound (Arrname)
'Veuillez changer vous-même la déclaration SQL
objConn.Execute ("insertTomyTable (Sname) Values ('" & Trim (Arrname (i)) & "')")
Suivant
Response.Write ("Insertion de données avec succès")
'Fermez la connexion de la base de données
objconn.close
SetObjConn = rien
Endire
%>
<html>
</ head>
<body>
<portType = "Button" value = "Ajouter une données" onClick = "addit ()" />
<formMethod = "post" action = "test.asp" id = "myform">
<div> <inputType = "text" name = "myname" /> </div>
<portType = "soumi" value = "identifier" id = "mySubmit" name = "MySubmit" />
</ form>
</docy>
</html>
<scriptLanguage = "javascript" type = "text / javascript">
fonction $ (obj) {
returnDocument.getElementById (OBJ);
}
functionAddit () {
varmyform = $ ("myform");
varmysubmit = $ ("mySubmit");
varmyDiv = document.CreateElement ("div");
varmyInput = document.CreateElement ("entrée");
myInput.setAttribute ("type", "texte");
myInput.setAttribute ("name", "myname");
myform.insertbefore (mydiv, mySubmit);
MyDiv.ApendChild (MyInput);
}
</cript>