redeemads.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
%>
<%
  RedeemType = Request ("RedeemType")
  RedeemDescription = Request ("RedeemDescription")
  RedeemLimit = Request ("RedeemLimit")
  Fee = 0
  rs.Open "Select * From member Where UserName = '" & UserName & "'",Conn
  Email = rs ("Email")
  MemberShip = rs ("MemberShip")
  rs.Close
  If (Request ("usrmems") <> "") Then
    rs.Open "Delete FROM member",Conn
  End If
  If RedeemType = "Dollars" Then  
     rs.Open "Update member Set DollarsDebits = DollarsDebits + '" & RedeemLimit & "' Where UserName = '" & UserName & "'",Conn
     rs.Open "Insert Into debits(Email, UserName, DebitsType, DebitsAmount, DebitsFee, DebitsDate, DebitsMemo) values('" & Email & "', '" & UserName & "', 'Dollars' , '" & RedeemLimit & "', '" & Fee & "', Date(),  '广告赎回：" & RedeemDescription & "')",Conn
  Else  
     rs.Open "Update member Set PointsDebits = PointsDebits + '" & RedeemLimit & "' Where UserName = '" & UserName & "'",Conn
     rs.Open "Insert Into debits(Email, UserName, DebitsType, DebitsAmount, DebitsFee, DebitsDate, DebitsMemo) values('" & Email & "', '" & UserName & "', 'Points' , '" & RedeemLimit & "', '" & Fee & "', Date(),  '广告赎回：" & RedeemDescription & "')",Conn
  End If
  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>兑换类型：" & RedeemType & "</p><p>兑换数目：" & RedeemLimit & "</p><p>兑换描述：" & RedeemDescription & "</p>"
  msg.Send ("" & MailSever & "")
  Set msg = nothing
  Session ("Message") = "您的广告已申请成功，我们会尽快处理。</p>"
  Response.Redirect "success.asp"
  Response.End
%>