<% 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 <% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %>
祈愿主题
祈愿人
祈愿QQ
祈愿时间
<%=left(rs("name"),6)%> <%=rs("qq")%>
<%=rs("time")%>
" response.write "" response.write "
<% end sub function showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if end function function showpage1(totalnumber,maxperpage,filename) if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if Response.Write "共计:"&totalnumber&"条记录 当前页:"&CurrentPage&" 共"&n&"页  " if CurrentPage<2 then response.write "首页 上一页 " else response.write "首页 " response.write "上一页 " end if if n-currentpage<1 then response.write "下一页 尾页" else response.write "下一页 尾页" end if response.write " 
" dim n %> <% end function rs.close set rs=nothing conn.close set conn=nothing %>