reipay.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M0935" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->

<%
	dim id_bill '订单编号
	id_bill=trim(request("id_bill"))
	dim v_pamount '订单金额
	v_pamount=trim(request("v_pamount"))
	dim v_pstatus '订单状态 20:支付成功
	v_pstatus=trim(request("v_pstatus"))
	dim v_pmode '支付方式 例.招商银行
	v_pmode=trim(request("v_pmode"))
	dim v_pdate '支付日期 例.20030723
	v_pdate=trim(request("v_pdate"))
	dim v_payname '付款人
	v_payname=trim(request("v_payname"))

    if v_pstatus="20" then
		strResult="2"
    else
		strResult="3"
    end if
    if (v_payname="") then
    	v_payname="0"
    end if
	if (v_pamount="") then
    	v_pamount="0"
    end if

    strChar=""
    for I = 1 to 5-Len(id_bill)
        strChar=strChar & "0"
    Next
    strUPID=strChar & id_bill
    
  '  IPayUID=Sys_Opt_IPayUID
    
  Call RecordLog(id_bill,v_pamount,v_pstatus,v_pmode,v_pdate,v_payname)
 ' response.write "SP_Pay '" & strResult & "','" & strUPID  & "'," & session("UserID") & "," & v_payname & "," & v_pamount & ",'" & v_pmode & "'"
  'response.end
  set rs=Cn.Execute("SP_Pay '" & strResult & "','" & strUPID  & "'," & session("UserID") & "," & v_payname & "," & v_pamount & ",'" & v_pmode & "'")
  
%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr> 
  <td height="26" class="titletext"><font color="<%=Opt_Font_TitleColor%>">
  <strong>
  在线充值 -- 充值结果
  </strong>
  </td>
</tr>
<tr> 
  <td height="26" class="titletext">
	订单编号：
	<%=strUPID%>
	<BR>
	订单金额：
	<%=v_pamount%> 元(RMB)
	<BR>
	订单状态：
	<%
	response.write rs("msg")
	'if v_pstatus="20" then
	'	response.write "支付成功"
	'else
	'	response.write "支付失败"
	'end if
	%>	
	<BR>
	支付日期：
	<%=v_pdate%>
	<BR>
	付 款 人：
	<%=v_payname%>
  </td>
</tr>
<tr> 
  <td height="26" class="titletext" align="right">
  <a href="UserAccount.asp"  class="a2">查看帐务信息</a>&nbsp;&nbsp;<a href="ipay.asp"  class="a2">再充值</a>&nbsp;&nbsp;
  </td>
</tr>
</table>
<%
Call PrintPageBottom


Sub RecordLog(id_bill,v_pamount,v_pstatus,v_pmode,v_pdate,v_payname)
	Dim LogFileName,FileObject,Out
	LogFileName="c:\log\banklog.txt"
	Set FileObject=Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
	Set Out=FileObject.OpenTextFile(LogFileName,8,True)
	Out.WriteLine("操作时间  : " & Now())
	Out.WriteLine("订单编号  : " & id_bill)
	Out.WriteLine("订单金额  : " & v_pamount)
	Out.WriteLine("订单状态  : " & v_pstatus)
	Out.WriteLine("支付方式  : " & v_pmode)
	Out.WriteLine("支付日期  : " & v_pdate)
	Out.WriteLine("付款人    : " & v_payname)
	Out.WriteLine("----------------------------------------")
	Out.WriteLine()
	Out.Close
	Set FileObject=Nothing
End Sub
%>