Входной записи широко используется в базах данных, и существует много методов для пакетной записи. Далее я расскажу о том, как я достиг этого на основе моего фактического приложения. Основным использованием является концепция сбора форм, которая берет все данные в сборе через цикл. Учитывая, что для всех удобно, я интегрировал его в одну страницу.
Вот конкретный код:
batchinput.asp
<%
'####################################################################################################################################################################################################################################################################### 2
'Filefunction: пакетные входные данные
Автор: Myhon
Дата: 2003-8-19
'####################################################################################################################################################################################################################################################################### 2
'Записать данные в базу данных
Subwritedata ()
dimreccnt, я
DimfieldName1, FieldName2, FieldName3
Димконн
Dimsqlstr, Connstr
connstr = "Provider = sqloledb.1; initialCatalog = mydatabase; dataSource = myhon; userId = sa; пароль ="
setConn = server.createObject ("adodb.connection")
Conn.openconnstr 'Создать подключение к базе данных
reccnt = request.form ("stu_num"). Считайте 'Сколько записей в общей сложности?
'Входные данные партии
fori = 1toreccnt
FieldName1 = trim (request.form ("fieldname1") (i))
FieldName2 = trim (request.form ("fieldname2") (i))
FieldName3 = trim (request.form ("fieldname3") (i))
sqlstr = "insertintomytable (FieldName1, FieldName2, FieldName3) значения ('"
sqlstr = sqlstr & fieldname1 & "','"
sqlstr = sqlstr & fieldname2 & "','"
sqlstr = sqlstr & fieldname3 & "')"
'response.writesqlstr
conn.execute (sqlstr)
следующий
Заканчивая
'Показать пакетный интерфейс ввода
SubinputData ()
dimreccnt, я
%>
<formname = "bathinputdata" action = "" method = "post">
<%
reccnt = cint (request.form ("reccnt"))
fori = 1toreccnt
%>
<inputType = "text" name = "fieldname1">
<inputType = "text" name = "fieldname2">
<inputType = "text" name = "fieldname3">
<%
следующий
%>
<br>
<inputType = "Отправить" name = "action" value = "отправить">
</form>
<%
Заканчивая
'Укажите, сколько записей будет введено в партиях
Subassignhowmuch ()
%>
<! ------ Укажите, сколько записей ввести ------------------------->
<formname = "form1" action = "" method = "post">
Количество записей, которые вы хотите ввести: <inputtype = "text" name = "reccnt">
<inputType = "Отправить" name = "action" value = "Next >>">
</form>
<%
Заканчивая
ifrequest.form ("action") = "Далее >>" Тогда