<%
'Deklarasikan variabel
Dimvalname
Dimarrname
Dimobjconn
Dimconnstr
Ifrequest.form ("mysubmit") = "ok" lalu
'Kode Tautan Basis Data
setobjconn = server.createObject ("adodb.connection")
connstr = "penyedia = sqloledb; server = (lokal); database = tes; uid = sa; pwd = 123456;"
objconn.openconnstr
'Dapatkan nilainya
valname = cstr (request.form ("myname"))
'Masukkan database
arrname = split (valname, ",")
arrpassword = split (valpassword, ",")
'Jalankan proses memasukkan database
Fori = 0toubound (arrname)
'Harap ubah pernyataan SQL sendiri
Objconn.execute ("Insertintomytable (Sname) Value ('" & Trim (arrname (i)) & "')")
Berikutnya
Response.write ("Sukses Data berhasil")
'Tutup koneksi database
objconn.close
Setobjconn = tidak ada
Endif
%>
<Html>
</head>
<body>
<inputType = "Tombol" value = "Tambahkan satu data" OnClick = "addit ()"/>
<FormMethod = "POST" ACTION = "test.asp" id = "myForm">
<div> <inputType = "text" name = "myname"/> </div>
<inputType = "kirim" value = "identifikasi" id = "mysubmit" name = "mysubmit"/>
</form>
</body>
</html>
<ScriptLanguage = "JavaScript" type = "Text/JavaScript">
fungsi $ (obj) {
returnDocument.getElementById (OBJ);
}
functionAddit () {
varmyform = $ ("myForm");
varmysubmit = $ ("mysubmit");
varmydiv = document.createelement ("div");
varmyInput = document.createElement ("input");
myInput.setAttribute ("type", "text");
myInput.setAttribute ("name", "myName");
myform.insertbefore (myDiv, mysubmit);
myDiv.AppendChild (MyInput);
}
</script>