ASP实例学习8

<%=rs(0).name%><%=rs(1).name%>
ASP好强大的哦，居然可以通过这样得到字段的名称。想想JSP中有没有呢？
下面我写的一个简单的ASP分页可以实现显示第几页，共有几页的功能。这些的实现用JSP也可以实现就是要做一个些可移动的结果集处理一下。而ASP是有相应的RS属性的哦！
具体代码如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
StrDSN="driver={SQL server};server=192.168.100.12;uid=sa;pwd=hkebao;database=MyFather"
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrDSN
set rs=server.createobject("adodb.recordset")
sql="select * from Te"
rs.open sql,conn,3
rs.pagesize=5
if request("page")<>"" then
   epage=cint(request("page"))
   if epage<1 then epage=1
   if epage>rs.pagecount then epage=rs.pagecount   '超过总页数就取总页数
else
    epage=1
end if
rs.absolutepage=epage                              '表示第几页
%>




<%
for i=0 to rs.pagesize-1
    if rs.bof or rs.eof then exit for
%>



<%
rs.movenext()
next
%>

<%=rs(0).name%>	<%=rs(1).name%>
<%=rs(0).value%>	<%=rs(1).value%>

首页 
前一页 
后一页 
末页

现在是第<%=epage%>页一共有<%=rs.pagecount%>页

<%
conn.close()
%>
比较好的一个分页程序的哦哈哈！
OK，现在来看看用ASP如何将图片分页显示出来吧！
文件真实是保存到数据库的一个目录下面的呼的。而在数据库中是存放了其目录路径的。如何可 以读取出来的呢。
看看如何来显示图片的哦哈哈相当easy的
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
StrDSN="driver={SQL server};server=192.168.100.12;uid=sa;pwd=hkebao;database=MyFather"
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrDSN
set rs=server.createobject("adodb.recordset")
sql="select title,image from images"
rs.open sql,conn,3
rs.pagesize=1
if request("page")<>"" then
   epage=cint(request("page"))
   if epage<1 then epage=1
   if epage>rs.pagecount then epage=rs.pagecount   '超过总页数就取总页数
else
    epage=1
end if
rs.absolutepage=epage                              '表示第几页
%>

<%
for i=0 to rs.pagesize-1
    if rs.bof or rs.eof then exit for
%>






<%
rs.movenext()
next
%>

<%=rs(0).value%>

首页 
前一页 
后一页 
末页

现在是第<%=epage%>页一共有<%=rs.pagecount%>页

<%
conn.close()
%>