バッチエントリはデータベースで広く使用されており、バッチエントリには多くの方法があります。次に、実際のアプリケーションに基づいてどのように達成したかについてお話します。主な用途は、フォームコレクションの概念であり、コレクション内のすべてのデータをループを介して取得します。誰もが見るのが便利であることを考えると、私はそれを1つのページに統合しました。
これが特定のコードです:
batchinput.asp
<%
#####################################################################################################
'FileFunction:バッチ入力データ
著者:マイホン
'日付:2003-8-19
#####################################################################################################
'データベースにデータを書き込みます
subwritedata()
dimreccnt、i
dimfieldname1、fieldname2、fieldname3
ディムコン
dimsqlstr、connstr
connstr = "provider = sqloledb.1; initialcatalog = mydatabase; dataSource = myhon; userId = sa; password ="
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 = "IntersingIntomytable(fieldname1、fieldname2、fieldname3)values( '"
SQLSTR = SQLSTR&FIELDNAME1& "'、'"
SQLSTR = SQLSTR&FIELDNAME2& "'、'"
SQLSTR = SQLSTR&FIELDNAME3& "')"
'Response.WritesQlStr
conn.execute(sqlstr)
次
Endingub
'バッチ入力インターフェイスを表示します
subinputdata()
dimreccnt、i
%>
<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 = "submit" name = "action" value = "submit">
</form>
<%
Endingub
'バッチに入力するレコードの数を指定します
subassignhowmuch()
%>
<!------入力するレコードの数を指定します------------------------>
<formname = "form1" action = "" method = "post">
入力するレコードの数:<inputType = "text" name = "reccnt">
<inputtype = "submit" name = "action" value = "next >>">
</form>
<%
Endingub
ifrequest.form( "action")= "next >>" then