批量復(fù)制數(shù)據(jù)

更新時(shí)間：2006年11月20日 00:00:00 作者：

現(xiàn)有表Special和表view數(shù)據(jù)結(jié)構(gòu)相同的兩個(gè)表:

Special 
Specialid       NClass        name           pic 
1                   黎明          火舞艷陽(yáng) 
2                   張學(xué)友      地久天長(zhǎng) 
3                   陳冠希      同名專(zhuān)輯 
4                   郭富城      聽(tīng)風(fēng)的歌 
view 
Specialid       NClass        name           pic 
1                   黎明          火舞艷陽(yáng)      photo/200606192321.jpg 
2                   張學(xué)友      地久天長(zhǎng)      photo/200606192327.jpg 
3                   劉德華      如果有一天 photo/200606192328.jpg 
4                   郭富城      聽(tīng)風(fēng)的歌      photo/200606192329.jpg 

要將VIEW中的PIC數(shù)據(jù)批量復(fù)制到Special中,(歌手名與專(zhuān)輯要完全相同),代碼如下:

復(fù)制代碼代碼如下:

<%  
   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>暫無(wú)軟件</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>首頁(yè)</a>&nbsp;"  
    response.write "<a href="&filename&"?page="&CurrentPage-1&">上一頁(yè)</a>&nbsp;"  
  end if  
  if n-currentpage<1 then  
    response.write ""  
  else  
    response.write "<a href="&filename&"?page="&(CurrentPage+1)&">"  
    response.write "下一頁(yè)</a> <a href="&filename&"?page="&n&">尾頁(yè)</a>"  
  end if  
   response.write "&nbsp;頁(yè)次：</font><b><font color=red>"&CurrentPage&"</font>/"&n&"</b>頁(yè)</font> "  
    response.write "&nbsp;共<b>"&totalnumber-1&"</b>個(gè)軟件 <b>"&maxperpage&"</b>個(gè)軟件/頁(yè)"  
end function  
%>  
    </td>  
  </tr>  
</table>  
</body>  
</html> 