UC知道如何用ASP实现以下功能？
来源：百度知道 编辑：UC知道 时间：2024/05/17 20:55:24
我不懂ASP或者其它网页编程语言，现在想做一个个人网站，有很多图片要放上去，请问ASP或者其它编程语言能否实现这样的功能：
用一个网页链接在同一目录的所有图片，一次只显示一张，然后提供一个"下一张"的按钮和一个“上一张”的按钮来遍历所有图片，而不用像用静态html一样，为每个图片做一个网页，然后分别做上 上一张和下一张的链接，那样太烦啊。
如果ASP或者其它编程语言能做到，请告诉我方法，最好能提供相关代码。谢谢了!
於13：10，匿名回复本问题的那位是垃圾!不要在此做广告啊。
用一个网页链接在同一目录的所有图片，一次只显示一张，然后提供一个"下一张"的按钮和一个“上一张”的按钮来遍历所有图片，而不用像用静态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=iPa