redeem_do.asp

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

<%@ LANGUAGE = VBScript %>
<!--#include file="conn.asp"-->

<!--#include file="checklogin.asp"-->

<%
  ID = Request ("ID")
  DebitsMemo = Request ("DebitsMemo")
  DebitsStatus = Request ("DebitsStatus")  
  If DebitsStatus <> "" Then
     rs.Open "Update debits Set DebitsMemo = '" & DebitsMemo & "', FinishDate = Date(), DebitsStatus = True Where ID = " & ID & "",Conn
  End If
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "赎回办理成功。"
  Response.Redirect "success.asp"
  Response.End
%>