高校问答岳霆最后几个老婆:如何用ASP实现以下功能？
来源：百度文库 编辑：高校问答 时间：2024/04/30 07:13:26
用一个网页链接在同一目录的所有图片，一次只显示一张，然后提供一个"下一张"的按钮和一个“上一张”的按钮来遍历所有图片，而不用像用静态html一样，为每个图片做一个网页，然后分别做上 上一张和下一张的链接，那样太烦啊。
如果ASP或者其它编程语言能做到，请告诉我方法，最好能提供相关代码。谢谢了!
於13：10，匿名回复本问题的那位是垃圾!不要在此做广告啊。
首先要建立一个数据库来存放这些图片的地址
然后连接数据库把它们读出来
<%
dim conn
dim connstr
dim db
db="img.mdb"'数据库名
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
%>
<%set rs=server.CreateObject("adodb.recordset")
sql="select * from img"
rs.open sql,conn,1,3
rs.PageSize =1'每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
i=0
%>
<%
do while not rs.eof and i<rs.pagesize
%>
<table width="140" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#0F9300">
<tr>
<td width="140" ><img src="<%=rs("pic")%>" width="140" height="100" border="0" /></td>
</tr>
</tabel>
<%i=i+1
rs.movenext
loop%>
'开始分页
<div align="center" class="zi"><%if page-1>0 then%>
<a href="yourpage.asp?page=<%=page-1%>">上一页</a>
<%else%>
<font color=666666>上一页</font>
<%end if%>
<%if page+1<=maxpage then%>
<a href="yourpage.asp?page=<%=page+1%>">下一页</a>
<%else%>
<font color=666666>下一页</font>
<%end if%></div>
ASP当然能实现你要的功能~~~~还很简单~~~你可以网上下载相册程序~~
可以啊，做一个图片显示页面结合分页就可以了，如果不懂，就像楼上说的下个相册程序吧