<٪
"إعلان المتغيرات
dimvalname
اسم dimarrname
Dimobjconn
DimConnstr
ifrequest.form ("mysubmit") = "OK" ثم
رمز ارتباط قاعدة البيانات
setObjConn = server.createObject ("adodb.connection")
connstr = "provider = sqloledb ؛ server = (local) ؛ database = test ؛ uid = sa ؛ pwd = 123456 ؛"
objconn.openconnstr
احصل على القيمة
ValName = CSTR (request.form ("myName"))
أدخل قاعدة البيانات
arrname = split (valname ، "،")
arprapsword = split (valpassword ، "،")
تنفيذ عملية إدخال قاعدة البيانات
fori = 0toubound (arrname)
"يرجى تغيير بيان SQL بنفسك
ObjConn.Execute ("insertIntomytable (sname) قيم ('" & trim (arrname (i)) و "')")
التالي
استجابة. write ("إدراج البيانات بنجاح")
أغلق اتصال قاعدة البيانات
objconn.close
setObjConn = لا شيء
Endif
٪>
<html>
</head>
<body>
<inputType = "button" value = "إضافة بيانات واحدة" onClick = "Addit ()"/>
<portMethod = "post" Action = "test.asp" id = "myForm">
<viv> <pectionType = "text" name = "myName"/> </viv>
<pecttype = "إرسال" value = "تحديد" ID = "mysubmit" name = "mysubmit"/>
</form>
</body>
</html>
<scriptLanguage = "javaScript" type = "text/javaScript">
وظيفة $ (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>