求 一个超精简的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.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>相册</title>
<style type="text/css">
body,td,th {font-size: 12px; margin:20 auto; text-align:center; background:#FFCC33; line-height:22px}
.big_img {border:black solid 2px; padding:4px; background:orange}
.small {width:650px; margin:0 auto; text-align:left}
.small_img {border:black solid 1px; padding:1px;}
.copyright {border-top:black solid 1px;padding-top:5px}
</style></head>
<body>
<p><img src="<%=rs("url")%>" width="400" height="300" class="big_img"></p>
<p>(编号<%=rs("ID")%>)</p>
<%
rs.movenext
next
%>
<p><div class="small">
<%
rs.MoveFirst
do until (rs.eof)
%>
<a href=""><img src="<%=rs("url")%>" width="60" height="45" class="small_img"></a>
<%rs.MoveNext
loop%></div>
</p>
<div style="text-align:center;">当前第<%=page%>页/共有<%=rs.pagecount%>页，共有名片：<%=rs.recordcount%>张
<%if page=1 then%>
首页
<%else%>
<a href="">首页</a>
<%end if%>
<%if page=1 then%>
上一页
<%else%>
<a href="">上一页</a>
<%end if%>
<%if rs.pagecount<page+1 then%>
下一页
<%else%>
<a href="">下一页</a>
<%end if%>
<%if rs.pagecount<page+1 then%>
尾页
<%else%>
<a href="">尾页</a>
</div>
<%
end if
' 释放数据库
rs.close
set rs=Nothing
conn.close
set conn=Nothing
%>
</body>
</html>
这也是个简单的相册！不过看不太懂他的数据库是怎么设计！
请高手帮手！！
