upfile_class.aspx.vb

来自「本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成」· VB 代码 · 共 57 行

' ***************************************************
' *        本程序由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 _UPFILE_CLASS

    Public AspToAspX_Host_Class_Object As Object

#Region "..."
    Public Sub AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
    End Sub

#End Region
    Public Sub AspToAspX_Page_Init()
    On Error GoTo _AspToAspX_Err
    Response.Write ( vbCrLf )

        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("upfile_class_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\UPFILE_CLASS.ASP
Public Function Ftbbs_Counter(ByRef  strSearched )
On Error GoTo _AspToAspX_Err
    Dim intIdx
    Dim intCnt
    Dim strElem
    strElem = "." '247
    intIdx = InStr ( 1 , strSearched , strElem ) '248
    Do While intIdx > 0 '249
        intCnt = intCnt + 1 '250
        intIdx = InStr ( intIdx + 1 , strSearched , strElem ) '251
    Loop '252
    Ftbbs_Counter = intCnt '253
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\UPFILE_CLASS.ASP Ftbbs_Counter:" & Err.Description)
    Resume Next
End Function
#Region "..."
#End Region
End Class