账号通
    

账号  

密码  

4217

查看

6

回复
主题:科讯会员增加提现功能 [收藏主题] 转到:  
yibeiw 当前离线

76

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:339 分
登录次数:102 次
注册时间:2011/4/17
最后登录:2011/9/12
yibeiw 发表于:2011/5/26 14:32:48   | 只看该作者 查看该作者主题 楼主 

科讯会员怎么增加提现功能,我想在网站增加这个功能,会员发表文章后,获得的积分,点券,

兑换为资金后,怎么进行提现,.

兑换资金之后点击提现直接在后台写入记录并扣除会员资金,这个应该怎么修改呢

是不是很麻烦呢?

大家指点下!!

我在其他网站上看到这样的功能,科讯论坛没有类似的贴子,也希望版主和管理能指点下!

衷心希望科讯越做越大

这是我的小站  www.yibeiw.com

 
  支持(29) | 反对(29) 回到顶部顶端 回到底部底部
伊某某 当前离线

571

主题

0

广播

3

粉丝
添加关注
级别:五年级

用户积分:2896 分
登录次数:425 次
注册时间:2008/8/1
最后登录:2023/10/24
伊某某 发表于:2011/5/26 16:14:11   | 只看该作者 查看该作者主题 沙发 
做在线知识付费 选科汛云开店
有人作出来了

点评 1

yibeiw 谁? 哪个 看看? 威望-1 发表于 2011/5/26 16:25:00 
 
  支持(29) | 反对(28) 回到顶部顶端 回到底部底部
huazhong 当前离线

145

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:262 分
登录次数:110 次
注册时间:2011/5/16
最后登录:2014/5/15
huazhong 发表于:2011/5/26 16:23:36   | 只看该作者 查看该作者主题 藤椅 
 
  支持(18) | 反对(14) 回到顶部顶端 回到底部底部
haohao829 当前离线

28

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:28 分
登录次数:3 次
注册时间:2011/5/10
最后登录:2011/5/26
haohao829 发表于:2011/5/26 18:10:05   | 只看该作者 查看该作者主题 板凳 
科汛在线考试系统(NET)
还不错啊啊 路过顶下
 
  支持(8) | 反对(4) 回到顶部顶端 回到底部底部
yibeiw 当前离线

76

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:339 分
登录次数:102 次
注册时间:2011/4/17
最后登录:2011/9/12
yibeiw 发表于:2011/5/27 7:43:23   | 只看该作者 查看该作者主题 报纸 
 
  支持(3) | 反对(2) 回到顶部顶端 回到底部底部
guoxiaoqing 当前离线

1116

主题

0

广播

0

粉丝
添加关注
级别:八年级

用户积分:876 分
登录次数:124 次
注册时间:2011/8/22
最后登录:2012/5/7
guoxiaoqing 发表于:2011/9/9 9:07:34   | 只看该作者 查看该作者主题 地板 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
suncohey 当前离线

477

主题

29

广播

10

粉丝
添加关注
级别:版主

用户积分:1727 分
登录次数:920 次
注册时间:2009/11/23
最后登录:2019/1/11
suncohey 发表于:2013/2/22 12:45:19   | 只看该作者 查看该作者主题 7楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
无风 当前离线

1622

主题

5

广播

29

粉丝
添加关注
级别:高一年

用户积分:5963 分
登录次数:199 次
注册时间:2009/10/12
最后登录:2024/4/4
无风 发表于:2013/2/22 12:58:18   | 只看该作者 查看该作者主题 8楼 
科汛在线商城系统(NET)
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <%option explicit%>
  3. <!--#include file="../Conn.asp"-->
  4. <!--#include file="../KS_Cls/Kesion.MemberCls.asp"-->
  5. <!--#include file="../KS_Cls/Kesion.Label.CommonCls.asp"-->
  6. <%
  7. Dim KS:Set KS=New PublicCls
  8. Dim KSUser:Set KSUser=New UserCls
  9. Dim UserLoginTF:UserLoginTF=KSUser.UserLoginChecked
  10. IF UserLoginTF=false Then
  11. Call KS.ShowTips("error","<li>你还没有登录或登录已过期,请<a href='../user/login/'>点击这里</a>重新登录!</li>")
  12. End If
  13. dim action:action = request.QueryString("action")
  14. if action<>"" then
  15. call AddZJ
  16. end if
  17. Select Case request.QueryString("action2")
  18. Case "SaveAddZJ" call SaveAddZJ
  19. End Select
  20. '支付提交
  21. Sub AddZJ()
  22. %>
  23. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  24. <html xmlns="http://www.w3.org/1999/xhtml">
  25. <head>
  26. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  27. <title><%=title%></title>
  28. <style type="text/css">
  29. body, td, th { font-size: 12px; color: #666; }
  30. body { margin-left: 0px; margin-top: 10px; margin-right: 0px; margin-bottom: 10px; }
  31. #main { width: 390px; margin:auto }
  32. .divLeft { width: 40%; height: 35px; float: left; line-height: 35px; text-align: right; }
  33. .divRight { width:60%; height:35px; line-height: 35px; float:left; }
  34. .divInput { margin-top:4px; height:26px; line-height:26px; }
  35. .input { height: 23px; line-height:23px; border-width: 1px; border-style: solid; margin: 0px; padding: 0px; }
  36. .inputSubmit { FONT-SIZE: 12px; BACKGROUND: #CCC; COLOR: #000; padding-left:10px; padding-right:10px; padding-bottom:2px; padding-top:2px; }
  37. </style>
  38. <SCRIPT language=javascript>
  39. function CheckForm()
  40. {
  41. if(document.form.Money.value=="")
  42. {
  43. alert("提现金额不能为空!");
  44. document.form.Money.focus();
  45. return false;
  46. }
  47. if(document.form.Money.value><%=KSUser.GetUserInfo("Money") %>)
  48. {
  49. alert("您最多只能提现<%= KSUser.GetUserInfo("Money") %>元!");
  50. document.form.Money.focus();
  51. return false;
  52. }
  53. }
  54. </script>
  55. </head>
  56. <body>
  57. <div id="main">
  58. <%
  59. dim title,readonly,Money,xieid,Remark,InOrOut,MoneyType
  60. if action = "ATM" then
  61. title = "提现"
  62. MoneyType=9
  63. Remark="提现"
  64. elseif action = "Pay" then
  65. title = "付款"
  66. Money=cint(request.QueryString("Money"))
  67. xieid=request.QueryString("xieid")
  68. MoneyType=7
  69. Remark="支付"&request.QueryString("xieid")&"号稿件费用"
  70. end if
  71. If cint(KSUser.GetUserInfo("Money"))<Money Then
  72. KS.Die "<script>alert('对不起!您的资金余额不足,还差"&Money-KSUser.GetUserInfo("Money")&"元,请充值后再提交!');top.location.href='user_payonline.asp';</script>"
  73. end if
  74. %>
  75. <form id="form" name="form" method="post" action="?Action2=SaveAddZJ&ComeUrl=<%=Server.URLEncode(Request.ServerVariables("HTTP_REFERER"))%>" onSubmit="return CheckForm();">
  76. <div class="divLeft"><strong>用户名:</strong></div>
  77. <div class="divRight"><%= KSUser.GetUserInfo("UserName") %></div>
  78. <div class="divLeft"><strong>可用资金:</strong></div>
  79. <div class="divRight"><%=formatnumber(KSUser.GetUserInfo("Money"),2,-1)%>元</div>
  80. <div class="divLeft"><strong>用户组:</strong></div>
  81. <div class="divRight"><%=KS.GetUserGroupName(KSUser.GetUserInfo("GroupID"))%></div>
  82. <div class="divLeft"><strong><%= title %>金额:</strong></div>
  83. <div class="divRight">
  84. <% If action = "ATM" Then %>
  85. <div class="divInput"><input name="Money" type="text" class="input" id="Money" value="<%= Money %>" size="10" maxlength="9"/>
  86. </div>
  87. </div>
  88. <div class="divLeft"><strong>收款银行帐号:</strong></div>
  89. <div class="divRight">
  90. <div class="divInput">
  91. <% If KSUser.GetUserInfo("KS_inbankusn")="" Then %>
  92. <input name="KS_inbankusn" type="text" class="input" id="KS_inbankusn" style="width:185px; font-size:14px; font-weight:bold;" value=""/>
  93. <% Else %>
  94. <%=KSUser.GetUserInfo("KS_inbankusn")%>
  95. <% End If %>
  96. </div>
  97. </div>
  98. <div class="divLeft"><strong>收款银行开户行:</strong></div>
  99. <div class="divRight">
  100. <div class="divInput">
  101. <% If KSUser.GetUserInfo("KS_inbankusn")="" Then %>
  102. <input name="KS_inbankname" type="text" class="input" id="KS_inbankname" value="" style="width:240px;" />
  103. <% Else %>
  104. <%=KSUser.GetUserInfo("KS_inbankname")%>
  105. <% End If %>
  106. </div>
  107. </div>
  108. <div class="divLeft"><strong>收款银行用户名:</strong></div>
  109. <div class="divRight">
  110. <div class="divInput">
  111. <% If KSUser.GetUserInfo("KS_inbankusn")="" Then %>
  112. <input name="KS_inbankusname" type="text" class="input" id="KS_inbankusname" value="" style="width:50px;" />
  113. <% Else %>
  114. <%=KSUser.GetUserInfo("KS_inbankusname")%>
  115. <% End If %>
  116. </div>
  117. </div>
  118. <% Else %>
  119. <%= Money %>
  120. <input name="Money" type="hidden" id="Money" value="<%= Money %>">
  121. </div>
  122. <div class="divLeft"><strong>稿件号:</strong></div>
  123. <div class="divRight"><%= xieid %></div>
  124. <% End If %>
  125. <div class="divLeft"></div>
  126. <div class="divRight">
  127. <div class="divInput">
  128. <input class="inputSubmit" type="submit" name="button" id="button" value="提交"/>
  129. <input name="InOrOut" type="hidden" id="InOrOut" value="2">
  130. <input name="PayTime" type="hidden" id="PayTime" value="<%=formatdatetime(now,2)%>">
  131. <input name="UserID" type="hidden" id="UserID" value="<%= KSUser.GetUserInfo("UserID") %>">
  132. <input name="MoneyType" type="hidden" id="MoneyType" value="<%= MoneyType %>">
  133. <input name="Remark" type="hidden" id="Remark" value="<%= Remark %>">
  134. <% If action = "ATM" Then %>
  135. <input name="ok" type="hidden" id="ok" value="tx">
  136. <% Else %>
  137. <input name="ok" type="hidden" id="ok" value="zf">
  138. <% End If %>
  139. </div>
  140. </div>
  141. </form>
  142. <div style=" clear:both"></div>
  143. </div>
  144. </body>
  145. </html>
  146. <%
  147. End Sub
  148. '保存续费
  149. sub SaveAddZJ()
  150. dim UserID,MoneyType,Money,PayTime,Remark,sqlUser,rsUser,InOrOut
  151. dim TxType
  152. UserID=KS.ChkClng(request("UserID"))
  153. InOrOut=KS.ChkClng(Request("InOrOut"))
  154. MoneyType=Trim(request("MoneyType"))
  155. Money=KS.G("Money")
  156. PayTime=KS.G("PayTime")
  157. Remark=KS.G("Remark")
  158. Set rsUser=Server.CreateObject("Adodb.RecordSet")
  159. sqlUser="select top 1 * from KS_User where UserID=" & UserID
  160. rsUser.Open sqlUser,Conn,1,3
  161. if rsUser("KS_inbankusn")="" then
  162. rsUser("KS_inbankusn")=KS.G("KS_inbankusn")
  163. rsUser("KS_inbankname")=KS.G("KS_inbankname")
  164. rsUser("KS_inbankusname")=KS.G("KS_inbankusname")
  165. end if
  166. rsUser.update
  167. If KS.G("ok") = "tx" Then
  168. Call KS.TxMoneyInOrOut(rsUser("UserName"),rsUser("RealName"),Money,MoneyType,InOrOut,PayTime,"0",KS.C("AdminName"),Remark,0,0,0,0,rsUser("UserID"))
  169. Response.Write "<script>alert('操作成功!请等待管理员完成提现!');top.location.href='"&Request("ComeUrl")&"';</script>"
  170. Else
  171. '参数:UserName-用户名,ClientName-客户姓名,Money-金钱,MoneyType-类型,InOrOutFlag-操作类型1收入2支出,PayTime-汇款日期,OrderID-订单号,Inputer-操作员,Remark-操作备注,MustIn -强行写入 1是 0否
  172. 'MoneyInOrOut(UserName,ClientName,Money,MoneyType,InorOutFlag,PayTime,OrderID,Inputer,Remark,ChannelID,InfoID,MustIn)
  173. Call KS.MoneyInOrOut(rsUser("UserName"),rsUser("RealName"),Money,MoneyType,InOrOut,PayTime,"0",KS.C("AdminName"),Remark,0,0,0)
  174. Response.Write "<script>alert('操作成功!');top.location.href='"&Request("ComeUrl")&"';</script>"
  175. End If
  176. end sub
  177. Set KSUser=Nothing
  178. Set ks=nothing
  179. CloseConn
  180. %>
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.20313秒 powered by KesionCMS 9.0