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

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

数据库编程

开发平台：

ASP/ASPX

Order_Pay.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="lib/UserCheck.asp" -->
  7. <%
  8. Response.Buffer = True
  9. Response.Expires = -1
  10. Response.ExpiresAbsolute = Now() - 1
  11. Response.Expires = 0
  12. Response.CacheControl = "no-cache"
  13. if Request.QueryString("Action") = "lock_order" then
  14. User_Conn.execute("Delete From FS_ME_Order  where OrderNumber='"& Request.QueryString("OrderNumber")&"' and UserNumber='"& Fs_User.UserNumber &"'")
  15. User_Conn.execute("Delete From FS_ME_Order_detail  where OrderNumber='"& Request.QueryString("OrderNumber")&"'")
  16. strShowErr = "<li>操作定单成功!</li>"
  17. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  18. Response.end
  19. End if
  20. %>
  21. <html xmlns="http://www.w3.org/1999/xhtml">
  22. <title>定单-网站内容管理系统</title>
  23. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  24. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  25. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  26. <meta name="Keywords" content="Foosun,FoosunCMS,Foosun Inc.,风讯,风讯网站内容管理系统,风讯系统,风讯新闻系统,风讯商城,风讯b2c,新闻系统,CMS,域名空间,asp,jsp,asp.net,SQL,SQL SERVER" />
  27. <link href="images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  28. <head>
  29. <body>
  30. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  31.   <tr>
  32.     <td>
  33.       <!--#include file="top.asp" -->
  34.     </td>
  35.   </tr>
  36. </table>
  37. <table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  38.   
  39.     <tr class="back"> 
  40.       <td   colspan="2" class="xingmu" height="26"> <!--#include file="Top_navi.asp" --> </td>
  41.     </tr>
  42.     <tr class="back"> 
  43.       <td width="18%" valign="top" class="hback"> <div align="left"> 
  44.           <!--#include file="menu.asp" -->
  45.         </div></td>
  46.       <td width="82%" valign="top" class="hback"><table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  47.         <tr class="hback"> 
  48.           <td class="hback"><strong>位置：</strong><a href="../">网站首页</a> &gt;&gt; 
  49.             <a href="main.asp">会员首页</a> &gt;&gt;定单</td>
  50.         </tr>
  51.         <tr class="hback">
  52.           <td class="hback"><a href="Order.asp">一般定单</a>┆<a href="Order_Pay.asp">在线支付定单</a></td>
  53.         </tr>
  54.       </table>
  55.       <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  56.         <form name="form1" method="post" action="Order.asp">
  57.           <tr class="hback"> 
  58.             <td colspan="6" class="hback"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  59.                 <tr> 
  60.                   <td width="44%"> <strong> 
  61.                     <%
  62.   dim strTmp,strLogType,strTmp1
  63.   strLogType = NoSqlHack(Trim(Request.QueryString("LogTye")))
  64.      if Request.QueryString("LogTye")<>"" then
  65.    strTmp =  " and LogType='"& strLogType &"'"
  66.      Else
  67.    strTmp =  " "
  68.     End if
  69. Dim RsOrderObj,RsOrderSQL
  70. Dim strpage,strSQLs,StrOrders
  71. strpage=request("page")
  72. if len(strpage)=0 Or strpage<1 or trim(strpage)=""  Then strpage="1"
  73. Set RsOrderObj = Server.CreateObject(G_FS_RS)
  74. RsOrderSQL = "Select * From FS_ME_Order  where UserNumber='"& Fs_User.UserNumber &"' and OrderType=3 order by  OrderID desc"
  75. RsOrderObj.Open RsOrderSQL,User_Conn,1,3
  76. Response.Write RsOrderObj.recordcount
  77. %>
  78.                     </strong> 个定单</td>
  79.                   <td width="56%"><div align="left"> </div></td>
  80.                 </tr>
  81.               </table></td>
  82.           </tr class="hback">
  83.           <tr class="hback"> 
  84.             <td width="20%" class="xingmu"><div align="left"><strong> 定单号(点定单查看详情)</strong></div></td>
  85.             <td width="11%" class="xingmu"><div align="center">审核状态</div></td>
  86.             <td width="21%" class="xingmu"><div align="center">成功日期</div></td>
  87.             <td width="18%" class="xingmu"><div align="center"><strong>日期</strong></div></td>
  88.             <td width="9%" class="xingmu"><div align="center"><strong>类型</strong></div></td>
  89.             <td width="13%" class="xingmu"><div align="center"><strong>支付</strong></div></td>
  90.           </tr>
  91.           <%
  92. Dim select_count,select_pagecount,i
  93. if RsOrderObj.eof then
  94.    RsOrderObj.close
  95.    set RsOrderObj=nothing
  96.    set conn=nothing
  97.    set user_conn=nothing
  98.    set fs_user=nothing
  99.    Response.Write"<TR><TD colspan=""6""  class=""hback"">没有记录。</TD></TR>"
  100. else
  101. if Request("CountPage")="" or len(Request("CountPage"))<1 then
  102. RsOrderObj.pagesize = 20
  103. Else
  104. RsOrderObj.pagesize = Request("CountPage")
  105. End if
  106. RsOrderObj.absolutepage=cint(strpage)
  107. select_count=RsOrderObj.recordcount
  108. select_pagecount=RsOrderObj.pagecount
  109. for i=1 to RsOrderObj.pagesize
  110. if RsOrderObj.eof Then exit For 
  111.  %>
  112.           <tr class="hback"> 
  113.             <td class="hback"><div align="left"> 
  114.                 <% = RsOrderObj("OrderNumber")%>
  115.               </div></td>
  116.             <td class="hback"> <div align="center"> 
  117.                 <%
  118. if RsOrderObj("isLock")=1 then
  119. Response.Write"<span class=tx>审核中...<span>"
  120. Else
  121. Response.Write"已审核..."
  122. End if
  123. %>
  124.               </div></td>
  125.             <td class="hback"><div align="center"> 
  126.                 <% = RsOrderObj("M_PayDate")%>
  127.               </div></td>
  128.             <td class="hback"> 
  129.               <% = RsOrderObj("AddTime")%>
  130.             </td>
  131.             <td class="hback"><div align="center"> 
  132.                 <%
  133. if RsOrderObj("OrderType")=0 then
  134. Response.Write("会员组")
  135. Elseif RsOrderObj("OrderType")=1 then
  136. Response.Write("商品")
  137. Elseif RsOrderObj("OrderType")=2 then
  138. Response.Write("点卡")
  139. Elseif RsOrderObj("OrderType")=3 then
  140. Response.Write("在线支付")
  141. Else
  142. Response.Write("其他")
  143. End if
  144. %>
  145.               </div></td>
  146.             <td class="hback"> <div align="center"> 
  147.                 <%if RsOrderObj("IsSuccess")=0 then%>失败<%Else%><span class="tx">成功</span><%End if%>
  148.               </div></td>
  149.           </tr>
  150.           <%
  151.   RsOrderObj.MoveNext
  152.   Next
  153.   %>
  154.           <tr class="hback"> 
  155.             <td colspan="6" class="xingmu"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
  156.                 <tr> 
  157.                   <td width="80%"> <span class="top_navi"> 
  158.                     <%  Response.Write("每页:"& RsOrderObj.pagesize &"个,")
  159. Response.write"&nbsp;共<b>"& select_pagecount &"</b>页<b>&nbsp;" & select_count &"</b>条记录，本页是第<b>"& strpage &"</b>页。"
  160. if int(strpage)>1 then
  161. Response.Write"&nbsp;<a href=?page=1&LogType="&Request("LogTye")&">第一页</a>&nbsp;&nbsp;"
  162. Response.Write"&nbsp;<a href=?page="&cstr(cint(strpage)-1)&"&LogType="&Request("LogTye")&">上一页</a>&nbsp;&nbsp;"
  163. End if
  164. If int(strpage)<select_pagecount then
  165. Response.Write"&nbsp;<a href=?page="&cstr(cint(strpage)+1)&"&LogType="&Request("LogTye")&">下一页</a>&nbsp;"
  166. Response.Write"&nbsp;<a href=?page="& select_pagecount &"&LogType="&Request("LogTye")&">最后一页</a>&nbsp;&nbsp;"
  167. End if
  168. Response.Write"<br>"
  169. RsOrderObj.close
  170. Set RsOrderObj=nothing
  171. End if
  172. %>
  173.                     </SPAN></td>
  174.                 </tr>
  175.               </table></td>
  176.           </tr>
  177.         </form>
  178.       </table>
  179.       </td>
  180.     </tr>
  181.     <tr class="back"> 
  182.       <td height="20"  colspan="2" class="xingmu"> <div align="left"> 
  183.           <!--#include file="Copyright.asp" -->
  184.         </div></td>
  185.     </tr>
  186. </table>
  187. </body>
  188. </html>
  189. <%
  190. Set Fs_User = Nothing
  191. %>
  192. <!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->