rtyeuy 发布留言 2008-6-27 22:23
求 一个超精简的ASP相册，和ASP留言！
<%@ Language=VBScript CODEPAGE=936%>
<% Option Explicit %>
<%
' 定义变量
dim conn,rs,sql
dim page,i
' 数据库连接
set conn=server.CreateObject("Adodb.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("photo.mdb")
' 创建一个记录集
set rs=server.CreateObject("Adodb.Recordset")
sql="select * from photo"
rs.Open sql,conn,1,1
' 分页显示
rs.pagesize=1
page=Request.QueryString("page")
if page="" then page=1
rs.absolutepage=page
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd";>
http://www.w3.org/1999/xhtml";>
相册![]("<%=rs("url")%>")
(编号<%=rs("ID")%>)
<%
rs.movenext
next
%>
<%
rs.MoveFirst
do until (rs.eof)
%>
<%rs.MoveNext
loop%>
当前第<%=page%>页/共有<%=rs.pagecount%>页，共有名片：<%=rs.recordcount%>张
<%if page=1 then%>
首页
<%else%>
首页
<%end if%>
<%if page=1 then%>
上一页
<%else%>
上一页
<%end if%>
<%if rs.pagecount
下一页
<%else%>
下一页
<%end if%>
<%if rs.pagecount
尾页
<%else%>
尾页
<%
end if
' 释放数据库
rs.close
set rs=Nothing
conn.close
set conn=Nothing
%>
这也是个简单的相册！不过看不太懂他的数据库是怎么设计！
请高手帮手！！
不夜星空 发布留言 2008-6-28 08:45
photo 表名的名称
ID ID字段
url 取得图片 字段
页: [1]
