Question

ASP+ACCESS 批量添加进数据库

如果用图片中的形式 进行添加进数据库呢表名T字段 T1 T2 图片中的最终效果T表T1 T2A AAB BBC CCD DD

Answer 1

<form method="post" action="">
<textarea name="Content" rows="10" cols="80">
A-AA
B-BB
C-CC
D-DD
</textarea>
<input name="Submit" type="submit">
</form>
<br>
<%
Dim i
Dim T1,T2
Dim SC
If Request.form("Submit")<>"" Then
SC=Split(Request.form("Content"),chr(13))
For i=0 To Ubound(SC)
T1=Split(SC(i),"-")(0)
T2=Split(SC(i),"-")(1)
Conn.Execute("Insert Into T (T1,T2) values ('"&T1&"','"&T2&"')")
Next
End If
%>