aspjpg.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 _ASPJPG

    Public AspToAspX_Host_Class_Object As Object

Dim _aspx_picfilename,_aspx_xpicfilename
#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 ("aspjpg_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\ASPJPG.ASP
Function imgtmlogo(ByRef  imgpath )
On Error GoTo _AspToAspX_Err
    Dim Jpeg
    Dim Logo
    If IsObjInstalled ( "Persits.Jpeg" ) Then '4
        Jpeg = CreateObject ( "Persits.Jpeg" ) '5
        Jpeg.RegKey = "48958-77556-02411" '6
        Jpeg.Open ( Server.MapPath ( imgpath ) ) '7
        Logo = CreateObject ( "Persits.Jpeg" ) '9
        Logo.RegKey = "48958-77556-02411" '10
        Logo.Open ( Server.MapPath ( "images/tmlogo.gif" ) ) '11
        Jpeg.DrawImage ( Jpeg.width - 112 , Jpeg.height - 50 , Logo , 0.3 , &HFFFFFF ) '12
        Jpeg.Save ( Server.MapPath ( imgpath ) ) '13
    Else '14
        Response.Write ( "你的系统不支持水印组件,请先<a href=http://www.ftbbs.cn/soft/AspJpeg.rar>下载</a>安装!" ) '15
        Response.End ( ) '16
    End If '17
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\ASPJPG.ASP imgtmlogo:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\ASPJPG.ASP
Function bigtojpg(ByRef  picfilename,ByRef xpicfilename )
On Error GoTo _AspToAspX_Err
    Dim Jpeg
    Jpeg = CreateObject ( "Persits.Jpeg" ) '22
    Jpeg.RegKey = "48958-77556-02411" '23
    Jpeg.Open ( Server.MapPath ( picfilename ) ) '24
    Jpeg.Width = 84 '25
    Jpeg.Height = 84 '26
    Jpeg.Save ( Server.MapPath ( xpicfilename ) ) '27
    Jpeg = Nothing '29
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\ASPJPG.ASP bigtojpg:" & Err.Description)
    Resume Next
End Function
#Region "..."
    Public Property picfilename
        Get
            On Error Resume Next
            picfilename = AspToAspX_Host_Class_Object.picfilename
            If Err.Number = 438 Then
                Err.Clear
                picfilename = _aspx_picfilename
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.picfilename = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_picfilename = value
            End If
        End Set
    End Property
    Public Property xpicfilename
        Get
            On Error Resume Next
            xpicfilename = AspToAspX_Host_Class_Object.xpicfilename
            If Err.Number = 438 Then
                Err.Clear
                xpicfilename = _aspx_xpicfilename
            End If
        End Get
        Set(ByVal value)
            On Error Resume Next
            AspToAspX_Host_Class_Object.xpicfilename = value
            If Err.Number = 438 Then
                Err.Clear
                _aspx_xpicfilename = value
            End If
        End Set
    End Property
    Public Function IsObjInstalled(ByRef  strClassString )
        Return AspToAspX_Host_Class_Object.IsObjInstalled( strClassString )
    End Function

#End Region
End Class