现有表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 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>
