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 =

set conn = server.createobject (adodb.connection)

conn.open connstr '데이터베이스 연결을 만듭니다

reccnt = request.form (stu_num) .count '총 얼마나 많은 레코드가 있는지

'배치 입력 데이터

i = 1의 경우 reccnt

fieldName1 = trim (request.form (fieldName1) (i))

fieldName2 = trim (request.form (fieldName2) (i))

FieldName3 = trim (request.form (fieldName3) (i))

sqlstr = mytable에 삽입 (FieldName1, FieldName2, FieldName3) 값 ( '

sqlstr = sqlstr & fieldname1 & ',', '

sqlstr = sqlstr & fieldname2 & ','

sqlstr = sqlstr & fieldname3 & ')

'응답. sqlstr

conn.execute (sqlstr)

다음

종료 서브

'배치 입력 인터페이스를 표시하십시오

sub inputdata ()

dim reccnt, i

%>

<양식 이름 = bathinputData action = method = post>

<%

reccnt = cint (request.form (reccnt))

i = 1의 경우 reccnt

%>

<입력 유형 = 텍스트 이름 = FieldName1>

<입력 유형 = 텍스트 이름 = FieldName2>

<입력 유형 = 텍스트 이름 = FieldName3>

<%

다음

%>

<br>

<입력 유형 = 제출 이름 = 액션 값 = 제출>

</form>

<%

종료 서브

'배치로 입력 할 레코드 수를 지정하십시오

하위 할당 하우 치 ()

%>

<! ------ 입력 할 레코드 수를 지정하십시오 ---------------------------

<form name = form1 action = method = post>

입력하려는 레코드 수 : <입력 유형 = 텍스트 이름 = reccnt>

<입력 유형 = 제출 이름 = 동작 값 = 다음 >>>

</form>

<%

종료 서브

request.form (action) = next >>이면

inputData () 'Show Batch Entry Interface를 호출하십시오

elseif request.form (action) = commit 다음 writedata () '데이터베이스에 데이터 쓰기 데이터를 호출하십시오.

또 다른

호출 할수 HowMuch () '입력 할 레코드 수를 지정하는 인터페이스 표시

끝 If

%>