<%
if request("act")="yes" then
%>
<%
…………
Set rs = Server.CreateObject("ADODB.Recordset")
SQL="select * from TableTemp"
rs.Open SQL, conn, 3, 3
Set rs1 = Server.CreateObject("ADODB.Recordset")
SQL1="select * from TableData"
rs1.Open SQL1, Conn, 1, 1
recordcount=rs1.RecordCount
rs1.Close
%>
<%
Do While Not rs.eof '从原数据表循环取数据
rs1.Open SQL1, Conn, 1, 3
for j=1 to recordcount '往TableData里添加数据,先从已有的数据中检索,
'判断Name是否有相同,从而进一步确认要不要填加那条数据
if rs1.EOF then
exit for
end if
if trim(rs1("Name"))=trim(rs("Name")) then '判断Name是否相同
<% willadd=1
end if
rs1.MoveNext
next '继续执行TableData表下一条数据
if willadd=1 then
rs1.AddNew '添加数据
for i=0 to rs.Fields.Count-1
rs1(i)=Trim(rs(i))
Next
rs1.Update
end if
rs1.Close
rs.MoveNext
Loop 'TableTemp临时表下一条要添加的数据
<%
if request("act")="yes" then
%>
<%
…………
Set rs = Server.CreateObject("ADODB.Recordset")
SQL="select * from TableTemp"
rs.Open SQL, conn, 3, 3
Set rs1 = Server.CreateObject("ADODB.Recordset")
SQL1="select * from TableData"
rs1.Open SQL1, Conn, 1, 1
recordcount=rs1.RecordCount
rs1.Close
%>
<%
Do While Not rs.eof '从临时数据表循环取数据
rs1.Open SQL1, Conn, 1, 3
for j=1 to recordcount '往TableData里添加数据,先从已有的数据中检索,
'判断Name是否有相同,从而进一步确认要不要填加那条数据
if rs1.EOF then
exit for
end if
if trim(rs1("Name"))=trim(rs("Name")) then '判断Name是否相同
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
if(confirm("姓名相同,如果不添加,请按 确定,否则按 取消")){
var url= "insert.asp?act=no" ;
location.href = url ; }
-->
</SCRIPT>
<% end if
rs1.AddNew '如果按了 取消 ,则添加数据
for i=0 to rs.Fields.Count-1
rs1(i)=Trim(rs(i))
Next
rs1.Update
rs1.MoveNext
next '继续执行TableDate下一条数据
rs1.Close
rs.MoveNext
Loop 'TableTemp临时表下一条要添加的数据