日前碰到这么个问题：
1.asp提交表单后连继相加，写得代码多且容易出错，请帮忙写个连继相加函数
就是这里  Nfczs=CLng(Na1)+CLng(Na2)+CLng(Na3)+CLng(Na4)+CLng(Na5)+CLng(Na6)+CLng(Na7)+CLng(Na8)+CLng(Na9)+CLng(Na10)+CLng(Na11)+CLng(Na12)+CLng(Na13)+CLng(Na14)+CLng(Na15)+CLng(Na16)+CLng(Na17)+CLng(Na18)+CLng(Na18)+CLng(Na19)+CLng(Na20)+CLng(Na21)

2.如何连续提交，能写函数吗？
就是这里  Rs("a1")=Na1
  Rs("a2")=Na2
  Rs("a3")=Na3
  Rs("a4")=Na4
  Rs("a5")=Na5
  Rs("a6")=Na6
  Rs("a7")=Na7
  Rs("a8")=Na8
  Rs("a9")=Na9
  Rs("a10")=Na10
  Rs("a11")=Na11
  Rs("a12")=Na12
  Rs("a13")=Na13
  Rs("a14")=Na14
  Rs("a15")=Na15
  Rs("a16")=Na16
  Rs("a17")=Na17
  Rs("a18")=Na18
  Rs("a19")=Na19
  Rs("a20")=Na20
  Rs("a21")=Na21



源代码如下，太长了：
  Na1=getForm("a1"):if Na1="" Then Na1=0
  Na2=getForm("a2"):if Na2="" Then Na2=0
  Na3=getForm("a3"):if Na3="" Then Na3=0
  Na4=getForm("a4"):if Na4="" Then Na4=0
  Na5=getForm("a5"):if Na5="" Then Na5=0
  Na6=getForm("a6"):if Na6="" Then Na6=0
  Na7=getForm("a7"):if Na7="" Then Na7=0
  Na8=getForm("a8"):if Na8="" Then Na8=0
  Na9=getForm("a9"):if Na9="" Then Na9=0
  Na10=getForm("a10"):if Na10="" Then Na10=0
  Na11=getForm("a11"):if Na11="" Then Na11=0
  Na12=getForm("a12"):if Na12="" Then Na12=0
  Na13=getForm("a13"):if Na13="" Then Na13=0
  Na14=getForm("a14"):if Na14="" Then Na14=0
  Na15=getForm("a15"):if Na15="" Then Na15=0
  Na16=getForm("a16"):if Na16="" Then Na16=0
  Na17=getForm("a17"):if Na17="" Then Na17=0
  Na18=getForm("a18"):if Na18="" Then Na18=0
  Na19=getForm("a19"):if Na19="" Then Na19=0
  Na20=getForm("a20"):if Na20="" Then Na20=0
  Na21=getForm("a21"):if Na21="" Then Na21=0
  Nb1=getForm("b1"):if Nb1="" Then Nb1=0
  Nb2=getForm("b2"):if Nb2="" Then Nb2=0
  Nb3=getForm("b3"):if Nb3="" Then Nb3=0
  Nb4=getForm("b4"):if Nb4="" Then Nb4=0
  Nb5=getForm("b5"):if Nb5="" Then Nb5=0
  Nb6=getForm("b6"):if Nb6="" Then Nb6=0
  'Nslzs=getForm("subslzs"):if Nslzs="" Then Nslzs=0
  'Nfczs=getForm("subfczs"):if Nfczs="" Then Nfczs=0
  Nslzs=CLng(Nb1)+CLng(Nb2)+CLng(Nb3)+CLng(Nb4)+CLng(Nb5)+CLng(Nb6)
  Nfczs=CLng(Na1)+CLng(Na2)+CLng(Na3)+CLng(Na4)+CLng(Na5)+CLng(Na6)+CLng(Na7)+CLng(Na8)+CLng(Na9)+CLng(Na10)+CLng(Na11)+CLng(Na12)+CLng(Na13)+CLng(Na14)+CLng(Na15)+CLng(Na16)+CLng(Na17)+CLng(Na18)+CLng(Na18)+CLng(Na19)+CLng(Na20)+CLng(Na21)
  Nprofit=Nslzs-Nfczs
  Set Rs=Server.CreateObject("ADODB.RecordSet")
  Rs.Open "Select * From clear",conn,1,3
  Application.Lock()
  Rs.Addnew
  Rs("profit")=Nprofit
  Rs("fczs")=Nfczs
  Rs("slzs")=Nslzs
  Rs("a1")=Na1
  Rs("a2")=Na2
  Rs("a3")=Na3
  Rs("a4")=Na4
  Rs("a5")=Na5
  Rs("a6")=Na6
  Rs("a7")=Na7
  Rs("a8")=Na8
  Rs("a9")=Na9
  Rs("a10")=Na10
  Rs("a11")=Na11
  Rs("a12")=Na12
  Rs("a13")=Na13
  Rs("a14")=Na14
  Rs("a15")=Na15
  Rs("a16")=Na16
  Rs("a17")=Na17
  Rs("a18")=Na18
  Rs("a19")=Na19
  Rs("a20")=Na20
  Rs("a21")=Na21
  Rs("b1")=Nb1
  Rs("b2")=Nb2
  Rs("b3")=Nb3
  Rs("b4")=Nb4
  Rs("b5")=Nb5
  Rs("b6")=Nb6
  Rs.Update
  Application.UnLock()
  Rs.Close

[ 本帖最后由 hp3325 于 2012-4-7 22:38 编辑 ]

请教了哪位出下手

为什么不使用数组？
  Dim Na(21),i,Nb(6)  
  Nslzs=0
  Nfczs=0
  Set Rs=Server.CreateObject("ADODB.RecordSet")
  Rs.Open "Select * From clear",conn,1,3
  Application.Lock()
  Rs.Addnew
  For i=1 To 21
      Na(i)=getForm("a"&i)
      IF Na(i)="" Then Na(i)="0"
      Nfczs=Nfczs+CLng(Na(i))
      Rs("a"&i)=Na(i)
  Next
  For i=1 To 6
      Nb(i)=getForm("b"&i)
      if Nb(i)="" Then Nb(i)="0"
      Nslzs=Nslzs+CLng(Nb(i))
      Rs("b"&i)=Nb(i)
  Next
  Nprofit=Nslzs-Nfczs
  Rs("profit")=Nprofit
  Rs("fczs")=Nfczs
  Rs("slzs")=Nslzs
  Rs.Update
  Application.UnLock()
  Rs.Close