asp 批量添加数据 判断数据库是否有，有则更新，其余则添加.

其实也很简单的，你只要在rs.addnew那里加个数据库是否有这条记录的判断就OK了呀.

if

没有

rs.addnew

end

if

其实楼主也可以这样，在表单提交数据上来进行处理的时候，先用这条数据去数据库里查找，若有，则修改若无，则添加如有多条数据上传，就循环.添加用insert

into，修改用update语句就行了.这样效率上会高点.

如一个Excel点名簿要批量添加复选框，已到的打勾，没到的不打勾

可以先用录制宏功能，学习一下vba代码，调试的时候多用msgbox函数和 msdn的官方帮助 google

用EXCEL VBA实现

------------------------------------------------------------------------------------

Sub Macro4()'' Macro1 Macro

For i = 1 To 2

ActiveSheet.CheckBoxes.Add(Cells(i, 1).Left, Cells(i, 1).Top, 24, 16.5).Select '在cells(i,1)处添加复选框

ActiveSheet.Shapes("Check Box " + Str(i)).Select

Selection.Characters.Text = "" '把复选框右边系统自带的注释清空

With Selection

.Value = xlOff

.LinkedCell = "$B$" + Trim(Str(i)) '如果i=1的话，则在B1单元格处显示A1单元格中的复选框是否被选中

' MsgBox """" + "$D$" + Trim(Str(i)) + """"

' MsgBox """" + "$D$1" + """"

.Display3DShading = FalseEnd WithNext iRange("E5").SelectEnd Sub-------------------------------------------------------------------------------------------------------------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

' [a1] = "单元格 "

' [b1] = "第一行顶端到该单元格顶端的距离: "

' [c1] = "从A列左边界至该单元格左边界的距离: "

[a2] = Target.Address ’单元格在第几行第几列

[b2] = Target.Top ‘单元格离上边界的距离

[c2] = Target.Left ’单元格离左边界的距离

[d2] = Target.Height ’单元格行高

[e2] = Target.Width ‘单元格列宽

字符串转数值函数 val

数值转字符串函数 str

添加单引号 四个引号最后得出的是单引号 MsgBox """" + "$D$" + Trim(Str(i)) + """" 去掉空格的函数 trim

---