blogcenter_add.aspx.vb

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

    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 Shared ReadOnly Property fso
        Get
            fso = _INC_PUBLICFUN.fso
        End Get
    End Property
    Public Function makefolder(ByRef  Folder,ByRef fso )
        Return ASPX_INC_PUBLICFUN.makefolder( Folder,fso )
    End Function

    Public Function DelFile(ByRef  FileName,ByRef fso )
        Return ASPX_INC_PUBLICFUN.DelFile( FileName,fso )
    End Function

    Public Function makehtml(ByRef  htmlurlname,ByRef fso,ByRef nl )
        Return ASPX_INC_PUBLICFUN.makehtml( htmlurlname,fso,nl )
    End Function

    Public Function GetFolderSize(ByRef  FolderName,ByRef fso )
        Return ASPX_INC_PUBLICFUN.GetFolderSize( FolderName,fso )
    End Function

    Public Function ClearHTMLCode(ByRef  StrCode )
        Return ASPX_INC_PUBLICFUN.ClearHTMLCode( StrCode )
    End Function

    Public Function pagination(ByRef  pagecount,ByRef userid )
        Return ASPX_INC_PUBLICFUN.pagination( pagecount,userid )
    End Function

    Public Function SearchPage(ByRef  pagecount,ByRef tyname1,ByRef tyvalue1,ByRef tyname2,ByRef tyvalue2 )
        Return ASPX_INC_PUBLICFUN.SearchPage( pagecount,tyname1,tyvalue1,tyname2,tyvalue2 )
    End Function

    Public Function pagenar(ByRef  pagecount,ByRef userid,ByRef tyname,ByRef tyvalue )
        Return ASPX_INC_PUBLICFUN.pagenar( pagecount,userid,tyname,tyvalue )
    End Function

    Public Function FtbbsPage(ByRef  pagecount,ByRef tyname1,ByRef tyvalue1,ByRef tyname2,ByRef tyvalue2 )
        Return ASPX_INC_PUBLICFUN.FtbbsPage( pagecount,tyname1,tyvalue1,tyname2,tyvalue2 )
    End Function

    Public Function makeadjs(ByRef  ft )
        Return ASPX_INC_PUBLICFUN.makeadjs( ft )
    End Function

    Public Shared ReadOnly Property BITS_TO_A_BYTE
        Get
            BITS_TO_A_BYTE = _INC_MD5.BITS_TO_A_BYTE
        End Get
    End Property
    Public Shared ReadOnly Property BYTES_TO_A_WORD
        Get
            BYTES_TO_A_WORD = _INC_MD5.BYTES_TO_A_WORD
        End Get
    End Property
    Public Shared ReadOnly Property BITS_TO_A_WORD
        Get
            BITS_TO_A_WORD = _INC_MD5.BITS_TO_A_WORD
        End Get
    End Property
    Public Property m_lOnBits
        Get
            m_lOnBits = ASPX_INC_MD5.m_lOnBits
        End Get
        Set(ByVal value)
            ASPX_INC_MD5.m_lOnBits = value
        End Set
    End Property
    Public Property m_l2Power
        Get
            m_l2Power = ASPX_INC_MD5.m_l2Power
        End Get
        Set(ByVal value)
            ASPX_INC_MD5.m_l2Power = value
        End Set
    End Property
    Public Sub md5_FF(ByRef  a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
        ASPX_INC_MD5.md5_FF( a,b,c,d,x,s,ac )
    End Sub

    Public Sub md5_GG(ByRef  a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
        ASPX_INC_MD5.md5_GG( a,b,c,d,x,s,ac )
    End Sub

    Public Sub md5_HH(ByRef  a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
        ASPX_INC_MD5.md5_HH( a,b,c,d,x,s,ac )
    End Sub

    Public Sub md5_II(ByRef  a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
        ASPX_INC_MD5.md5_II( a,b,c,d,x,s,ac )
    End Sub

    Public Function LShift(ByRef  lValue,ByRef iShiftBits )
        Return ASPX_INC_MD5.LShift( lValue,iShiftBits )
    End Function

    Public Function RShift(ByRef  lValue,ByRef iShiftBits )
        Return ASPX_INC_MD5.RShift( lValue,iShiftBits )
    End Function

    Public Function RotateLeft(ByRef  lValue,ByRef iShiftBits )
        Return ASPX_INC_MD5.RotateLeft( lValue,iShiftBits )
    End Function

    Public Function AddUnsigned(ByRef  lX,ByRef lY )
        Return ASPX_INC_MD5.AddUnsigned( lX,lY )
    End Function

    Public Function md5_F(ByRef  x,ByRef y,ByRef z )
        Return ASPX_INC_MD5.md5_F( x,y,z )
    End Function

    Public Function md5_G(ByRef  x,ByRef y,ByRef z )
        Return ASPX_INC_MD5.md5_G( x,y,z )
    End Function

    Public Function md5_H(ByRef  x,ByRef y,ByRef z )
        Return ASPX_INC_MD5.md5_H( x,y,z )
    End Function

    Public Function md5_I(ByRef  x,ByRef y,ByRef z )
        Return ASPX_INC_MD5.md5_I( x,y,z )
    End Function

    Public Function ConvertToWordArray(ByRef  sMessage )
        Return ASPX_INC_MD5.ConvertToWordArray( sMessage )
    End Function

    Public Function WordToHex(ByRef  lValue )
        Return ASPX_INC_MD5.WordToHex( lValue )
    End Function

    Public Function MD5(ByRef  sMessage )
        Return ASPX_INC_MD5.MD5( sMessage )
    End Function

    Public Function htmlencode2(ByRef  AspToAspX_Str )
        Return ASPX_INC_HTMLENCODE2.htmlencode2( AspToAspX_Str )
    End Function

    Public Function unhtmlencode2(ByRef  AspToAspX_Str )
        Return ASPX_INC_HTMLENCODE2.unhtmlencode2( AspToAspX_Str )
    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

    Public Function touxianvalue(ByRef  jingyuan,ByRef ft )
        Return ASPX_TOUXIANFUN.touxianvalue( jingyuan,ft )
    End Function

    Public Function jibievalue(ByRef  jingyuan,ByRef ft )
        Return ASPX_TOUXIANFUN.jibievalue( jingyuan,ft )
    End Function

    Public Function jingyuantoqs(ByRef  clubuser_id,ByRef topvalue,ByRef ft )
        Return ASPX_TOUXIANFUN.jingyuantoqs( clubuser_id,topvalue,ft )
    End Function

    Public Function imgtourl(ByRef  url,ByRef imgpath )
        Return ASPX_TOUXIANFUN.imgtourl( url,imgpath )
    End Function

    Public Function imgtologo(ByRef  imgpath )
        Return ASPX_TOUXIANFUN.imgtologo( imgpath )
    End Function

    Public Function mktohtm(ByRef  filename,ByRef filecontent )
        Return ASPX_TOUXIANFUN.mktohtm( filename,filecontent )
    End Function

    Public Function sendsms(ByRef  sender,ByRef accepter,ByRef filename,ByRef title,ByRef flag,ByRef ft )
        Return ASPX_TOUXIANFUN.sendsms( sender,accepter,filename,title,flag,ft )
    End Function

#End Region
End Class