现有表special和表view数据结构相同的两个表:
<%
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="¤tpage-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>"¤tpage&"</font>/"&n&"</b>页</font> "
response.write " 共<b>"&totalnumber-1&"</b>个软件 <b>"&maxperpage&"</b>个软件/页"
end function
%>
</td>
</tr>
</table>
</body>
</html>
我要评论
网友评论