%
KindID=replace(request("KindID"), " ", "'")
if KindID="1" then
Kind="释迦牟尼佛"
elseif KindID="2" then
Kind="阿弥陀佛"
elseif KindID="3" then
Kind="药师佛"
elseif KindID="4" then
Kind="大行普贤菩萨"
elseif KindID="5" then
Kind="大智文殊菩萨"
elseif KindID="6" then
Kind="大悲观世音菩萨"
elseif KindID="7" then
Kind="大愿地藏王菩萨"
elseif KindID="8" then
Kind="弥勒菩萨"
elseif KindID="9" then
Kind="黄财神"
elseif KindID="10" then
Kind="莲花生大士"
elseif KindID="11" then
Kind="十六世大宝法王"
elseif KindID="12" then
Kind="十七世大宝法王"
elseif KindID="13" then
Kind="晋美彭措法王"
else
Kind="祈愿首页"
end if
%>
<%
MaxPerPage=30
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim typename
typename=""
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim sql
dim rss
dim typeid,typename1
if not isEmpty(Replace(request("typeid"), "'", "''")) then
typeid=Replace(request("typeid"), "'", "''")
else
typeid=""
end if
if request("page")="" then
page=0
end if
Set rs= Server.CreateObject("ADODB.Recordset")
if KindID<>"" then
sql="select * from fo where KindID="&KindID&" order by id desc"
else
sql="select * from fo order by id desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.end
else
totalPut=rs.recordcount
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showpage totalput,MaxPerPage,"index.asp"
showContent
showpage1 totalput,MaxPerPage,"index.asp"
else
if (currentPage-1)*MaxPerPage