开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
buypop.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：4k
源码类别：

数据库编程

开发平台：

ASP/ASPX

buypop.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../FS_Inc/Const.asp" -->
  3. <!--#include file="../FS_InterFace/MF_Function.asp" -->
  4. <!--#include file="../FS_Inc/Function.asp" -->
  5. <!--#include file="lib/strlib.asp" -->
  6. <!--#include file="../FS_Inc/Md5.asp" -->
  7. <!--#include file="lib/UserCheck.asp" -->
  8. <%
  9. %>
  10. <html xmlns="http://www.w3.org/1999/xhtml">
  11. <title>购买会员组(会员续费,冲点-网站内容管理系统</title>
  12. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  13. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  14. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  15. <meta name="Keywords" content="Foosun,FoosunCMS,Foosun Inc.,风讯,风讯网站内容管理系统,风讯系统,风讯新闻系统,风讯商城,风讯b2c,新闻系统,CMS,域名空间,asp,jsp,asp.net,SQL,SQL SERVER" />
  16. <link href="images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  17. <head>
  18. <body>
  19. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  20.   <tr>
  21.     <td>
  22.       <!--#include file="top.asp" -->
  23.     </td>
  24.   </tr>
  25. </table>
  26. <table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  27.   
  28.     <tr class="back"> 
  29.       <td   colspan="2" class="xingmu" height="26"> <!--#include file="Top_navi.asp" --> </td>
  30.     </tr>
  31.     <tr class="back"> 
  32.       <td width="18%" valign="top" class="hback"> <div align="left"> 
  33.           <!--#include file="menu.asp" -->
  34.         </div></td>
  35.       <td width="82%" valign="top" class="hback"><table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  36.         <tr class="hback"> 
  37.           <td class="hback"><strong>位置：</strong><a href="../">网站首页</a> &gt;&gt; 
  38.             <a href="main.asp">会员首页</a> &gt;&gt; 购买会员组(会员续费,冲点)</td>
  39.         </tr>
  40.       </table> 
  41.       
  42.         
  43.       
  44.       <form name="form1" method="post" action="Pay.asp" onSubmit="return checkinput();">
  45.         <table width="98%" height="119" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  46.           <tr> 
  47.             <td class="hback" height="30"> 
  48.               <%
  49. Dim RsBuyObj
  50. Set RsBuyObj = server.CreateObject(G_FS_RS)
  51. RsBuyObj.open "select  GroupName, GroupID From FS_ME_Group  where GroupMoney>0 Order by GroupID desc",User_Conn,1,3
  52. %> <select name="GroupID" id="GroupID">
  53.                 <%Do while Not RsBuyObj.eof %>
  54.                 <option value="<%= RsBuyObj("GroupID")%>"><%= RsBuyObj("GroupName")%></option>
  55.                 <%
  56. RsBuyObj.movenext
  57. Loop
  58. RsBuyObj.Close
  59. set RsBuyObj = nothing
  60. %>
  61.               </select>
  62.             </td>
  63.           </tr>
  64.           <tr> 
  65.             <td height="30" class="hback"> 
  66.               <input type="submit" name="Submit" value="确认购买,转向到支付页面">
  67.             </td>
  68.           </tr>
  69.           <tr> 
  70.             <td height="30" class="hback"  id=item$pval[CatID]) style="CURSOR: hand"  onmouseup="opencat(mid100100100);"  language=javascript>·查看每个会员组的权限</td>
  71.           </tr>
  72.         </table>
  73.         <table width="98%" height="145" border="0" align="center" cellpadding="5" cellspacing="1" class="table"  id="mid100100100" style="display:none;">
  74.           <tr> 
  75.             <td class="hback">&nbsp;</td>
  76.           </tr>
  77.         </table>
  78.       </form> </td>
  79.     </tr>
  80.     <tr class="back"> 
  81.       <td height="20"  colspan="2" class="xingmu"> <div align="left"> 
  82.           <!--#include file="Copyright.asp" -->
  83.         </div></td>
  84.     </tr>
  85.  
  86. </table>
  87. </body>
  88. </html>
  89. <%
  90. Set Fs_User = Nothing
  91. %>
  92. <script language="JavaScript" type="text/JavaScript">
  93. function checkinput()
  94. {
  95. if(document.form1.GroupID.value=='')
  96. {
  97. alert('没有会员组');
  98. return false;
  99. }
  100. }
  102. </script>
  104. <!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->