asp分页代码

Question

各位朋友，我是从ACCESS数据库里调用图片和名称，显示的方式就是图片的下面显示名称，横向重复3次，再纵向重复4次，谁能给一个完整代码呀？
或者发去我邮箱：wainnnni@163.com 谢谢,解决问题后加分。

Answer 1

<%
function page(a,RCount,PCount,P,unl)'--------------分页函数
if a=1 then
if p=1 then
show= "<input type=""submit"" name=""p1"" value=""首页"" disabled >"
else
show= "<input type=""submit"" name=""p1"" value=""首页"" onClick=""location.href='"&unl&"1';"" >"
end if
if p>1 then
show=show+" <input type=""submit"" name=""p2"" value=""上一页"" onClick=""location.href='"&unl&p-1&"';"">"
else
show=show+" <input type=""submit"" name=""p2"" value=""上一页"" disabled >"
end if
if p<PCount then
show=show+" <input type=""submit"" name=""p3"" value=""下一页"" onClick=""location.href='"&unl&p+1&"';"">"
else
show=show+" <input type=""submit"" name=""p3"" value=""下一页"" disabled >"
end if
if p>=PCount then
show=show+" <input type=""submit"" name=""p4"" value=""末页"" disabled>"
else
show=show+" <input type=""submit"" name=""p4"" value=""末页"" onClick=""location.href='"&unl&PCount&"';"">"
end if
show=show+" 当前页"&P&"/"&PCount&" 记录总数"&RCount
end if
if a=2 then
show="<span class=""text"">"
show=show+"共有"&rcount&"个记录"
if p=1 then
show=show+" | 首页 "
else
show=show+" | <a href='"&unl&"1' class='text'>首页</a> "
end if
if p>1 then
show=show+"| <a href='"&unl&p-1&"' class='text'>上一页</a> "
else
show=show+"| 上一页 "
end if
if p<pcount then
show=show+"| <a href='"&unl&p+1&"' class='text'>下一页</a> "
else
show=show+"| 下一页 "
end if
if p>=pcount then
show=show+"| 尾页 "
else
show=show+"| <a href='"&unl&pcount&"' class='text'>尾页</a> "
end if
show=show+"| 页次:"&p&"/"&pcount&"页 | 共"&pcount&"页"
show=show+"</span>"
end if
if a=3 then
show="<span class=""text"">"
BlockPage=Int((P-1)/10)*10+1
IF BlockPage = 1 Then
show=show+ "<< "
else
show=show+ "<a href="&unl&BlockPage-1&" class=""text""><<</a> "
end if
i=1
Do Until i > 10 OR BlockPage > PCount
IF BlockPage=int(P) Then
show=show+ "<font color=red> "&BlockPage&"</font> "
else
show=show+ "<a href="&unl&BlockPage&" class=""text""> "&BlockPage&"</a> "
end if
BlockPage=BlockPage+1
i = i + 1
Loop
if pcount>10 then
show=show+ "...<a href="&unl&pcount&" class=""text"">"&pcount&"</a> "
end if
if BlockPage>pcount then
show=show+ " >> "
else
show=show+ " <a href="&unl&BlockPage&" class=""text"">>> </a>"
end if
show=show+"</span>"
end if
response.write show
end function

%>

参考资料：http://www.jw112.com/asp/html/12650.htm