recheck.aspx.vb

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

                    signname = "<a href=../moduserinfo.aspx?postuser=" & AspToAspX_CheckDBNull(cus1.Fields ( "rename" ) .Value) & "><FONT color=#568ac2>个人签名档还未设置，请点击这里进行设置</font></a>" '424
                    bz = 0 '425
                    procity = "福建厦门" '426
                End If '427
                rs.Close ( ) '428
                rs = Nothing '429
                reid = AspToAspX_CheckDBNull(cus1.Fields ( "id" ) .Value) '430
                reuser = AspToAspX_CheckDBNull(cus1.Fields ( "user_id" ) .Value) '431
                reuser_id = AspToAspX_CheckDBNull(cus1.Fields ( "rename" ) .Value) '432
                rebbs_img = AspToAspX_CheckDBNull(cus1.Fields ( "bbs_img" ) .Value) '433
                AspToAspX_DateTime = AspToAspX_CheckDBNull(cus1.Fields ( "dateh" ) .Value) '435
                bbs_img_text = AspToAspX_CheckDBNull(cus1.Fields ( "bbs_img_text" ) .Value) '436
                postnum = postnum + 1 '437
                If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(cus1.Fields ( "img_url_display" ) .Value) ) = 1 Then '438
                    reimg_url = AspToAspX_CheckDBNull(cus1.Fields ( "img_url" ) .Value) '439
                Else '440
                    reimg_url = "" '441
                End If '442
                touxian = touxianvalue ( jingyuan , ft ) '444
                jibie = jibievalue ( jingyuan , ft ) '445
                If AspToAspX_CheckDBNull ( i ) = 1 Then '469
                Else '471
                End If '473
                i = i + 1 '478
                cus1.MoveNext ( ) '479
                HtmlNLB = HtmlNLB + remb '480
                End While '481
            End If '482
            cus1.Close ( ) '483
            conn.Close ( ) '484
            conn = Nothing '485
            ALLHtmlNL = postmb & HtmlNLB & repostformmb '486
            If AspToAspX_CheckDBNull ( deletedvalue ) = 0 Then '487
                mktohtm ( tourl , ALLHtmlNL ) '488
            End If '489
            Randomize ( ) '490
            Random = AspToAspX_Int ( ( 1000 - 100 + 1 ) * AspToAspX_Rnd + 100 ) '491
            AspToAspX_Response_Redirect ( tourl & "?" & Random ) '492
            Response.Write ( vbCrLf )

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