asp實現批次錄入資料的實現 (轉)

amyz發表於2007-11-13
asp實現批次錄入資料的實現 (轉)[@more@]


批次錄入在的應用中比較廣泛的,關於批次錄入的方法也有好多種。
下面我就結合我實際中的應用,談一下兒我是怎麼實現的。
主要用到的是form的集合的概念,透過迴圈取的所有的集合內資料。
考慮到大家看著方便,我把它整合到了一個頁面。
下面是具體的程式碼:

batchInput.
'#####################################
'File Function:批次錄入資料
'Author:Myhon
'Date:-8-19
'#####################################

'向資料庫寫入資料
SUB writeData()
  dim recCnt,i
  dim fieldName1,fieldName2,fieldName3
  dim conn
  dim Str,connStr
  connStr="Provr=SQLOLE.1;Initial Catalog=myDatabase;Data =myhon;User Id=sa;PASS="
  set conn=Server.Create("ADODB.Connection")
  conn.open connStr  '建立資料庫連線

  recCnt=request.form("stu_num").count  '取得共有多少條記錄
  '批次錄入資料
  for i=1 to recCnt
  fieldName1=trim(request.form("fieldName1")(i))
  fieldName2=trim(request.form("fieldName2")(i))
  fieldName3=trim(request.form("fieldName3")(i))
  sqlStr="insert into myTable(fieldName1,fieldName2,fieldName3) values('"
  sqlStr=sqlStr & fieldName1 & "','"
  sqlStr=sqlStr & fieldName2 & "','"
  sqlStr=sqlStr & fieldName3 & "')"
  'response.write sqlStr
  conn.execute(sqlStr)
  next
END SUB

'顯示成批錄入的介面
SUB InputData()
dim recCnt,i
%>

recCnt=cint(request.form("recCnt"))
for i=1 to recCnt
%>



next
%>




END SUB

'指定要批次錄入多少條記錄
SUB assignHowMuch()
%>

<!------指定要錄入多少條記錄--------------&gt


您要錄入的記錄的條數:


END SUB

if request.form("action")="下一步>>" then
  Call InputData()  '顯示成批錄入介面
elseif request.form("action")="提交" then Call writeData()  '向資料庫批次寫入資料
else
  Call assignHowMuch()  '顯示指定錄入多少條記錄的介面
end if
 
%>

 


來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752019/viewspace-982225/,如需轉載,請註明出處,否則將追究法律責任。

相關文章