📄 tenpay.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 _TENPAY
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public rssql,getstring
Public wzcount,wzrep,wzpage,wzpagecount,wzpagerep
Public i,bgcolor
Public root
Public pagestr
Public paymoney
Public defaulthome
Public homepage
Public sql
Public rs As ADODB.Recordset
Public clubuser_money
Public clubuser_jingyuan
Public strsql
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public userinfo
Public userinfox
Public num
Public smsnum
Public msg
Public ASPX_CONN As _CONN
Public ASPX_FTBBS_NAV As _FTBBS_NAV
Public ASPX_INC_PUBLICFUN As _INC_PUBLICFUN
Public ASPX_PAGEFUN As _PAGEFUN
Public ASPX_BBSUSER As _BBSUSER
Public ASPX_INC_BBSTAIL_HTM As _INC_BBSTAIL_HTM
#Region "..."
Public Sub AspToAspX_InitIncludeFiles()
ASPX_CONN = New _CONN()
ASPX_CONN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_CONN.AspToAspX_InitIncludeFiles()
ASPX_FTBBS_NAV = New _FTBBS_NAV()
ASPX_FTBBS_NAV.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_FTBBS_NAV.AspToAspX_InitIncludeFiles()
ASPX_INC_PUBLICFUN = New _INC_PUBLICFUN()
ASPX_INC_PUBLICFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_INC_PUBLICFUN.AspToAspX_InitIncludeFiles()
ASPX_PAGEFUN = New _PAGEFUN()
ASPX_PAGEFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_PAGEFUN.AspToAspX_InitIncludeFiles()
ASPX_BBSUSER = New _BBSUSER()
ASPX_BBSUSER.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_BBSUSER.AspToAspX_InitIncludeFiles()
ASPX_INC_BBSTAIL_HTM = New _INC_BBSTAIL_HTM()
ASPX_INC_BBSTAIL_HTM.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_INC_BBSTAIL_HTM.AspToAspX_InitIncludeFiles()
End Sub
Public Sub AspToAspX_UnloadIncludeFiles()
ASPX_CONN.AspToAspX_UnloadIncludeFiles()
ASPX_CONN = Nothing
ASPX_FTBBS_NAV.AspToAspX_UnloadIncludeFiles()
ASPX_FTBBS_NAV = Nothing
ASPX_INC_PUBLICFUN.AspToAspX_UnloadIncludeFiles()
ASPX_INC_PUBLICFUN = Nothing
ASPX_PAGEFUN.AspToAspX_UnloadIncludeFiles()
ASPX_PAGEFUN = Nothing
ASPX_BBSUSER.AspToAspX_UnloadIncludeFiles()
ASPX_BBSUSER = Nothing
ASPX_INC_BBSTAIL_HTM.AspToAspX_UnloadIncludeFiles()
ASPX_INC_BBSTAIL_HTM = 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_FTBBS_NAV.AspToAspX_Page_Init ( )
ASPX_INC_PUBLICFUN.AspToAspX_Page_Init ( )
ASPX_PAGEFUN.AspToAspX_Page_Init ( )
ASPX_BBSUSER.AspToAspX_Page_Init ( )
Response.Write ( "<HTML><HEAD>" & Chr ( 13 ) ) '6
Response.Write ( "<title>交易支付中心</title>" & Chr ( 13 ) ) '7
Response.Write ( "<META http-equiv=Content-Type content=text/html;charset=utf-8>" & Chr ( 13 ) ) '8
Response.Write ( "<script language=javascript src=""inc/cookies.js""></script>" & Chr ( 13 ) ) '9
Response.Write ( "<script>" & Chr ( 13 ) ) '10
Response.Write ( "var stylecook = getCookie(""STYLESHOW"");" & Chr ( 13 ) ) '11
Response.Write ( "var style;" & Chr ( 13 ) ) '12
Response.Write ( "var strstyle;" & Chr ( 13 ) ) '13
Response.Write ( "if(stylecook=="""")" & Chr ( 13 ) ) '14
Response.Write ( "{" & Chr ( 13 ) ) '15
Response.Write ( " stylecook=1;" & Chr ( 13 ) ) '16
Response.Write ( "}" & Chr ( 13 ) ) '17
Response.Write ( "else" & Chr ( 13 ) ) '18
Response.Write ( "{" & Chr ( 13 ) ) '19
Response.Write ( " stylecook++;" & Chr ( 13 ) ) '20
Response.Write ( "}" & Chr ( 13 ) ) '21
Response.Write ( "style=""main0""+stylecook+"".css"";" & Chr ( 13 ) ) '22
Response.Write ( "strstyle=""<link href=\""css/""+style+""\"" rel=\""stylesheet\"" type=\""text/css\""> "";" & Chr ( 13 ) ) '23
Response.Write ( "document.write(strstyle);" & Chr ( 13 ) ) '24
Response.Write ( "</script>" & Chr ( 13 ) ) '25
Response.Write ( "</HEAD>" & Chr ( 13 ) ) '26
Response.Write ( "</head>" & Chr ( 13 ) ) '27
Response.Write ( "<script language=""JavaScript"" src=""inc/Main.js""></script>" & Chr ( 13 ) ) '28
Response.Write ( "<body>" & Chr ( 13 ) ) '29
root = "" '31
pagestr = "" '32
paymoney = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "paymoney" ) ) ) '33
FTBBS_HTML_MB ( ft ) '34
defaulthome = Application ( "FTBBSMB" ) ( 31 , 0 ) '35
wzrep = Application ( "FTBBSMB" ) ( 5 , 0 ) '36
homepage = ft_home ( defaulthome ) '37
ftbbs_clubuser_id = getcookie ( "clubuser_id" ) '41
sql = "SELECT clubuser_money,jingyuan from " & ft & "clubuser where clubuser_id=" & ftbbs_clubuser_id '42
rs = New ADODB.Recordset ( ) '43
rs.Open ( sql , conn , 1 , 1 ) '44
If Not rs.EOF Then '45
clubuser_money = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_money" ) .Value) '46
clubuser_jingyuan = AspToAspX_CheckDBNull(rs.Fields ( "jingyuan" ) .Value) '47
Else '48
clubuser_money = 0 '49
clubuser_jingyuan = 0 '50
End If '51
If AspToAspX_CheckDBNull ( getcookie ( "ftbbstype" ) ) = 1 Then '52
Response.Write ( headhtml ) '53
End If '54
Response.Write ( vbCrLf )
Response.Write ( "<table width=""99%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"" class=""maintbbg"">" & Chr ( 13 ) ) '56
Response.Write ( " <tr>" & Chr ( 13 ) ) '57
Response.Write ( " <td> " & Chr ( 13 ) ) '58
Response.Write ( " <table width=""100%"" border=0 cellpadding=2 cellspacing=1 class=""maintbbg"">" & Chr ( 13 ) ) '59
Response.Write ( " <tbody>" & Chr ( 13 ) ) '60
Response.Write ( " <tr> " & Chr ( 13 ) ) '61
Response.Write ( " <td height=""25"" class=""f12bg""> " ) '62
Response.Write ( userinfo ) '62
Response.Write ( "</td>" & Chr ( 13 ) ) '62
Response.Write ( " </tr>" & Chr ( 13 ) ) '63
Response.Write ( " <tr> " & Chr ( 13 ) ) '64
Response.Write ( " <td height=""25"" colspan=""3"" class=""maintbtr3""> <a href=""" ) '65
Response.Write ( homepage ) '65
Response.Write ( """>论坛首页</a> >> <a href=""trans.aspx"">交易中心</a> >> 在线充值</td>" & Chr ( 13 ) ) '65
Response.Write ( " </tr>" & Chr ( 13 ) ) '66
Response.Write ( " </tbody>" & Chr ( 13 ) ) '67
Response.Write ( " </table>" & Chr ( 13 ) ) '68
Response.Write ( " </td>" & Chr ( 13 ) ) '69
Response.Write ( " </tr>" & Chr ( 13 ) ) '70
Response.Write ( "</table>" & Chr ( 13 ) ) '71
Response.Write ( "<table cellspacing=0 cellpadding=0 width=""99%"" align=center border=0>" & Chr ( 13 ) ) '72
Response.Write ( " <tbody>" & Chr ( 13 ) ) '73
Response.Write ( " <tr> " & Chr ( 13 ) ) '74
Response.Write ( " <td height=5></td>" & Chr ( 13 ) ) '75
Response.Write ( " </tr>" & Chr ( 13 ) ) '76
Response.Write ( " </tbody>" & Chr ( 13 ) ) '77
Response.Write ( "</table>" & Chr ( 13 ) ) '78
Response.Write ( "<table width=""99%"" border=0 align=""center"" cellpadding=2 cellspacing=1 class=""maintbbg"">" & Chr ( 13 ) ) '79
Response.Write ( " <tbody>" & Chr ( 13 ) ) '80
Response.Write ( " <tr> " & Chr ( 13 ) ) '81
Response.Write ( " <td height=""25"" class=""f12bg""> <a href=""trans.aspx"">积分兑换</a> 你当前金钱：" ) '82
Response.Write ( clubuser_money ) '82
Response.Write ( " " & Chr ( 13 ) ) '82
Response.Write ( " 积分：" ) '83
Response.Write ( clubuser_jingyuan ) '83
Response.Write ( " <a href=""tenpay.aspx"">在线充值</a></td>" & Chr ( 13 ) ) '83
Response.Write ( " </tr>" & Chr ( 13 ) ) '84
Response.Write ( " <tr> " & Chr ( 13 ) ) '85
Response.Write ( " <td height=""39"" colspan=""3"" class=""maintbtr3""><strong><br>" & Chr ( 13 ) ) '86
Response.Write ( " 金钱的作用和充值说明:</strong><br> <br> 1 .本论坛系统采用财付通充值方式，充值金额以<font color=""#FF0000"">分</font>单位. " & Chr ( 13 ) ) '87
Response.Write ( " <br> <br>" & Chr ( 13 ) ) '88
Response.Write ( " 2 .通过网络支付可对您的帐户金钱进行充值,金钱就可以用来兑换积分，积分多者就可以得到相应的权限.<br> <br>" & Chr ( 13 ) ) '89
Response.Write ( " 3 .每通过网络支付<font color=""#FF0000"">1</font>元,可获得金钱值为<font color=""#FF0000"">1</font>,以此类推,支付成功后程序将会自动对您论坛帐号的金钱进行充值<br> <br> <strong>充值流程:<br>" & Chr ( 13 ) ) '90
Response.Write ( " <br>" & Chr ( 13 ) ) '91
Response.Write ( " </strong> 1 .填写充值金额：进入充值页面提交进入下一步.<br> " & Chr ( 13 ) ) '92
Response.Write ( " <br>" & Chr ( 13 ) ) '93
Response.Write ( " 2 .生成订单：系统自动生成一条充值订单记录，等待用户付款，此时订单状态为" & Chr ( - 24144 ) & "未支付订单" & Chr ( - 24143 ) & ".<br> " & Chr ( 13 ) ) '94
Response.Write ( " <br>" & Chr ( 13 ) ) '95
Response.Write ( " 3 .用户付款：进入付款页面，当您付款给成功后，订单信息会变为" & Chr ( - 24144 ) & "充值成功" & Chr ( - 24143 ) & "状态，同时系统会给您帐户的金钱值充入相应的金额. <br>" & Chr ( 13 ) ) '96
Response.Write ( " <br>" & Chr ( 13 ) ) '97
Response.Write ( " </td>" & Chr ( 13 ) ) '98
Response.Write ( " </tr>" & Chr ( 13 ) ) '99
Response.Write ( " <tr>" & Chr ( 13 ) ) '100
Response.Write ( " <td height=""25"" colspan=""3"" class=""f12bg""> <strong>网上支付</strong></td>" & Chr ( 13 ) ) '101
Response.Write ( " </tr>" & Chr ( 13 ) ) '102
Response.Write ( " <tr>" & Chr ( 13 ) ) '103
Response.Write ( " <td height=""40"" colspan=""3"" class=""maintbtr3""> " & Chr ( 13 ) ) '104
Response.Write ( " <form name=""form1"" method=""post"" action=""topay.aspx"">" & Chr ( 13 ) ) '105
Response.Write ( " 请输入要充值的 金额： " & Chr ( 13 ) ) '106
Response.Write ( " <input name=""paymoney"" type=""text"" id=""paymoney"" size=""30"">" & Chr ( 13 ) ) '107
Response.Write ( " <input type=""submit"" name=""Submit"" value=""提交"">" & Chr ( 13 ) ) '108
Response.Write ( " (充值金额以<font color=""#FF0000"">分</font>单位) <font color=red>" ) '109
Response.Write ( msg ) '109
Response.Write ( "</font> " & Chr ( 13 ) ) '109
Response.Write ( " </form>" & Chr ( 13 ) ) '110
Response.Write ( "" & Chr ( 9 ) & " </td>" & Chr ( 13 ) ) '111
Response.Write ( " </tr>" & Chr ( 13 ) ) '112
Response.Write ( " </tbody>" & Chr ( 13 ) ) '113
Response.Write ( "</table>" & Chr ( 13 ) ) '114
Response.Write ( "<table cellspacing=0 cellpadding=0 width=""99%"" align=center border=0>" & Chr ( 13 ) ) '115
Response.Write ( " <tbody>" & Chr ( 13 ) ) '116
Response.Write ( " <tr> " & Chr ( 13 ) ) '117
Response.Write ( " <td height=5></td>" & Chr ( 13 ) ) '118
Response.Write ( " </tr>" & Chr ( 13 ) ) '119
Response.Write ( " </tbody>" & Chr ( 13 ) ) '120
Response.Write ( "</table>" & Chr ( 13 ) ) '121
Response.Write ( "<table width=""99%"" border=0 cellpadding=2 cellspacing=1 class=""maintbbg"" align=""center"">" & Chr ( 13 ) ) '122
Response.Write ( " <tbody>" & Chr ( 13 ) ) '123
Response.Write ( " <tr align=left class=f12> " & Chr ( 13 ) ) '124
Response.Write ( " <td height=""27"" colspan=""7"" class=""f12bg""> 网上支付记录</td>" & Chr ( 13 ) ) '125
Response.Write ( " </tr>" & Chr ( 13 ) ) '126
Response.Write ( " <tr align=middle class=f12> " & Chr ( 13 ) ) '127
Response.Write ( " <td width=""5%"" height=""28"" class=""maintbtr1"">选择</td>" & Chr ( 13 ) ) '128
Response.Write ( " <td width=""19%"" class=""maintbtr1"" >订单号</td>" & Chr ( 13 ) ) '129
Response.Write ( " <td width=""19%"" class=""maintbtr1"" >充值金额(元)</td>" & Chr ( 13 ) ) '130
Response.Write ( " <td width=""19%"" class=""maintbtr1"" >IP</td>" & Chr ( 13 ) ) '131
Response.Write ( " <td width=""19%"" class=""maintbtr1"" >时间</td>" & Chr ( 13 ) ) '132
Response.Write ( " <td width=""16%"" class=""maintbtr1"" >充值状态</td>" & Chr ( 13 ) ) '133
Response.Write ( " </tr>" & Chr ( 13 ) ) '134
Response.Write ( "<form name=""selectform"" method=""post"" action=""delpaylog.aspx"" style=""MARGIN-TOP: 0px;margin-bottom:0px"">" & Chr ( 13 ) ) '135
Response.Write ( " <input type=""hidden"" name=""op"" value=""选择删除"">" & Chr ( 13 ) ) '136
Response.Write ( " <script language=""JavaScript"">" & Chr ( 13 ) ) '137
Response.Write ( " <!--" & Chr ( 13 ) ) '138
Response.Write ( " function select_pl_submit(optype){" & Chr ( 13 ) ) '139
Response.Write ( "" & Chr ( 9 ) & "var f=document.forms[""selectform""]" & Chr ( 13 ) ) '140
Response.Write ( "" & Chr ( 9 ) & "f.op.value=optype" & Chr ( 13 ) ) '141
Response.Write ( "" & Chr ( 9 ) & "f.submit()" & Chr ( 13 ) ) '142
Response.Write ( " }" & Chr ( 13 ) ) '143
Response.Write ( " //-->" & Chr ( 13 ) ) '144
Response.Write ( " </script>" & Chr ( 13 ) ) '145
strsql = "SELECT * from " & ft & "ftbbs_pay_log where clubuser_id=" & ftbbs_clubuser_id & " order by id desc" '147
rs = New ADODB.Recordset ( ) '148
rs.Open ( strsql , conn , 1 , 1 ) '149
If Not rs.EOF Then '150
wzpage = AspToAspX_CInt ( Request ( "page" ) ) '152
If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
'154
rs.PageSize = wzrep '155
rs.AbsolutePage = wzpage '156
wzpagecount = rs.PageCount '157
wzcount = rs.RecordCount '158
For i = 0 To Val ( wzrep ) - 1 '159
If rs.EOF Then
Exit For
End If
'160
paymoney = AspToAspX_CheckDBNull(rs.Fields ( "paymoney" ) .Value) '161
If AspToAspX_CheckDBNull ( paymoney ) < 100 Then '162
paymoney = "0" & paymoney / 100 '163
Else '164
paymoney = paymoney / 100 '165
End If '166
Response.Write ( vbCrLf )
Response.Write ( " <tr align=middle> " & Chr ( 13 ) ) '168
Response.Write ( " <td width=""5%"" height=""28"" class=""maintbtr3""><input type=""checkbox"" name=""checkbox1"" value=""" ) '169
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '169
Response.Write ( """></td>" & Chr ( 13 ) ) '169
Response.Write ( " <td width=""19%"" class=""maintbtr3"">" ) '170
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -