main.aspx.vb

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

    If Not IsObjInstalled ( "Persits.Jpeg" ) Then '131
        Response.Write ( "<font color=red>不支持这个组件</font>" ) '132
    Else '133
        Response.Write ( "已经支持" ) '134
    End If '135
    Response.Write ( vbCrLf )
    Response.Write ( "          (<a href=""http://www.ftbbs.cn/soft/AspJpeg.rar"">点击下载水印组件</a>) </td>" & Chr ( 13 ) ) '137
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '138
    Response.Write ( "          <tr bgcolor=""#f7f7f7"" CLASS=TR height=18 colspan=2> " & Chr ( 13 ) ) '139
    Response.Write ( "            " & Chr ( 13 ) ) '140
    Response.Write ( "        <td height=""25"" align=left>&nbsp;磁盘权限&nbsp;(此必须支持)</td>" & Chr ( 13 ) ) '141
    Response.Write ( "            " & Chr ( 13 ) ) '142
    Response.Write ( "        <td height=""25"">因为系统在相关目录中会生成一些文件，如静态帖，上传文件等，所以论坛目录必须有读/写/删/改的权限,如果在操作中出现没有权限的问题，请检查你的论坛目录是否有磁盘操作的权限. " & Chr ( 13 ) ) '143
    Response.Write ( "        </td>" & Chr ( 13 ) ) '144
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '145
    Response.Write ( "</table>" & Chr ( 13 ) ) '146
    Response.Write ( "<fieldset style=""border: 1px solid #B3DDF8;""><legend>飞天论坛系统:</legend>" & Chr ( 13 ) ) '147
    Response.Write ( "    <table width=""100%""  border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"">" & Chr ( 13 ) ) '148
    Response.Write ( "      <tr> " & Chr ( 13 ) ) '149
    Response.Write ( "        <td width=""12%"" bgcolor=""f7f7f7"">产品开发：</td>" & Chr ( 13 ) ) '150
    Response.Write ( "        <td width=""88%"" bgcolor=""f7f7f7"">飞天论坛工作组</td>" & Chr ( 13 ) ) '151
    Response.Write ( "     </tr>" & Chr ( 13 ) ) '152
    Response.Write ( "     <tr>" & Chr ( 13 ) ) '153
    Response.Write ( "      <td>产品版本：</td>" & Chr ( 13 ) ) '154
    Response.Write ( "        <td><b>飞天论坛(<strong>FTBBS最新版</strong>)</b></td>" & Chr ( 13 ) ) '155
    Response.Write ( "     </tr>" & Chr ( 13 ) ) '156
    Response.Write ( "      <tr> " & Chr ( 13 ) ) '157
    Response.Write ( "        <td>联系方法：</td>" & Chr ( 13 ) ) '158
    Response.Write ( "        <td>网 站：<a href=""http://www.ftbbs.cn"">http://www.ftbbs.cn</a> <a href=""http://www.chinaymz.cn"" target=""_blank"">http://www.chinaymz.cn</a> " & Chr ( 13 ) ) '159
    Response.Write ( "          <br>" & Chr ( 13 ) ) '160
    Response.Write ( "          联系QQ：123291926 Email：[e-mail]</td>" & Chr ( 13 ) ) '161
    Response.Write ( "</tr>" & Chr ( 13 ) ) '162
    Response.Write ( "</table>" & Chr ( 13 ) ) '163
    Response.Write ( "</fieldset>" & Chr ( 13 ) ) '164
    Response.Write ( "</BODY>" & Chr ( 13 ) ) '165
    Response.Write ( "</HTML>" & Chr ( 13 ) ) '166

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("main_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

#End Region
End Class