批量复制数据

青涩的橄榄

现有表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  
%> 
 
 
 
 
 
 
<% 
   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 "暂无软件

" 
   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            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%> 

我心有海科

感谢楼主，顶。