<%
'申明變量
DimvalName
DimarrName
DimobjConn
DimconnStr
IfRequest.Form("mySubmit")="確定"Then
'數據庫鏈接代碼
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,",")
arrPassword=split(valPassword,",")
'執行插入數據庫的過程
Fori=0toUbound(arrName)
'請自行更改SQL語句
objConn.execute("insertintomytable(sname)values('"&Trim(arrName(i))&"')")
Next
Response.write("數據插入成功")
'關閉數據庫連接
objConn.close
SetobjConn=nothing
EndIf
%>
<html>
</head>
<body>
<inputtype="button"value="增加一條數據"onclick="addIt()"/>
<formmethod="post"action="test.asp"id="myForm">
<div><inputtype="text"name="myName"/></div>
<inputtype="submit"value="確定"id="mySubmit"name="mySubmit"/>
</form>
</body>
</html>
<scriptlanguage="javascript"type="text/javascript">
function$(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>