amsaveupfile.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 _AMSAVEUPFILE
    Inherits System.Web.UI.Page
    Implements IHttpHandler, AspToAspX_Interface

    Public AspToAspX_Host_Class_Object As Object

Public upload,upfile,formPath,ServerPath,formName,oFile,SaveFileName,SavePathFileName
Public url
Public upfiletype
Public upfilesize
Public uploadvalue
Public cookiesname
Public clubuser_id
Public filesize
Public vfname
Public Random
Public FileExt
Public filetype
Public fname
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
    Public ASPX_CONN As _CONN
    Public ASPX_ADMIN_CHECK_MASTER As _ADMIN_CHECK_MASTER
    Public ASPX_UPFILE_CLASS As _UPFILE_CLASS
    Public ASPX_TOUXIANFUN As _TOUXIANFUN
    Public ASPX_ISPICFUN As _ISPICFUN
    Public ASPX_INC_UBBCODE As _INC_UBBCODE
#Region "..."
    Public Sub AspToAspX_InitIncludeFiles()
        ASPX_CONN = New _CONN()
        ASPX_CONN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_CONN.AspToAspX_InitIncludeFiles()
        ASPX_ADMIN_CHECK_MASTER = New _ADMIN_CHECK_MASTER()
        ASPX_ADMIN_CHECK_MASTER.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_ADMIN_CHECK_MASTER.AspToAspX_InitIncludeFiles()
        ASPX_UPFILE_CLASS = New _UPFILE_CLASS()
        ASPX_UPFILE_CLASS.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_UPFILE_CLASS.AspToAspX_InitIncludeFiles()
        ASPX_TOUXIANFUN = New _TOUXIANFUN()
        ASPX_TOUXIANFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_TOUXIANFUN.AspToAspX_InitIncludeFiles()
        ASPX_ISPICFUN = New _ISPICFUN()
        ASPX_ISPICFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_ISPICFUN.AspToAspX_InitIncludeFiles()
        ASPX_INC_UBBCODE = New _INC_UBBCODE()
        ASPX_INC_UBBCODE.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_UBBCODE.AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
        ASPX_CONN.AspToAspX_UnloadIncludeFiles()
        ASPX_CONN = Nothing
        ASPX_ADMIN_CHECK_MASTER.AspToAspX_UnloadIncludeFiles()
        ASPX_ADMIN_CHECK_MASTER = Nothing
        ASPX_UPFILE_CLASS.AspToAspX_UnloadIncludeFiles()
        ASPX_UPFILE_CLASS = Nothing
        ASPX_TOUXIANFUN.AspToAspX_UnloadIncludeFiles()
        ASPX_TOUXIANFUN = Nothing
        ASPX_ISPICFUN.AspToAspX_UnloadIncludeFiles()
        ASPX_ISPICFUN = Nothing
        ASPX_INC_UBBCODE.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_UBBCODE = Nothing
    End Sub

#End Region
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        AspToAspXGlobal.Application = Application
        AspToAspXGlobal.Server = Server
        AspToAspXGlobal.Response = Response
        AspToAspXGlobal.Request = Request
        AspToAspXGlobal.Session = Session
        AspToAspX_Host_Class_Object = Me
        AspToAspX_InitIncludeFiles()
        AspToAspX_Page_Init()
        End Sub
    Public Sub AspToAspX_Page_Init()
    On Error GoTo _AspToAspX_Err
    ASPX_CONN.AspToAspX_Page_Init ( )
    ASPX_ADMIN_CHECK_MASTER.AspToAspX_Page_Init ( )
    ASPX_UPFILE_CLASS.AspToAspX_Page_Init ( )
    ASPX_TOUXIANFUN.AspToAspX_Page_Init ( )
    ASPX_ISPICFUN.AspToAspX_Page_Init ( )
    ASPX_INC_UBBCODE.AspToAspX_Page_Init ( )
    Server.ScriptTimeout = 5000 '8
    FTBBS_HTML_MB ( ft ) '9
    url = Application ( "FTBBSMB" ) ( 10 , 0 ) '10
    upfiletype = "jpg|gif|swf" '11
    upfilesize = Application ( "FTBBSMB" ) ( 13 , 0 ) '12
    uploadvalue = Application ( "FTBBSMB" ) ( 60 , 0 ) '13
    cookiesname = getcookie ( "name" ) '14
    clubuser_id = getcookie ( "clubuser_id" ) '15
    upfiletype = RegExReplace ( upfiletype , "(asp)" , "rar" ) '16
    upfiletype = RegExReplace ( upfiletype , "(asa)" , "rar" ) '17
    upfiletype = RegExReplace ( upfiletype , "(cdx)" , "rar" ) '18
    upfiletype = RegExReplace ( upfiletype , "(cer)" , "rar" ) '19
    Response.Write ( vbCrLf )
    Response.Write ( "<html>" & Chr ( 13 ) ) '21
    Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '22
    Response.Write ( "<title>保存上传(飞天论坛)</title>" & Chr ( 13 ) ) '23
    Response.Write ( "<script language=javascript src=""inc/cookies.js""></script>" & Chr ( 13 ) ) '24
    Response.Write ( "<script>" & Chr ( 13 ) ) '25
    Response.Write ( "var stylecook = getCookie(""STYLESHOW"");" & Chr ( 13 ) ) '26
    Response.Write ( "var style;" & Chr ( 13 ) ) '27
    Response.Write ( "var strstyle;" & Chr ( 13 ) ) '28
    Response.Write ( "if(stylecook=="""")" & Chr ( 13 ) ) '29
    Response.Write ( "{" & Chr ( 13 ) ) '30
    Response.Write ( " stylecook=1;" & Chr ( 13 ) ) '31
    Response.Write ( "}" & Chr ( 13 ) ) '32
    Response.Write ( "else" & Chr ( 13 ) ) '33
    Response.Write ( "{" & Chr ( 13 ) ) '34
    Response.Write ( " stylecook++;" & Chr ( 13 ) ) '35
    Response.Write ( "}" & Chr ( 13 ) ) '36
    Response.Write ( "style=""main0""+stylecook+"".css"";" & Chr ( 13 ) ) '37
    Response.Write ( "strstyle=""<link href=\""css/""+style+""\""  rel=\""stylesheet\"" type=\""text/css\""> "";" & Chr ( 13 ) ) '38
    Response.Write ( "document.write(strstyle);" & Chr ( 13 ) ) '39
    Response.Write ( "</script>" & Chr ( 13 ) ) '40
    Response.Write ( "<body topmargin=""0"">" & Chr ( 13 ) ) '41
    upload = New Ftbbs_Class ( AspToAspX_Host_Class_Object ) '44
    upload.AllowExt = upfiletype '45
    upload.GetData ( upfilesize ) '46
    formPath = "flashad" '47
    If AspToAspX_CheckDBNull ( right ( formPath , 1 ) ) < > "/" Then
formPath = formPath & "/"
End If
    '48
        If upload.isErr Then '49
            Select Case upload.isErr '50
                Case 1 '51
                    Response.Write ( "<font color=red>上传文件不能为空</font>" ) '52
                    Response.Write ( "&nbsp;&nbsp;<a href=AmFtbbsUpFile.aspx>重新上传</a>" ) '53
                Case 2 '54
                    Response.Write ( "系统限制上传文件大小在<font color=red>" & upfilesize & "</font>字节以下&nbsp;&nbsp;<a href=AmFtbbsUpFile.aspx>重新上传</a>" ) '55
            End Select '56
        Else '57
            For Each formName In upload.file '58
                oFile = upload.file ( formname ) '59
                filesize = oFile.FileSize '60
                vfname = makefilename ( DateAndTime.Now ) '62
                Randomize ( ) '63
                Random = AspToAspX_Int ( ( 1000 - 100 + 1 ) * AspToAspX_Rnd + 100 ) '64
                vfname = vfname & "_" & Random '65
                FileExt = oFile.FileExt '66
                filetype = oFile.FileMIME '67
                If AspToAspX_CheckDBNull ( filetype ) = "text/plain" Then '68
                    Response.Write ( "您上传的文件有问题!&nbsp;&nbsp;<a href=AmFtbbsUpFile.aspx>重新上传</a>" ) '69
                    Response.End ( ) '70
                End If '71
                fname = formPath & vfname & "." & FileExt '72
                SavePathFileName = Server.MapPath ( fname ) '73
                upload.SaveToFile ( formName , SavePathFileName ) '74
                If upload.iserr Then '75
                    Response.Write ( upload.errmessage ) '76
                Else '77
                    ispic ( SavePathFileName ) '78
                    Response.Write ( fname ) '79
                    Response.Write ( "&nbsp;&nbsp;<a href=AmFtbbsUpFile.aspx>重新上传</a>" ) '80
                    ReturnPostFile ( fname , FileExt ) '81
                End If '82
                oFile = Nothing '83
            Next '84
        End If '85
        upload = Nothing '86
        Response.Write ( vbCrLf )
        Response.Write ( "</body> " & Chr ( 13 ) ) '98
        Response.Write ( "</html>" & Chr ( 13 ) ) '99

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("AmSaveUpFile_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\AMSAVEUPFILE.ASP
Function ReturnPostFile(ByRef  fn,ByRef ext )
On Error GoTo _AspToAspX_Err
    If AspToAspX_CheckDBNull ( ext ) = "jpg" Or AspToAspX_CheckDBNull ( ext ) = "gif" Or AspToAspX_CheckDBNull ( ext ) = "bmp" Or AspToAspX_CheckDBNull ( ext ) = "png" Or AspToAspX_CheckDBNull ( ext ) = "jpeg" Or AspToAspX_CheckDBNull ( ext ) = "swf" Then '88
        Response.Write ( "<script>" & Chr ( 13 ) ) '90
        Response.Write ( "document.ftbbsmenu = new Function('return false')" & Chr ( 13 ) ) '91
        Response.Write ( "parent.form1.adtitle.value='" ) '92
        Response.Write ( fn ) '92
        Response.Write ( "';" & Chr ( 13 ) ) '92
        Response.Write ( "</script>       " & Chr ( 13 ) ) '93
    End If '95
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\AMSAVEUPFILE.ASP ReturnPostFile:" & Err.Description)
    Resume Next
End Function
#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