批量复制数据

现有表Special和表view数据结构相同的两个表:

Special 
Specialid       NClass        name           pic 
1                   黎明          火舞艳阳 
2                   张学友      地久天长 
3                   陈冠希      同名专辑 
4                   郭富城      听风的歌 
view 
Specialid       NClass        name           pic 
1                   黎明          火舞艳阳      photo/200606192321.jpg 
2                   张学友      地久天长      photo/200606192327.jpg 
3                   刘德华      如果有一天 photo/200606192328.jpg 
4                   郭富城      听风的歌      photo/200606192329.jpg 

要将VIEW中的PIC数据批量复制到Special中,(歌手名与专辑要完全相同),代码如下:

复制代码代码如下:

<%  
   dim conn     
   dim connstr  
   'on error resume next  
   connstr="DBQ="+server.mappath("p#1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"  
   set conn=server.createobject("ADODB.CONNECTION")  
On Error Resume Next  
   conn.open connstr   
%>  
<html>  
<head>  
<title>管理软件</title>  
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">  
</head>  
<body bgcolor="#FFFFFF" text="#000000"  >  
<table width=700 border="0" cellspacing="0" cellpadding="0"  align="center"><%  
   const MaxPerPage=100  
   dim totalPut     
   dim CurrentPage  
   dim TotalPages  
   dim i,j  
   if not isempty(request("page")) then  
      currentPage=cint(request("page"))  
   else  
      currentPage=1  
   end if  
%>  
<%  
set rs=server.CreateObject("adodb.recordset")  
rs.open "select  *  from Special inner join view on Special.name =view.name and Special.NClass=view.NClass",conn,1,1  
  if rs.eof and rs.bof then  
       response.write "<p align=center class=font>暂无软件</p>"  
   else  
   totalPut=rs.recordcount  
      totalPut=rs.recordcount  
      if currentpage<1 then  
          currentpage=1  
      end if  
      if (currentpage-1)*MaxPerPage>totalput then  
    if (totalPut mod MaxPerPage)=0 then  
      currentpage= totalPut MaxPerPage  
    else  
       currentpage= totalPut MaxPerPage + 1  
    end if  
      end if  
       if currentPage=1 then  
            showContent  
            showpage totalput,MaxPerPage,"l.asp"  
       else  
          if (currentPage-1)*MaxPerPage<totalPut then  
            rs.move  (currentPage-1)*MaxPerPage  
            dim bookmark  
            bookmark=rs.bookmark  
            showContent  
             showpage totalput,MaxPerPage,"l.asp"  
        else  
         currentPage=1  
           showContent  
           showpage totalput,MaxPerPage,"l.asp"  
       end if  
    end if  
   rs.close  
   end if  

   set rs=nothing    
   conn.close  
   set conn=nothing  
   sub showContent  
       dim i  
    i=1  
%>  
      <%do while not rs.eof%>  
<tr>   
<td><%dim picc,vname,vnclass  
picc=rs("pic")  
vname=rs("name")  
vnclass=rs("nclass")%><%  
sql="update Special set pic='"&picc&"' where name='"&vname&"'  and nclass='"&vnclass&"'  "  
conn.execute sql  
%></td>  
</tr>  
<% i=i+1  
if i>=MaxPerPage then exit do  
rs.movenext  
loop  
%>  
</table>  
      <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">  
        <tr>   
          <td height="21" bgcolor="#F7F7F7" align="center">  
<%  
end sub   
function showpage(totalnumber,maxperpage,filename)  
  dim n  
  if totalnumber mod maxperpage=0 then  
     n= totalnumber maxperpage  
  else  
     n= totalnumber maxperpage+1  
  end if  
  if CurrentPage<2 then  
    response.write ""  
  else  
    response.write "<a href="&filename&"?page=1>首页</a> "  
    response.write "<a href="&filename&"?page="&CurrentPage-1&">上一页</a> "  
  end if  
  if n-currentpage<1 then  
    response.write ""  
  else  
    response.write "<a href="&filename&"?page="&(CurrentPage+1)&">"  
    response.write "下一页</a> <a href="&filename&"?page="&n&">尾页</a>"  
  end if  
   response.write " 页次：</font><b><font color=red>"&CurrentPage&"</font>/"&n&"</b>页</font> "  
    response.write " 共<b>"&totalnumber-1&"</b>个软件 <b>"&maxperpage&"</b>个软件/页"  
end function  
%>  
    </td>  
  </tr>  
</table>  
</body>  
</html> 