📄 notify_handler.aspx.vb
字号:
' ***************************************************
' * 本程序由AspToAspX风火轮0.99转换生成 *
' * http://Www.AspToAspX.Cn *
' * Q Q : 139227536 *
' * QQ群: 17152722 *
' * MSN : gzliangjianhua@hotmail.com *
' * EMail AspToDll@vip.163.com *
' ***************************************************
Imports Microsoft.VisualBasic
Imports System.Web
Imports System.Math
Imports System.Web.SessionState
Public Class _NOTIFY_HANDLER
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public Const retOK = 0
Public Const invalidSpid = 1
Public Const invalidSign = 2
Public Const tenpayErr = 3
Public retValue
Public pay_msg
Public sp_id
Public spkey
Public cmdno
Public pay_result
Public pay_info
Public bill_date
Public bargainor_id
Public transaction_id
Public sp_billno
Public total_fee
Public fee_type
Public attach
Public md5_sign
Public spid
Public sp_key
Public sql
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public ASPX_CONN As _CONN
Public ASPX_BBSUSER As _BBSUSER
Public ASPX_ASP_MD5 As _ASP_MD5
#Region "..."
Public Sub AspToAspX_InitIncludeFiles()
ASPX_CONN = New _CONN()
ASPX_CONN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_CONN.AspToAspX_InitIncludeFiles()
ASPX_BBSUSER = New _BBSUSER()
ASPX_BBSUSER.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_BBSUSER.AspToAspX_InitIncludeFiles()
ASPX_ASP_MD5 = New _ASP_MD5()
ASPX_ASP_MD5.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_ASP_MD5.AspToAspX_InitIncludeFiles()
End Sub
Public Sub AspToAspX_UnloadIncludeFiles()
ASPX_CONN.AspToAspX_UnloadIncludeFiles()
ASPX_CONN = Nothing
ASPX_BBSUSER.AspToAspX_UnloadIncludeFiles()
ASPX_BBSUSER = Nothing
ASPX_ASP_MD5.AspToAspX_UnloadIncludeFiles()
ASPX_ASP_MD5 = Nothing
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
AspToAspXGlobal.Application = Application
AspToAspXGlobal.Server = Server
AspToAspXGlobal.Response = Response
AspToAspXGlobal.Request = Request
AspToAspXGlobal.Session = Session
AspToAspX_Host_Class_Object = Me
AspToAspX_InitIncludeFiles()
AspToAspX_Page_Init()
End Sub
Public Sub AspToAspX_Page_Init()
On Error GoTo _AspToAspX_Err
ASPX_CONN.AspToAspX_Page_Init ( )
ASPX_BBSUSER.AspToAspX_Page_Init ( )
ASPX_ASP_MD5.AspToAspX_Page_Init ( )
Response.Buffer = true '4
Response.Write ( vbCrLf )
Response.Write ( "<meta name=""TENCENT_ONELINE_PAYMENT"" content=""China TENCENT"">" & Chr ( 13 ) ) '5
Response.Write ( "<html>" & Chr ( 13 ) ) '6
FTBBS_HTML_MB ( ft ) '8
sp_id = Application ( "FTBBSMB" ) ( 62 , 0 ) '9
spkey = Application ( "FTBBSMB" ) ( 63 , 0 ) '10
cmdno = Request ( "cmdno" ) '12
pay_result = Request ( "pay_result" ) '13
pay_info = Request ( "pay_info" ) '14
bill_date = Request ( "date" ) '15
bargainor_id = Request ( "bargainor_id" ) '16
transaction_id = Request ( "transaction_id" ) '17
sp_billno = Request ( "sp_billno" ) '18
total_fee = Request ( "total_fee" ) '19
fee_type = Request ( "fee_type" ) '20
attach = Request ( "attach" ) '21
md5_sign = Request ( "sign" ) '22
spid = sp_id '24
sp_key = spkey '25
retValue = retOK '41
If AspToAspX_CheckDBNull ( bargainor_id ) < > spid Then '43
retValue = invalidSpid '44
Else '45
If AspToAspX_CheckDBNull ( verifyMd5Sign ) < > True Then '47
retValue = invalidSign '48
Else '49
If AspToAspX_CheckDBNull ( pay_result ) < > 0 Then '51
retValue = tenpayErr '52
End If '53
End If '54
End If '55
Select Case retValue '59
Case retOK '60
pay_msg = "支付成功!" '61
total_fee = total_fee / 100 '62
sql = "update " & ft & "clubuser set clubuser_money=clubuser_money+" & total_fee & " where clubuser_id=" & attach '63
conn.Execute ( sql ) '64
sql = "update " & ft & "ftbbs_pay_log set payresults=1 where clubuser_id=" & attach '65
conn.Execute ( sql ) '66
AspToAspX_Response_Redirect ( "tenpay.aspx" ) '67
Case invalidSpid '68
pay_msg = "错误的商户号!" '69
Case invalidSign '70
pay_msg = "验证MD5签名失败!" '71
Case Else '72
pay_msg = "支付失败!" '73
End Select '74
Response.Write ( "<br><br><br><br><center>" & pay_msg & "</center>" ) '75
Response.Write ( vbCrLf )
Response.Write ( "</html>" & Chr ( 13 ) ) '77
AspToAspX_UnloadIncludeFiles()
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("notify_handler_aspx Page_Init:" & Err.Description)
Resume Next
End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\NOTIFY_HANDLER.ASP
Function verifyMd5Sign()
On Error GoTo _AspToAspX_Err
Dim origText
Dim localSignText
origText = "cmdno=" & cmdno & "&pay_result=" & pay_result & "&date=" & bill_date & "&transaction_id=" & transaction_id & "&sp_billno=" & sp_billno & "&total_fee=" & total_fee & "&fee_type=" & fee_type & "&attach=" & attach & "&key=" & sp_key '33
localSignText = UCase ( ASP_MD5 ( origText ) ) '35
verifyMd5Sign = ( localSignText = md5_sign ) '36
Exit Function
_AspToAspX_Err:
AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\NOTIFY_HANDLER.ASP verifyMd5Sign:" & Err.Description)
Resume Next
End Function
#Region "..."
Public Property conn
Get
conn = ASPX_CONN.conn
End Get
Set(ByVal value)
ASPX_CONN.conn = value
End Set
End Property
Public Property qs
Get
qs = ASPX_CONN.qs
End Get
Set(ByVal value)
ASPX_CONN.qs = value
End Set
End Property
Public Property errc
Get
errc = ASPX_CONN.errc
End Get
Set(ByVal value)
ASPX_CONN.errc = value
End Set
End Property
Public Property iii
Get
iii = ASPX_CONN.iii
End Get
Set(ByVal value)
ASPX_CONN.iii = value
End Set
End Property
Public Property nothis
Get
nothis = ASPX_CONN.nothis
End Get
Set(ByVal value)
ASPX_CONN.nothis = value
End Set
End Property
Public Sub makeftbbstree(ByRef ft )
ASPX_CONN.makeftbbstree( ft )
End Sub
Public Sub CloseDb
ASPX_CONN.CloseDb
End Sub
Public Sub SaveToFile( ByVal strBody,ByVal File )
ASPX_CONN.ASPX_ADOSTREAM.SaveToFile( strBody, File )
End Sub
Public Function Checkstr(ByRef AspToAspX_Str )
Return ASPX_CONN.Checkstr( AspToAspX_Str )
End Function
Public Function CheckCharStr(ByRef usernamepsw,ByRef flag )
Return ASPX_CONN.CheckCharStr( usernamepsw,flag )
End Function
Public Function ftbbs_msg(ByRef msg,ByRef reurl )
Return ASPX_CONN.ftbbs_msg( msg,reurl )
End Function
Public Function login_msg(ByRef msg,ByRef reurl )
Return ASPX_CONN.login_msg( msg,reurl )
End Function
Public Function FTBBS_HTML_MB(ByRef ft )
Return ASPX_CONN.FTBBS_HTML_MB( ft )
End Function
Public Function FTBBS_BZ_NAME(ByRef BoardID_1,ByRef ft )
Return ASPX_CONN.FTBBS_BZ_NAME( BoardID_1,ft )
End Function
Public Function FTBBS_BZ_NAME2(ByRef BoardID_1,ByRef BoardID_2,ByRef ft )
Return ASPX_CONN.FTBBS_BZ_NAME2( BoardID_1,BoardID_2,ft )
End Function
Public Function makefilename(ByRef fname )
Return ASPX_CONN.makefilename( fname )
End Function
Public Function GetExtendName(ByRef FileName )
Return ASPX_CONN.GetExtendName( FileName )
End Function
Public Function IsObjInstalled(ByRef strClassString )
Return ASPX_CONN.IsObjInstalled( strClassString )
End Function
Public Function ChkMapPath( ByVal strPath )
Return ASPX_CONN.ChkMapPath( strPath )
End Function
Public Function userlogin(ByRef ft )
Return ASPX_CONN.userlogin( ft )
End Function
Public Function headhtml
Return ASPX_CONN.headhtml
End Function
Public Function GetOpInfo(ByRef AspToAspX_Str,ByRef Flag )
Return ASPX_CONN.GetOpInfo( AspToAspX_Str,Flag )
End Function
Public Function getcode
Return ASPX_CONN.getcode
End Function
Public Function codepass
Return ASPX_CONN.codepass
End Function
Public Function Ftbbs_Time
Return ASPX_CONN.Ftbbs_Time
End Function
Public Function ft_home(ByRef defaulthome )
Return ASPX_CONN.ft_home( defaulthome )
End Function
Public Function chkpost
Return ASPX_CONN.chkpost
End Function
Public Function CodeCookie(ByRef AspToAspX_Str )
Return ASPX_CONN.CodeCookie( AspToAspX_Str )
End Function
Public Function DecodeCookie(ByRef AspToAspX_Str )
Return ASPX_CONN.DecodeCookie( AspToAspX_Str )
End Function
Public Function setcookie(ByRef cookexpires,ByRef cookdomain,ByRef cookneme,ByRef cookvalue )
Return ASPX_CONN.setcookie( cookexpires,cookdomain,cookneme,cookvalue )
End Function
Public Function getcookie(ByRef ckname )
Return ASPX_CONN.getcookie( ckname )
End Function
Public Function clearcookie(ByRef cookdomain,ByRef cookneme )
Return ASPX_CONN.clearcookie( cookdomain,cookneme )
End Function
Public Function LoadFile( ByVal File )
Return ASPX_CONN.ASPX_ADOSTREAM.LoadFile( File )
End Function
Public Shared ReadOnly Property ASP_BITS_TO_A_BYTE
Get
ASP_BITS_TO_A_BYTE = _ASP_MD5.ASP_BITS_TO_A_BYTE
End Get
End Property
Public Shared ReadOnly Property ASP_BYTES_TO_A_WORD
Get
ASP_BYTES_TO_A_WORD = _ASP_MD5.ASP_BYTES_TO_A_WORD
End Get
End Property
Public Shared ReadOnly Property ASP_BITS_TO_A_WORD
Get
ASP_BITS_TO_A_WORD = _ASP_MD5.ASP_BITS_TO_A_WORD
End Get
End Property
Public Property ASP_m_lOnBits
Get
ASP_m_lOnBits = ASPX_ASP_MD5.ASP_m_lOnBits
End Get
Set(ByVal value)
ASPX_ASP_MD5.ASP_m_lOnBits = value
End Set
End Property
Public Property ASP_m_l2Power
Get
ASP_m_l2Power = ASPX_ASP_MD5.ASP_m_l2Power
End Get
Set(ByVal value)
ASPX_ASP_MD5.ASP_m_l2Power = value
End Set
End Property
Public Sub ASP_md5_FF(ByRef a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
ASPX_ASP_MD5.ASP_md5_FF( a,b,c,d,x,s,ac )
End Sub
Public Sub ASP_md5_GG(ByRef a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
ASPX_ASP_MD5.ASP_md5_GG( a,b,c,d,x,s,ac )
End Sub
Public Sub ASP_md5_HH(ByRef a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
ASPX_ASP_MD5.ASP_md5_HH( a,b,c,d,x,s,ac )
End Sub
Public Sub ASP_md5_II(ByRef a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
ASPX_ASP_MD5.ASP_md5_II( a,b,c,d,x,s,ac )
End Sub
Public Function ASP_LShift(ByRef lValue,ByRef iShiftBits )
Return ASPX_ASP_MD5.ASP_LShift( lValue,iShiftBits )
End Function
Public Function ASP_Str2binold(ByRef varstr )
Return ASPX_ASP_MD5.ASP_Str2binold( varstr )
End Function
Public Function ASP_Str2bin(ByRef varstr )
Return ASPX_ASP_MD5.ASP_Str2bin( varstr )
End Function
Public Function ASP_RShift(ByRef lValue,ByRef iShiftBits )
Return ASPX_ASP_MD5.ASP_RShift( lValue,iShiftBits )
End Function
Public Function ASP_RotateLeft(ByRef lValue,ByRef iShiftBits )
Return ASPX_ASP_MD5.ASP_RotateLeft( lValue,iShiftBits )
End Function
Public Function ASP_AddUnsigned(ByRef lX,ByRef lY )
Return ASPX_ASP_MD5.ASP_AddUnsigned( lX,lY )
End Function
Public Function ASP_md5_F(ByRef x,ByRef y,ByRef z )
Return ASPX_ASP_MD5.ASP_md5_F( x,y,z )
End Function
Public Function ASP_md5_G(ByRef x,ByRef y,ByRef z )
Return ASPX_ASP_MD5.ASP_md5_G( x,y,z )
End Function
Public Function ASP_md5_H(ByRef x,ByRef y,ByRef z )
Return ASPX_ASP_MD5.ASP_md5_H( x,y,z )
End Function
Public Function ASP_md5_I(ByRef x,ByRef y,ByRef z )
Return ASPX_ASP_MD5.ASP_md5_I( x,y,z )
End Function
Public Function ASP_ConvertToWordArray(ByRef sMessage )
Return ASPX_ASP_MD5.ASP_ConvertToWordArray( sMessage )
End Function
Public Function ASP_WordToHex(ByRef lValue )
Return ASPX_ASP_MD5.ASP_WordToHex( lValue )
End Function
Public Function ASP_MD5(ByRef sMessage )
Return ASPX_ASP_MD5.ASP_MD5( sMessage )
End Function
#End Region
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -