managexz.aspx.vb

本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量 基于ASP.NET的DLL可以运行在支持ASP

' ***************************************************
' *        本程序由AspToAspX风火轮0.99转换生成      *
' *        http://Www.AspToAspX.Cn                  *
' *        Q Q :  139227536                         *
' *        QQ群:  17152722                          *
' *        MSN :  [e-mail]        *
' *        EMail  [e-mail]              *
' ***************************************************
Imports Microsoft.VisualBasic
Imports System.Web
Imports System.Math
Imports System.Web.SessionState


Public Class _BBSADMIN_MANAGEXZ
    Inherits System.Web.UI.Page
    Implements IHttpHandler, AspToAspX_Interface

    Public AspToAspX_Host_Class_Object As Object

Public i
Public id
Public xzms
Public xzimg
Public add
Public sql
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 ( )
    id = AspToAspX_CheckIsNothing ( Request.Form ( "id" ) ) '5
    xzms = trim ( Request ( "xzms" ) ) '6
    xzimg = trim ( Request ( "xzimg" ) ) '7
    add = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "add" ) ) ) '8
    If AspToAspX_CheckDBNull ( xzms ) < > EmptyString.Value And AspToAspX_CheckDBNull ( xzimg ) < > EmptyString.Value Then '9
        If AspToAspX_CheckDBNull ( add ) < > "ok" Then '10
            sql = "update " & ft & "xunzhang set xzms=" & xzms & ",xzimg=" & xzimg & " where id=" & id '11
            conn.Execute ( sql ) '12
        Else '13
            sql = "insert into " & ft & "xunzhang (xzms,xzimg) values('" & xzms & "','" & xzimg & "')" '14
            conn.Execute ( sql ) '15
        End If '16
    End If '17
    root = "../" '18
    pagestr = "" '19
    AspToAspX_Str = "select * from " & ft & "xunzhang order by id asc" '20
    rs = New ADODB.Recordset ( ) '21
    rs.Open ( AspToAspX_Str , conn , 1 , 1 ) '22
    If Not rs.EOF Then '23
        wzrep = 30 '24
        wzpage = AspToAspX_CInt ( ( Request.QueryString ( "page" ) ) ) '25
    If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
    '26
        rs.PageSize = wzrep '27
        rs.AbsolutePage = wzpage '28
        wzpagecount = rs.PageCount '29
        wzcount = rs.RecordCount '30
        Response.Write ( vbCrLf )
        Response.Write ( "<html>" & Chr ( 13 ) ) '32
        Response.Write ( "<head>" & Chr ( 13 ) ) '33
        Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '34
        Response.Write ( "<title>勋章管理</title>" & Chr ( 13 ) ) '35
        Response.Write ( "<link href=""../css/main01.css"" rel=""stylesheet"" type=""text/css"">" & Chr ( 13 ) ) '36
        Response.Write ( "</head>" & Chr ( 13 ) ) '37
        Response.Write ( "<body bgcolor=""#FFFFFF"" text=""#000000"">" & Chr ( 13 ) ) '38
        Response.Write ( "<table width=""99%"" border=""0"" bgcolor=""#f1f1f1"" cellspacing=""1"" cellpadding=""0"" align=""center"">" & Chr ( 13 ) ) '39
        Response.Write ( "  <tr bgcolor=""#f3f3f3"" align=""center"" class=""f12""> " & Chr ( 13 ) ) '40
        Response.Write ( "    <td height=""25"" colspan=""2"" bgcolor=""#f3f3f3""><strong>论坛勋章管理</strong></td>" & Chr ( 13 ) ) '41
        Response.Write ( "  </tr>" & Chr ( 13 ) ) '42
        Response.Write ( "  <tr bgcolor=""#FFFFFF"" align=""center"" class=""f12""> " & Chr ( 13 ) ) '43
        Response.Write ( "    <td height=""25"">序号</td>" & Chr ( 13 ) ) '44
        Response.Write ( "    <td width=""96%"" height=""25""> <div align=""left"">勋章说明与图片(勋章图片一定要放在images目录下)</div></td>" & Chr ( 13 ) ) '45
        Response.Write ( "  </tr>" & Chr ( 13 ) ) '46
        Response.Write ( "  " ) '47
        For i = 0 To Val ( wzrep ) - 1 '48
        If rs.EOF Then
Exit For
End If
    '49
            Response.Write ( vbCrLf )
            Response.Write ( "  <tr bgcolor=""#FFFFFF"" align=""center"" class=""f12""> " & Chr ( 13 ) ) '51
            Response.Write ( "    <form name=""form1"" method=""post"" action="""">" & Chr ( 13 ) ) '52
            Response.Write ( "      <td width=""4%"" height=""25"">" ) '53
            Response.Write ( i + 1 ) '53
            Response.Write ( "</td>" & Chr ( 13 ) ) '53
            Response.Write ( "      <td align=""left""> 勋章说明" & Chr ( 13 ) ) '54
            Response.Write ( "        <input name=""xzms"" type=""text"" id=""xzms"" value=""" ) '55
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "xzms" ) .Value) ) '55
            Response.Write ( """ size=""50"" maxlength=""50"">" & Chr ( 13 ) ) '55
            Response.Write ( "        勋章图标 " & Chr ( 13 ) ) '56
            Response.Write ( "        <input name=""ximg"" type=""text"" id=""ximg"" value=""" ) '57
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "xzimg" ) .Value) ) '57
            Response.Write ( """ size=""30"" maxlength=""30""> " & Chr ( 13 ) ) '57
            Response.Write ( "        <input type=""submit"" name=""Submit"" value=""修改"" " ) '58
            If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 2 ) ) < = 0 Then '58
                Response.Write ( "disabled" ) '58
            End If '58
            Response.Write ( "> " & Chr ( 13 ) ) '58
            Response.Write ( "        <input name=""id"" type=""hidden"" id=""id"" value=""" ) '59
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '59
            Response.Write ( """>" & Chr ( 13 ) ) '59
            Response.Write ( "        <a href=""delxz.aspx?id=" ) '60
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '60
            Response.Write ( """>删除</a> </td>" & Chr ( 13 ) ) '60
            Response.Write ( "    </form>" & Chr ( 13 ) ) '61
            Response.Write ( "  </tr>" & Chr ( 13 ) ) '62
            rs.MoveNext ( ) '64
        Next '65
        rs.Close ( ) '66
    End If '67
    Response.Write ( vbCrLf )
    Response.Write ( "   <tr bgcolor=""#FFFFFF"" align=""center"" class=""f12""> " & Chr ( 13 ) ) '69
    Response.Write ( "    <form name=""form1"" method=""post"" action="""">" & Chr ( 13 ) ) '70
    Response.Write ( "      <td width=""4%"" height=""40"">&nbsp;</td>" & Chr ( 13 ) ) '71
    Response.Write ( "      <td align=""left""> 勋章说明" & Chr ( 13 ) ) '72
    Response.Write ( "        <input name=""xzms"" type=""text"" id=""xzms"" size=""50"" maxlength=""50"">" & Chr ( 13 ) ) '73
    Response.Write ( "        勋章图标" & Chr ( 13 ) ) '74
    Response.Write ( "<input name=""xzimg"" type=""text"" id=""xzimg"" size=""30"" maxlength=""30""> " & Chr ( 13 ) ) '75
    Response.Write ( "        <input type=""submit"" name=""Submit"" value=""添加"" " ) '76
    If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 1 ) ) < = 0 Then '76
        Response.Write ( "disabled" ) '76
    End If '76
    Response.Write ( ">" & Chr ( 13 ) ) '76
    Response.Write ( "        <input name=""add"" type=""hidden"" id=""add"" value=""ok""> </td>" & Chr ( 13 ) ) '77
    Response.Write ( "    </form>" & Chr ( 13 ) ) '78
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '79
    Response.Write ( "  <tr align=center bgcolor=""#F3F3F3"" class=""f12""> " & Chr ( 13 ) ) '80
    Response.Write ( "    <td height=""28"" colspan=""12"" align=""left""> " ) '81
    Response.Write ( pageclass ( wzpagecount , wzcount , wzrep , pagestr , root ) ) '81
    Response.Write ( "</td>" & Chr ( 13 ) ) '81
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '82
    Response.Write ( "</table>" & Chr ( 13 ) ) '83
    Response.Write ( "<br>" & Chr ( 13 ) ) '84
    Response.Write ( "</body>" & Chr ( 13 ) ) '85
    Response.Write ( "</html>" & Chr ( 13 ) ) '86
    closedb ( ) '88
    Response.Write ( vbCrLf )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("managexz_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
#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 Function adminlogin(ByRef  ft )
        Return ASPX_ADMIN_CHECK_MASTER.adminlogin( ft )
    End Function

    Public Function pageclass(ByRef  totalpage,ByRef wzcount,ByRef wzrep,ByRef pagestr,ByRef root )
        Return ASPX_PAGEFUN.pageclass( totalpage,wzcount,wzrep,pagestr,root )
    End Function

#End Region
End Class