帝王谷资源网 Design By www.wdxyy.com
现有表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>&nbsp;" 
    response.write "<a href="&filename&"?page="&CurrentPage-1&">上一页</a>&nbsp;" 
  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 "&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> 
标签:
批量复制数据

帝王谷资源网 Design By www.wdxyy.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
帝王谷资源网 Design By www.wdxyy.com

稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!

昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。

这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。

而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?