主頁 > 知識庫 > 批量復(fù)制數(shù)據(jù)

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

熱門標簽:鄢陵學(xué)校如何做地圖標注 長春公司外呼系統(tǒng)中心 成都ai外呼系統(tǒng)線路 云南便宜外呼系統(tǒng)平臺 虛擬電話外呼系統(tǒng) 廣東語音外呼系統(tǒng)公司 沈陽三五防封電銷卡 鄭州智能外呼電銷機器人廠家 沈陽電話機器人公司
現(xiàn)有表Special和表view數(shù)據(jù)結(jié)構(gòu)相同的兩個表:
復(fù)制代碼 代碼如下:

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

要將VIEW中的PIC數(shù)據(jù)批量復(fù)制到Special中,(歌手名與專輯要完全相同),代碼如下:
復(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>暫無軟件/p>" 
   else 
   totalPut=rs.recordcount 
      totalPut=rs.recordcount 
      if currentpage1 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)*MaxPerPagetotalPut 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 CurrentPage2 then 
    response.write "" 
  else 
    response.write "a href="filename"?page=1>首頁/a>nbsp;" 
    response.write "a href="filename"?page="CurrentPage-1">上一頁/a>nbsp;" 
  end if 
  if n-currentpage1 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 "nbsp;頁次:/font>b>font color=red>"CurrentPage"/font>/"n"/b>頁/font> " 
    response.write "nbsp;共b>"totalnumber-1"/b>個軟件 b>"maxperpage"/b>個軟件/頁" 
end function 
%> 
    /td> 
  /tr> 
/table> 
/body> 
/html> 

標簽:四平 平頂山 馬鞍山 防城港 遼陽 湖北 朝陽 孝感

巨人網(wǎng)絡(luò)通訊聲明:本文標題《批量復(fù)制數(shù)據(jù)》,本文關(guān)鍵詞  批量,復(fù)制,數(shù)據(jù),批量,復(fù)制,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《批量復(fù)制數(shù)據(jù)》相關(guān)的同類信息!
  • 本頁收集關(guān)于批量復(fù)制數(shù)據(jù)的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章