批量复制数据
现有表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>