📄 adminpay.aspx.vb

📁 本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量基于ASP.NET的DLL可以运行在支持ASP
💻 VB
📖 第 1 页 / 共 2 页
字号:
12 下一页
' ***************************************************
' *        本程序由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 _ADMIN_ADMINPAY
    Inherits System.Web.UI.Page
    Implements IHttpHandler, AspToAspX_Interface

    Public AspToAspX_Host_Class_Object As Object

Public i
Public searchcontent
Public searchkind
Public tyname1
Public tyname2
Public root
Public pagestr
Public AspToAspX_Str
Public rs As ADODB.Recordset
Public wzrep
Public wzpage
Public wzpagecount
Public wzcount
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
    Public ASPX_CONN As _CONN
    Public ASPX_ADMIN_CHECK_MASTER As _ADMIN_CHECK_MASTER
    Public ASPX_PAGEFUN As _PAGEFUN
#Region "..."
    Public Sub AspToAspX_InitIncludeFiles()
        ASPX_CONN = New _CONN()
        ASPX_CONN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_CONN.AspToAspX_InitIncludeFiles()
        ASPX_ADMIN_CHECK_MASTER = New _ADMIN_CHECK_MASTER()
        ASPX_ADMIN_CHECK_MASTER.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_ADMIN_CHECK_MASTER.AspToAspX_InitIncludeFiles()
        ASPX_PAGEFUN = New _PAGEFUN()
        ASPX_PAGEFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_PAGEFUN.AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
        ASPX_CONN.AspToAspX_UnloadIncludeFiles()
        ASPX_CONN = Nothing
        ASPX_ADMIN_CHECK_MASTER.AspToAspX_UnloadIncludeFiles()
        ASPX_ADMIN_CHECK_MASTER = Nothing
        ASPX_PAGEFUN.AspToAspX_UnloadIncludeFiles()
        ASPX_PAGEFUN = 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_ADMIN_CHECK_MASTER.AspToAspX_Page_Init ( )
    ASPX_PAGEFUN.AspToAspX_Page_Init ( )
    searchcontent = trim ( Request ( "searchcontent" ) ) '5
    searchkind = Request ( "searchkind" ) '6
    tyname1 = "searchcontent" '7
    tyname2 = "searchkind" '8
    root = "../" '9
    If AspToAspX_CheckDBNull ( searchcontent ) < > EmptyString.Value Then '10
        pagestr = "&" & tyname1 & "=" & searchcontent & "&" & tyname2 & "=" & searchkind '11
    Else '12
        pagestr = "" '13
    End If '14
    If AspToAspX_CheckDBNull ( searchkind ) = EmptyString.Value Then '15
        AspToAspX_Str = "select * from " & ft & "ftbbs_pay_log order by id desc" '16
    Else '17
        AspToAspX_Str = "select * from " & ft & "ftbbs_pay_log where " & searchkind & " like '%" & searchcontent & "%' order by id desc" '18
    End If '19
    rs = New ADODB.Recordset ( ) '20
    rs.Open ( AspToAspX_Str , conn , 1 , 1 ) '21
    Response.Write ( vbCrLf )
    Response.Write ( "<html>" & Chr ( 13 ) ) '23
    Response.Write ( "<head>" & Chr ( 13 ) ) '24
    Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '25
    Response.Write ( "<title>无标题文档</title>" & Chr ( 13 ) ) '26
    Response.Write ( "<link href=""../css/main01.css"" rel=""stylesheet"" type=""text/css"">" & Chr ( 13 ) ) '27
    Response.Write ( "<script language=javascript src=""../js/publicfun.js""></script>" & Chr ( 13 ) ) '28
    Response.Write ( "</head>" & Chr ( 13 ) ) '29
    Response.Write ( "<body bgcolor=""#FFFFFF"" text=""#000000"">" & Chr ( 13 ) ) '30
    Response.Write ( "<table width=""99%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '31
    If Not rs.EOF Then '33
        wzrep = 30 '34
        wzpage = AspToAspX_CInt ( ( Request.QueryString ( "page" ) ) ) '35
    If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
    '36
        rs.PageSize = wzrep '37
        rs.AbsolutePage = wzpage '38
        wzpagecount = rs.PageCount '39
        wzcount = rs.RecordCount '40
        Response.Write ( vbCrLf )
        Response.Write ( "  <TR align=center class=""f12"">" & Chr ( 13 ) ) '42
        Response.Write ( "  <TD width=""64%"" align=""left"">" ) '43
        Response.Write ( pageclass ( wzpagecount , wzcount , wzrep , pagestr , root ) ) '43
        Response.Write ( "</TD> " & Chr ( 13 ) ) '43
        Response.Write ( "    <FORM METHOD=POST ACTION=""" ) '44
        Response.Write ( AspToAspX_GetRequestServerVariables ( "script_name" ) ) '44
        Response.Write ( """ >" & Chr ( 13 ) ) '44
        Response.Write ( "      <TD width=""36%""> <div align=""right""> " & Chr ( 13 ) ) '45
        Response.Write ( "          <INPUT TYPE=""text"" NAME=""searchcontent"" size=15>" & Chr ( 13 ) ) '46
        Response.Write ( "          <select name=""searchkind"">" & Chr ( 13 ) ) '47
        Response.Write ( "            <option value=""sp_billno"">订单号</option>" & Chr ( 13 ) ) '48
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<option value=""clubuser_id"">用户ID</option>" & Chr ( 13 ) ) '49
        Response.Write ( "          </select>" & Chr ( 13 ) ) '50
        Response.Write ( "          <INPUT TYPE=""submit"" value=""搜索"" name="""">" & Chr ( 13 ) ) '51
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  </div></TD>" & Chr ( 13 ) ) '52
        Response.Write ( "    </FORM>" & Chr ( 13 ) ) '53
        Response.Write ( "  </TR>" & Chr ( 13 ) ) '54
        Response.Write ( "</TABLE>" & Chr ( 13 ) ) '55
        Response.Write ( "<table width=""99%"" border=""0"" bgcolor=""#f1f1f1"" cellspacing=""1"" cellpadding=""0"" align=""center"">" & Chr ( 13 ) ) '56
        Response.Write ( "  <tr bgcolor=""#cccccc"" align=""center"" class=""f12""> " & Chr ( 13 ) ) '57
        Response.Write ( "    <td width=""5%"" height=""25"">选择</td>" & Chr ( 13 ) ) '58
        Response.Write ( "    <td width=""12%"">用户ID</td>" & Chr ( 13 ) ) '59
        Response.Write ( "    <td width=""18%"">订单号</td>" & Chr ( 13 ) ) '60
        Response.Write ( "    <td width=""16%"">金额(元)</td>" & Chr ( 13 ) ) '61
        Response.Write ( "" & Chr ( 9 ) & "<td width=""18%"">日期</td>" & Chr ( 13 ) ) '62
        Response.Write ( "" & Chr ( 9 ) & "<td width=""16%"">IP</td>" & Chr ( 13 ) ) '63
        Response.Write ( "" & Chr ( 9 ) & "<td width=""16%"">状态</td>" & Chr ( 13 ) ) '64
        Response.Write ( "  </tr>" & Chr ( 13 ) ) '65
        Response.Write ( "  <form name=""selectform"" method=post action=""pldelpay.aspx"">" & Chr ( 13 ) ) '66
        Response.Write ( "    <input type=""hidden"" name=""op"" value=""选择转正"">" & Chr ( 13 ) ) '67
        Response.Write ( "    <input type=""hidden"" name=""returnURL"" value=""adminpay.aspx?" ) '68
        Response.Write ( Request.QueryString ) '68
        Response.Write ( """>" & Chr ( 13 ) ) '68
        Response.Write ( "    <script language=""JavaScript"">" & Chr ( 13 ) ) '69
        Response.Write ( "  <!--" & Chr ( 13 ) ) '70
        Response.Write ( "  function select_pl_submit(optype){" & Chr ( 13 ) ) '71
        Response.Write ( "" & Chr ( 9 ) & "var f=document.forms[""selectform""]" & Chr ( 13 ) ) '72
        Response.Write ( "" & Chr ( 9 ) & "f.op.value=optype" & Chr ( 13 ) ) '73
        Response.Write ( "" & Chr ( 9 ) & "f.submit()" & Chr ( 13 ) ) '74
        Response.Write ( "  }" & Chr ( 13 ) ) '75
        Response.Write ( "  //-->" & Chr ( 13 ) ) '76
        Response.Write ( "  </script>" & Chr ( 13 ) ) '77
        For i = 0 To Val ( wzrep ) - 1 '79
        If rs.EOF Then
Exit For
End If
    '80
            Response.Write ( vbCrLf )
            Response.Write ( "    <tr bgcolor=""#FFFFFF"" align=""center"" class=""f12""> " & Chr ( 13 ) ) '82
            Response.Write ( "      <td height=""25"">" & Chr ( 13 ) ) '83
            Response.Write ( "<input name=""checkbox1"" type=""checkbox"" id=""checkbox1"" value=""" ) '84
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '84
            Response.Write ( """>" & Chr ( 13 ) ) '84
            Response.Write ( "      </td>" & Chr ( 13 ) ) '85
            Response.Write ( "      <td align=""left"">" ) '86
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '86
            Response.Write ( "</td>" & Chr ( 13 ) ) '86
            Response.Write ( "      <td align=""left"">" ) '87
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "sp_billno" ) .Value) ) '87
            Response.Write ( "</td>" & Chr ( 13 ) ) '87
            Response.Write ( "      <td align=""left"">" ) '88
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "paymoney" ) .Value) / 100 ) '88
            Response.Write ( "</td>" & Chr ( 13 ) ) '88
            Response.Write ( "" & Chr ( 9 ) & "  <td align=""left"">" ) '89
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "paytime" ) .Value) ) '89
            Response.Write ( "</td>" & Chr ( 13 ) ) '89
            Response.Write ( "" & Chr ( 9 ) & "  <td align=""left"">" ) '90
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "payip" ) .Value) ) '90
            Response.Write ( "</td>" & Chr ( 13 ) ) '90
            Response.Write ( "" & Chr ( 9 ) & "  <td align=""left"">" & Chr ( 13 ) ) '91
            Response.Write ( "      " ) '92
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "payresults" ) .Value) ) = 1 Then '93
                Response.Write ( "<font color=red>支付成功</font>" ) '94
            Else '95
                Response.Write ( "未支付订单" ) '96
            End If '97
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & "  </td>" & Chr ( 13 ) ) '99
            Response.Write ( "    </tr>" & Chr ( 13 ) ) '100
            rs.MoveNext ( ) '102
        Next '103
        rs.Close ( ) '104
        Response.Write ( vbCrLf )
        Response.Write ( "    <tr bgcolor=""#FFFFFF"" class=""f12""> " & Chr ( 13 ) ) '106
12 下一页
💿 文件大小 7012 K
👤 上传用户 red2years
📂 所属分类书籍源码
🏷️ 相关标签

#ASP #NET #DLL #BBS
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -