adostream.aspx.vb

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

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

    Public AspToAspX_Host_Class_Object As Object

Dim _aspx_file
#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 ("AdoStream_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\ADOSTREAM.ASP
Sub SaveToFile(ByVal strBody,ByVal File )
On Error Goto _AspToAspX_Err
    Dim objStream
    On Error Resume Next '30
    objStream = New ADODB.Stream ( ) '31
    If AspToAspX_CheckDBNull ( Err.Number ) = - 2147221005 Then '32
        Response.Write ( "<div align=center>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>" ) '33
        Err.Clear ( ) '34
        Response.End ( ) '35
    End If '36
    With ( objStream ) '37
    .Type = 2 '38
    .Open ( ) '39
    .Charset = "utf-8" '40
    .Position = objStream.Size '41
    .WriteText = strBody '42
    .SaveToFile ( Server.MapPath ( File ) , 2 ) '43
    .Close ( ) '44
    End With '45
    objStream = Nothing '46
    Exit Sub
_AspToAspX_Err:
    AspToAspX_WriteLog ("E:\FTBBS_UTF8_7.0\UPLOAD\ADOSTREAM.ASP SaveToFile:" & Err.Description)
    Resume Next
End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\ADOSTREAM.ASP
Function LoadFile(ByVal File )
On Error GoTo _AspToAspX_Err
    Dim objStream
    On Error Resume Next '4
    objStream = New ADODB.Stream ( ) '5
    If AspToAspX_CheckDBNull ( Err.Number ) = - 2147221005 Then '6
        Response.Write ( "<div align=center>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>" ) '7
        Err.Clear ( ) '8
        Response.End ( ) '9
    End If '10
    With ( objStream ) '11
    .Type = 2 '12
    .Mode = 3 '13
    .Open ( ) '14
    .LoadFromFile ( Server.MapPath ( File ) ) '15
    If AspToAspX_CheckDBNull ( Err.Number ) < > 0 Then '16
        Response.Write ( "<div align=center>文件<font color=#ff0000>" & File & "</font>无法被打开，请检查是否存在!</font></div>" ) '17
        Err.Clear ( ) '18
        Response.End ( ) '19
    End If '20
    .Charset = "utf-8" '21
    .Position = 2 '22
    LoadFile = .ReadText '23
    .Close ( ) '24
    End With '25
    objStream = Nothing '26
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\ADOSTREAM.ASP LoadFile:" & Err.Description)
    Resume Next
End Function
#Region "..."
    Public Property file
        Get
            On Error Resume Next
            file = AspToAspX_Host_Class_Object.file
            If Err.Number = 438 Then
                Err.Clear
                file = _aspx_file
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.file = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_file = value
            End If
        End Set
    End Property
#End Region
End Class