default_list.aspx.vb

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

    Response.Write ( " " ) '323
    Response.Write ( GetOpInfo ( AspToAspX_GetRequestServerVariables ( "HTTP_USER_AGENT" ) , 2 ) ) '323
    Response.Write ( " " & Chr ( 13 ) ) '323
    Response.Write ( "              你的IP地址:" ) '324
    Response.Write ( AspToAspX_GetRequestServerVariables ( "REMOTE_ADDR" ) ) '324
    Response.Write ( " </td>" & Chr ( 13 ) ) '324
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '325
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '326
    Response.Write ( "            <td height=""28"" class=""maintbtr3"">&nbsp;在线情况: " & Chr ( 13 ) ) '327
    Response.Write ( "              <script language=""JavaScript"" src=""online.aspx?dis=yes&stats=论坛首页""></script></td>" & Chr ( 13 ) ) '328
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '329
    Response.Write ( "          <tbody id=""category_30"" style="""">" & Chr ( 13 ) ) '330
    Response.Write ( "</table>" & Chr ( 13 ) ) '331
    Response.Write ( "<table width=""99%"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""default_list"">" & Chr ( 13 ) ) '332
    Response.Write ( "          <tr class=""f12bg"" align=""center""> " & Chr ( 13 ) ) '333
    Response.Write ( "            <td height=""25"" colspan=""5""><div align=""left"">&nbsp;<strong>论坛图例</strong></div></td>" & Chr ( 13 ) ) '334
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '335
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '336
    Response.Write ( "            <td width=""20%"" height=""50"" class=""maintbtr3"" align=""center""><img src=""images/ft1.gif"" width=""25"" height=""32"" align=""absmiddle"">允许所有用户访问</td>" & Chr ( 13 ) ) '337
    Response.Write ( "            <td width=""20%"" class=""maintbtr3"" align=""center""><img src=""images/ft2.gif"" width=""25"" height=""32"" align=""absmiddle"">允许版主管理员访问</td>" & Chr ( 13 ) ) '338
    Response.Write ( "            <td width=""20%"" class=""maintbtr3"" align=""center""><img src=""images/ft3.gif"" width=""25"" height=""32"" align=""absmiddle"">允许认证用户访问</td>" & Chr ( 13 ) ) '339
    Response.Write ( "            <td width=""20%"" class=""maintbtr3"" align=""center""><img src=""images/ft4.gif"" width=""25"" height=""32"" align=""absmiddle"">允许注册用户访问</td>" & Chr ( 13 ) ) '340
    Response.Write ( "            <td width=""20%"" class=""maintbtr3"" align=""center""><img src=""images/ft5.gif"" width=""25"" height=""32"" align=""absmiddle"">论坛被关闭</td>" & Chr ( 13 ) ) '341
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '342
    Response.Write ( "</table>" & Chr ( 13 ) ) '343
    Response.Write ( "  <table width=""99%"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""default_list"">" & Chr ( 13 ) ) '344
    Response.Write ( "          <tr class=""f12bg"" align=""center""> " & Chr ( 13 ) ) '345
    Response.Write ( "            <td height=""25""><div align=""left"">&nbsp;<strong>友情链接</strong></div></td>" & Chr ( 13 ) ) '346
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '347
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '348
    Response.Write ( "            <td height=""25"" class=""maintbtr3""><table width=""100%"" border=""0"" cellspacing=""6"" cellpadding=""0"">" & Chr ( 13 ) ) '349
    Response.Write ( "                <tr> " & Chr ( 13 ) ) '350
    Response.Write ( "                  <td class=""maintbtr3""><script language=""JavaScript"" src=""ftlink.js""></script></td>" & Chr ( 13 ) ) '351
    Response.Write ( "                </tr>" & Chr ( 13 ) ) '352
    Response.Write ( "              </table></td>" & Chr ( 13 ) ) '353
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '354
    Response.Write ( "  </table>" & Chr ( 13 ) ) '355
    Response.Write ( "  " ) '356
    ASPX_INC_BBSTAIL_HTM.AspToAspX_Page_Init ( )
    Response.Write ( "</center>" & Chr ( 13 ) ) '357
    Response.Write ( "</body>" & Chr ( 13 ) ) '358
    Response.Write ( "</html>" & Chr ( 13 ) ) '359
    closedb ( ) '360
    Response.Write ( vbCrLf )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("default_list_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 UBBCode(ByRef  strContent )
        Return ASPX_INC_UBBCODE.UBBCode( strContent )
    End Function

    Public Function ftbbsubbcode(ByRef  strContent )
        Return ASPX_INC_UBBCODE.ftbbsubbcode( strContent )
    End Function

    Public Function FilterJS(ByRef  v )
        Return ASPX_INC_UBBCODE.FilterJS( v )
    End Function

    Public Function HTMLEncode(ByRef  fString )
        Return ASPX_INC_UBBCODE.HTMLEncode( fString )
    End Function

    Public Function fthtmlEncode(ByRef  fString )
        Return ASPX_INC_UBBCODE.fthtmlEncode( fString )
    End Function

    Public Function fthtmlCode(ByRef  fString )
        Return ASPX_INC_UBBCODE.fthtmlCode( fString )
    End Function

    Public Function nohtml(ByRef  AspToAspX_Str )
        Return ASPX_INC_UBBCODE.nohtml( AspToAspX_Str )
    End Function

    Public Function clearnulllen(ByRef  fString )
        Return ASPX_INC_UBBCODE.clearnulllen( fString )
    End Function

    Public Function RegExReplace(ByRef  AspToAspX_Str,ByRef patrn,ByRef str2 )
        Return ASPX_INC_UBBCODE.RegExReplace( AspToAspX_Str,patrn,str2 )
    End Function

#End Region
End Class