<% set rs=server.createobject("adodb.recordset") childkind=SafeCheck(request.QueryString("ck"),4,len(request.QueryString("ck"))) if childkind="SYSTEM_ERROR|00001" then sql="select id,title,kind from defaultupdate order by posttime desc" else sql="select id,title,kind from defaultupdate where childkind='"&childkind&"' order by posttime desc" tmpck="-"&childkind end if %>

当期优惠 办卡优惠 想分就分 联名卡优惠 商户优惠

优惠活动<%=tmpck%> <% rs.open sql,conn,1,1 if not rs.eof then rs.PageSize = pz page = Request.QueryString ("page") if page = "" or page<1 then page = 1 end if page = clng (page) pagecount=rs.PageCount if page>pagecount then page = rs.PageCount end if rs.AbsolutePage = page sum=rs.RecordCount i=0 do while not rs.eof and i5 then htmlurl=kind&"?id="&id end if %> <% rs.movenext loop else response.Write("") end if rs.close set rs=nothing conn.close set conn=nothing %> target="_parent"><%=title%> 暂无优惠政策！ 共<%=sum%>条　每页<%=pz%>条　分<%=pagecount%>页显示　当前为<%=page%>/<%=pagecount%>页　 <%if page = 1 then if pagecount=1 then else%> 下一页　尾页 <% end if elseif page=pagecount and pagecount>1 then%> 首页　上一页 <%else%> 首页　上一页 下一页　尾页 <%end if%>