<% '================================================= '过程名：Call Index_Pay '作 用：充值 '作 者: 花心萝卜 http://www.7xiwl.com '================================================= Sub Index_Pay %> <% Response.write "

充值

" Response.write "
" Response.write "" Response.write "
" if view="vip" then Response.write "
" Response.write "
" Response.write " →本网站系统当前采用的是自动申请VIP会员模式
" Response.write " →如果您当前的条件满足VIP会员申请条件，您就可以直接申请成为 "&CD_WebName&" 的VIP会员
" Response.write " 1、VIP会员的有效期为 "&viptime&" 天
" Response.write " 2、当您的有效期快到期时，我们会以短消息方式通知您
" Response.write " 3、VIP会员下载舞曲不扣点数
" Response.write " 4、谢谢您对《"&CD_WebName&"》的支持
" Response.write "
" Response.write "
" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "
" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "
所需要条件申请条件申请成功后您当前的条件是否满足
" Response.write "
" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" if CmsDj_Com_Points>zvippoints-1 then Response.write "" else Response.write "" end if Response.write "" Response.write "
点数大于 "&zvippoints&" 点- "&zvippoints&" 点"&CmsDj_Com_Points&" 点满足不满足
" Response.write "
" if CmsDj_Com_Grade=1 then response.write "您已经是本站VIP会员了  " else if zhvip<>"yes" then response.write "本站已停止VIP会员的申请，如你需要可联系管理员  " else if CmsDj_Com_Points<=zvippoints-1 then response.write "您的条件不满足，您暂时还无法申请成为本站VIP会员  " else response.write "您可以申请VIP会员 点击申请" end if end if end if if CmsDj_Com_Grade=1 then response.write "您申请VIP会员的时间是："&CmsDj_Com_Vipin&"  " response.write "离您的有效期还有："&CmsDj_Com_Vipend-Date()&"天" end if Response.write "
" Response.write "" Response.write "" Response.write "" Response.write "
" Response.write "
" elseif view="log" then Response.write "
" Response.write "
" Response.write "这里是在线支付记录页面，您可以查看支付状态。" Response.write "
" Response.write "
" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" i=0 Set Rs=CmsDjFeed.GetRs("",0,"FeedA=12 and UserID="&CmsDj_Com_UserID&" order by FeedE desc") If Not(rs.bof And rs.EOF) Then rs.pagesize=15 '每页数据 rs.AbsolutePage=page m=rs.recordcount '总记录 n=rs.PageCount '总页数 z=rs.pagesize '每页数量 do while not rs.eof and i" Response.write "" Response.write "" Response.write "" rs.movenext loop else Response.write "" end if rs.close set rs=nothing Response.write "
序号" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "
交易定单号金额状态支付时间
" Response.write "
"&i&"" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "
" Response.write "

"&rs("FeedD")&"

" Response.write "		"&rs("FeedB")&""&passed&""&CmsDj_Com_Time(rs("FeedE"))&"
" Response.write "
暂无支付记录! ^_^
" Response.write "" Response.write "" Response.write "" Response.write "
" Response.write "
" Response.write List_Page(m,z,page,"space.asp?do=pay&view=log",11,5) Response.write "
" Response.write "
" elseif view="dk" then Response.write "
" Response.write "
" Response.write "这里是购买点数页面，点数可以下载本站高音质MP3音乐，还可以升级为VIP用户（无限下载）。" Response.write "
" Response.write "
" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Dim Rs i=0 Set Rs=CmsDjPay.GetRs("",0,"order by CD_Dk asc") if not rs.eof then do while not rs.eof i=i+1 Response.write "" Response.write "" Response.write "" Response.write "" rs.movenext loop else end if rs.close set rs=nothing Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "
序号" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "
包含点数点卡价格点卡类型购买确认
" Response.write "
"&i&"" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "
"&rs("CD_Dk")&" 点"&rs("CD_Money")&" 元直充点击购买
" Response.write "
你的帐号还有 "&CmsDj_Com_Money&" 元 "&CmsDj_Com_Points&" 点
" Response.write "" Response.write "" Response.write "" Response.write "
" Response.write "
" else Response.write "
" Response.write "
" Response.write "这里是充值金钱页面，网银直充，方便快捷。支付完毕后记得购买点数哦。" Response.write "
支付前先把浏览器的拦截功能关闭，可能会影响支付系统。" Response.write "
" Response.write "
" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "
你的帐号还有 "&CmsDj_Com_Money&" 元 "&CmsDj_Com_Points&" 点
会员帐号*必填, 要充值的帐号!
充值金额 元*必填, 要充值的金额!
 
" Response.write "
" Response.write "
" end if %> <%End Sub%>