ASPバッチデータ入力の実装

<％

'データベースにデータを書き込みます

sub writedata（）

dim reccnt、i

Dim FieldName1、FieldName2、FieldName3

dim conn

Dim SQLSTR、Connstr

connstr = provider = sqloledb.1;初期カタログ= mydatabase; data source = myhon; user id = sa; password =

conn = server.createObject（adodb.connection）を設定します

conn.open connstr 'データベース接続を作成します

reccnt = request.form（stu_num）.count '合計のレコードの数

'バッチ入力データ

i = 1の場合

fieldname1 = trim（request.form（fieldname1）（i））

fieldname2 = trim（request.form（fieldname2）（i））

fieldname3 = trim（request.form（fieldname3）（i））

sqlstr = myTableに挿入（fieldName1、fieldName2、fieldName3）values（ '

SQLSTR = SQLSTR＆FIELDNAME1＆ '、'

SQLSTR = SQLSTR＆FIELDNAME2＆ '、'

SQLSTR = SQLSTR＆FIELDNAME3＆ '）

'Response.Write SQLSTR

conn.execute（sqlstr）

次

End Sub

'バッチ入力インターフェイスを表示します

sub inputData（）

dim reccnt、i

％>

<form name = bathinputdata action = method = post>

<％

reccnt = cint（request.form（reccnt））

i = 1の場合

％>

<入力型=テキスト名= fieldname1>

<入力型=テキスト名= fieldname2>

<入力タイプ=テキスト名= fieldname3>

<％

次

％>

<br>

<入力タイプ=送信name = action value = submit>

</form>

<％

End Sub

'バッチに入力するレコードの数を指定します

sub assiglhowmuch（）

％>

<！------入力するレコードの数を指定します-------------------->

<form name = form1 action = method = post>

入力するレコードの数：<入力タイプ=テキスト名= reccnt>

<入力タイプ=送信name = action value = next >>>

</form>

<％

End Sub

if request.form（action）= next >> then

inputData（） 'バッチエントリインターフェイスを表示します

elseif request.form（action）=コミットしてからcall writedata（） 'バッチデータベースにデータを書き込みます

それ以外

assight howmuch（） '入力するレコードの数を指定するインターフェイスを表示します

ifを終了します

％>