cashout.asp

中文bux点击站源码。配合其他站点用

<!--#include file="conn.asp"-->
<!--#include file="chklogin.asp"-->

<%
  rs.Open "Select * From config",Conn
  MailSever = rs ("MailSever")
  MailUser = rs ("MailUser")
  MailPW = rs ("MailPW")
  EmailAddress = rs ("EmailAddress")
  rs.Close
%>
<%
  AllDollars = Request ("AllDollars")
  Fee = 0
  rs.Open "Select * From member Where UserName = '" & UserName & "'",Conn
  Email = rs ("Email")
  PaymentMethod = rs ("PaymentMethod")
  PaymentAccount = rs ("PaymentAccount")
  MemberShip = rs ("MemberShip")
  rs.Close  
  Amount = AllDollars - Fee
  rs.Open "Update member Set DollarsDebits = DollarsDebits + '" & AllDollars & "' Where UserName = '" & UserName & "'",Conn
  rs.Open "Insert Into debits(Email, UserName, DebitsType, DebitsAmount, DebitsFee, DebitsDate, DebitsMemo) values('" & Email & "', '" & UserName & "', 'Dollars' , '" & AllDollars & "', '" & MemberShip & "', Date(),  '现金支付：" & PaymentMethod & " " & PaymentAccount & "')",Conn
  Conn.Close
  Set Conn = nothing
%>
<%
  Set msg = Server.CreateObject("JMail.Message")
  msg.silent = true
  msg.Logging = true
  msg.Charset = "gb2312"
  msg.ContentType = "text/html"
  msg.MailServerUserName = "" & MailUser & ""
  msg.MailServerPassword = "" & MailPW & ""
  msg.From = Email
  msg.AddRecipient ("" & EmailAddress & "")
  msg.Subject = "" & UserName & " 的现金支付申请"
  msg.Body = "电子邮件地址：" & Email & "<p>用户名：" & UserName & "</p><p>会员等级：" & MemberShip & "</p><p>支付方式：" & PaymentMethod & "</p><p>帐户信息：" & PaymentAccount & "</p><p>支付数额：" & AllDollars & "</p><p>手续费：" & Fee & "</p><p>支付额：" & Amount & "</p>"
  msg.Send ("" & MailSever & "")
  Set msg = nothing
  Session ("Message") = "您的信息已经送出。我们会尽快联系您。谢谢。</p>"
  Response.Redirect "success.asp"
  Response.End
%>