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

    Public AspToAspX_Host_Class_Object As Object

Public userid
Public photo_name
Public tyname
Public typestr
Public AspToAspX_Str
Public rs As ADODB.Recordset
Public page
Public ipagesize
Public i
Public photourl
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public sql
Public username
Public userimg
Public homepagetitle
Public cssfile
Public bokeer
Public blog_mid
Public blogheadimg
Public clubuser_id
Public rs8
    Public ASPX_CONN As _CONN
    Public ASPX_INC_MD5 As _INC_MD5
    Public ASPX_BBSUSER As _BBSUSER
    Public ASPX_INC_PUBLICFUN As _INC_PUBLICFUN
    Public ASPX_ISBOKER As _ISBOKER
    Public ASPX_MEMBERINFO As _MEMBERINFO
    Public ASPX_USERNAV As _USERNAV
    Public ASPX_PHOTOHEAD As _PHOTOHEAD
    Public ASPX_USERCALOG As _USERCALOG
    Public ASPX_TAIL As _TAIL
#Region "..."
    Public Sub AspToAspX_InitIncludeFiles()
        ASPX_CONN = New _CONN()
        ASPX_CONN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_CONN.AspToAspX_InitIncludeFiles()
        ASPX_INC_MD5 = New _INC_MD5()
        ASPX_INC_MD5.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_MD5.AspToAspX_InitIncludeFiles()
        ASPX_BBSUSER = New _BBSUSER()
        ASPX_BBSUSER.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_BBSUSER.AspToAspX_InitIncludeFiles()
        ASPX_INC_PUBLICFUN = New _INC_PUBLICFUN()
        ASPX_INC_PUBLICFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_PUBLICFUN.AspToAspX_InitIncludeFiles()
        ASPX_ISBOKER = New _ISBOKER()
        ASPX_ISBOKER.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_ISBOKER.AspToAspX_InitIncludeFiles()
        ASPX_MEMBERINFO = New _MEMBERINFO()
        ASPX_MEMBERINFO.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_MEMBERINFO.AspToAspX_InitIncludeFiles()
        ASPX_USERNAV = New _USERNAV()
        ASPX_USERNAV.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_USERNAV.AspToAspX_InitIncludeFiles()
        ASPX_PHOTOHEAD = New _PHOTOHEAD()
        ASPX_PHOTOHEAD.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_PHOTOHEAD.AspToAspX_InitIncludeFiles()
        ASPX_USERCALOG = New _USERCALOG()
        ASPX_USERCALOG.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_USERCALOG.AspToAspX_InitIncludeFiles()
        ASPX_TAIL = New _TAIL()
        ASPX_TAIL.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_TAIL.AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
        ASPX_CONN.AspToAspX_UnloadIncludeFiles()
        ASPX_CONN = Nothing
        ASPX_INC_MD5.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_MD5 = Nothing
        ASPX_BBSUSER.AspToAspX_UnloadIncludeFiles()
        ASPX_BBSUSER = Nothing
        ASPX_INC_PUBLICFUN.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_PUBLICFUN = Nothing
        ASPX_ISBOKER.AspToAspX_UnloadIncludeFiles()
        ASPX_ISBOKER = Nothing
        ASPX_MEMBERINFO.AspToAspX_UnloadIncludeFiles()
        ASPX_MEMBERINFO = Nothing
        ASPX_USERNAV.AspToAspX_UnloadIncludeFiles()
        ASPX_USERNAV = Nothing
        ASPX_PHOTOHEAD.AspToAspX_UnloadIncludeFiles()
        ASPX_PHOTOHEAD = Nothing
        ASPX_USERCALOG.AspToAspX_UnloadIncludeFiles()
        ASPX_USERCALOG = Nothing
        ASPX_TAIL.AspToAspX_UnloadIncludeFiles()
        ASPX_TAIL = 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_INC_MD5.AspToAspX_Page_Init ( )
    ASPX_BBSUSER.AspToAspX_Page_Init ( )
    ASPX_INC_PUBLICFUN.AspToAspX_Page_Init ( )
    ASPX_ISBOKER.AspToAspX_Page_Init ( )
    userid = AspToAspX_CInt ( getcookie ( "clubuser_id" ) ) '7
    photo_name = CheckStr ( Request ( "photo_name" ) ) '8
    tyname = "photo_name" '9
    If AspToAspX_CheckDBNull ( photo_name ) = EmptyString.Value Then '10
        typestr = "" '11
    Else '12
        typestr = "and photo_name='" & photo_name & "'" '13
    End If '14
    Response.Write ( vbCrLf )
    ASPX_MEMBERINFO.AspToAspX_Page_Init ( )
    Response.Write ( "<html><head><meta http-equiv=content-type content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '17
    Response.Write ( "</head>" & Chr ( 13 ) ) '18
    Response.Write ( "<body>" & Chr ( 13 ) ) '19
    Response.Write ( "<center>" & Chr ( 13 ) ) '20
    Response.Write ( "<title>" ) '21
    Response.Write ( username ) '21
    Response.Write ( "的相册管理中心</title>" & Chr ( 13 ) ) '21
    Response.Write ( "<link rel=""stylesheet"" type=""text/css"" href=""" ) '22
    Response.Write ( cssfile ) '22
    Response.Write ( """>" & Chr ( 13 ) ) '22
    ASPX_USERNAV.AspToAspX_Page_Init ( )
    ASPX_PHOTOHEAD.AspToAspX_Page_Init ( )
    Response.Write ( "<div class=""stage"">" & Chr ( 13 ) ) '25
    Response.Write ( "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" id=""layout"">" & Chr ( 13 ) ) '26
    Response.Write ( "<tr>" & Chr ( 13 ) ) '27
    Response.Write ( "<td valign=""top"" class=""c2t3"">" & Chr ( 13 ) ) '28
    Response.Write ( "<div id=""mod_profile"" class=""mod"" rel=""drag"">" & Chr ( 13 ) ) '29
    ASPX_USERCALOG.AspToAspX_Page_Init ( )
    Response.Write ( "</div>" & Chr ( 13 ) ) '31
    Response.Write ( "</td>" & Chr ( 13 ) ) '32
    Response.Write ( "          <td valign=""top"" class=""c2t1""> " & Chr ( 13 ) ) '33
    Response.Write ( "            <div id=""m_blog"" class=""modbox"">" & Chr ( 13 ) ) '34
    Response.Write ( "              <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & Chr ( 13 ) ) '35
    Response.Write ( "                <tr> " & Chr ( 13 ) ) '36
    Response.Write ( "                  <td width=""64%"" height=""35"" class=new14><div class=""opt""><img src=""blogimages/up.gif""> " & Chr ( 13 ) ) '37
    Response.Write ( "                    <strong><a href=""up_photo.aspx"">上传照片到我的相册</a></strong></div></td>" & Chr ( 13 ) ) '38
    Response.Write ( "                  <td width=""7%"" class=new14>&nbsp;</td>" & Chr ( 13 ) ) '39
    Response.Write ( "                  <td width=""29%"" class=new14><div class=""opt""><img src=""blogimages/wwwup.gif"" width=""12"" height=""12""> " & Chr ( 13 ) ) '40
    Response.Write ( "                    <a href=""postpic.aspx""><strong>网上传图</strong></a></div></td>" & Chr ( 13 ) ) '41
    Response.Write ( "                </tr>" & Chr ( 13 ) ) '42
    Response.Write ( "              </table>" & Chr ( 13 ) ) '43
    Response.Write ( "              <table width=""100%""  border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '44
    Response.Write ( "                <tr> " & Chr ( 13 ) ) '45
    Response.Write ( "                  <td width=""100%"" height=""1"" bgcolor=""#336699"" class=new14><spacer height=""1"" type=""block""></td>" & Chr ( 13 ) ) '46
    Response.Write ( "                </tr>" & Chr ( 13 ) ) '47
    Response.Write ( "              </table>" & Chr ( 13 ) ) '48
    Response.Write ( "              <br>" & Chr ( 13 ) ) '49
    Response.Write ( "              <table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""0"" align=""center"">" & Chr ( 13 ) ) '50
    Response.Write ( "                <tr align=center> " & Chr ( 13 ) ) '51
    Response.Write ( "                  " ) '52
    AspToAspX_Str = "select * from " & ft & "ftbbs_upload where (bbs_blog_type=2 or bbs_blog_type=1) and clubuser_id=" & AspToAspX_CInt ( getcookie ( "clubuser_id" ) ) & " " & typestr & " order by id desc" '53
    rs = New ADODB.Recordset ( ) '54
    rs.Open ( AspToAspX_Str , conn , 3 , 1 ) '55
    page = Request ( "page" ) '56
    If AspToAspX_CheckDBNull ( page ) = EmptyString.Value Then '57
        page = 1 '58
    Else '59
        page = AspToAspX_CInt ( trim ( Request ( "page" ) ) ) '60
    End If '61
    ipagesize = 20 '62
    rs.pagesize = ipagesize '63
    If Not rs.EOF Then '64
        rs.absolutepage = page '65
        i = 0 '66
        Do While Not rs.EOF '67
            photourl = "" '68
            photourl = AspToAspX_CheckDBNull(rs.Fields ( "upload_pic" ) .Value) '69
            Response.Write ( vbCrLf )
            Response.Write ( "                  <td><div class=""opt""><img src=""" ) '71
            Response.Write ( photourl ) '71
            Response.Write ( """ width=""150"" border=0><br>" & Chr ( 13 ) ) '71
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "   " ) '72
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "bbs_blog_type" ) .Value) ) = 2 Then '72
                Response.Write ( " " & Chr ( 13 ) ) '72
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "    <a href=""edit_photo.aspx?id=" ) '73
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '73
                Response.Write ( """>修改</a> " & Chr ( 13 ) ) '73
                Response.Write ( "                    <A HREF=""flag_photo.aspx?id=" ) '74
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '74
                Response.Write ( "&flag=1"">[删除]</A> " & Chr ( 13 ) ) '74
                Response.Write ( "                    <a href=""flag_photo.aspx?id=" ) '75
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '75
                Response.Write ( "&flag=2"">设为形象照</a>" & Chr ( 13 ) ) '75
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "   " ) '76
            Else '76
            Response.Write ( vbCrLf )
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "    <A HREF=""flag_photo.aspx?id=" ) '77
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '77
                Response.Write ( "&flag=1"">[删除]</A>" & Chr ( 13 ) ) '77
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "   " ) '78
            End If '78
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "   </div>" & Chr ( 13 ) ) '79
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</td>" & Chr ( 13 ) ) '80
            Response.Write ( "                  " ) '81
            i = i + 1 '82
            If AspToAspX_CheckDBNull ( i Mod 3 ) = 0 Then '83
                Response.Write ( "<tr align=center>" ) '84
            End If '85
        If AspToAspX_CheckDBNull ( i ) > = ipagesize Then
Exit Do
End If
    '87
            rs.MoveNext ( ) '88
        Loop '89
        Response.Write ( vbCrLf )
        Response.Write ( "                </tr>" & Chr ( 13 ) ) '91
        Response.Write ( "                <tr align=center> " & Chr ( 13 ) ) '92
        Response.Write ( "                  <td colspan=""15""> <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '93
        Response.Write ( "                      <tr> " & Chr ( 13 ) ) '94
        Response.Write ( "                        <td width=""77%"" height=""30"" align=""center""> <div class=""opt"">共" ) '95
        Response.Write ( rs.RecordCount ) '95
        Response.Write ( "张 " & Chr ( 13 ) ) '95
        Response.Write ( "                            第" ) '96
        Response.Write ( page ) '96
        Response.Write ( "页/共" ) '96
        Response.Write ( rs.pagecount ) '96
        Response.Write ( "页　 " & Chr ( 13 ) ) '96
        Response.Write ( "                            " ) '97
        If AspToAspX_CheckDBNull ( page ) > 1 Then '97
        Response.Write ( vbCrLf )
            Response.Write ( "                            <a href=""" ) '98
            Response.Write ( AspToAspX_GetRequestServerVariables ( "script_name" ) ) '98
            Response.Write ( "?page=1&photo_name=" ) '98
            Response.Write ( photo_name ) '98
            Response.Write ( """>［首　页］</a> " & Chr ( 13 ) ) '98
            Response.Write ( "                            " ) '99
        Else '99
        Response.Write ( vbCrLf )
            Response.Write ( "                            ［首　页］ " & Chr ( 13 ) ) '100
            Response.Write ( "                            " ) '101
        End If '101
        Response.Write ( vbCrLf )
        Response.Write ( "                            " ) '102
        If AspToAspX_CheckDBNull ( page ) > 1 Then '102
        Response.Write ( vbCrLf )
            Response.Write ( "                            <a href=""" ) '103
            Response.Write ( AspToAspX_GetRequestServerVariables ( "script_name" ) ) '103
            Response.Write ( "?page=" ) '103
            Response.Write ( page - 1 ) '103
            Response.Write ( "&photo_name=" ) '103
            Response.Write ( photo_name ) '103
            Response.Write ( """>［上一页］</a> " & Chr ( 13 ) ) '103
            Response.Write ( "                            " ) '104
        Else '104
        Response.Write ( vbCrLf )
            Response.Write ( "                            ［上一页］ " & Chr ( 13 ) ) '105
            Response.Write ( "                            " ) '106
        End If '106
        Response.Write ( vbCrLf )
        Response.Write ( "                            " ) '107
        If AspToAspX_CheckDBNull ( page ) < rs.pagecount Then '107
        Response.Write ( vbCrLf )
            Response.Write ( "                            <a href=""" ) '108
            Response.Write ( AspToAspX_GetRequestServerVariables ( "script_name" ) ) '108
            Response.Write ( "?page=" ) '108
            Response.Write ( page + 1 ) '108
            Response.Write ( "&photo_name=" ) '108
            Response.Write ( photo_name ) '108
            Response.Write ( """>［下一页］</a> " & Chr ( 13 ) ) '108
            Response.Write ( "                            " ) '109
        Else '109
        Response.Write ( vbCrLf )
            Response.Write ( "                            ［下一页］ " & Chr ( 13 ) ) '110
            Response.Write ( "                            " ) '111
        End If '111
        Response.Write ( vbCrLf )
        Response.Write ( "                            " ) '112
        If AspToAspX_CheckDBNull ( page ) < > rs.pagecount Then '112
        Response.Write ( vbCrLf )
            Response.Write ( "                            <a href=""" ) '113
            Response.Write ( AspToAspX_GetRequestServerVariables ( "script_name" ) ) '113
            Response.Write ( "?page=" ) '113
            Response.Write ( rs.pagecount ) '113
            Response.Write ( "&photo_name=" ) '113
            Response.Write ( photo_name ) '113
            Response.Write ( """>［尾　页］</a> " & Chr ( 13 ) ) '113
            Response.Write ( "                            " ) '114
        Else '114
        Response.Write ( vbCrLf )
            Response.Write ( "                            ［尾　页］ " & Chr ( 13 ) ) '115
            Response.Write ( "                            " ) '116
        End If '116
        Response.Write ( vbCrLf )
        Response.Write ( "                          </div></td>" & Chr ( 13 ) ) '117
        Response.Write ( "                        <form name=""form2"" method=""post"" action=""" ) '118
        Response.Write ( AspToAspX_GetRequestServerVariables ( "script_name" ) ) '118
        Response.Write ( """>" & Chr ( 13 ) ) '118
        Response.Write ( "                          <td width=""23%""> <div align=""center"">第 " & Chr ( 13 ) ) '119
        Response.Write ( "                              <input type=""text"" name=""page"" size=""3"">页 " & Chr ( 13 ) ) '120
        Response.Write ( "                              <INPUT TYPE=""hidden"" name=""photo_name"" value=""" ) '121
        Response.Write ( photo_name ) '121
        Response.Write ( """>" & Chr ( 13 ) ) '121
        Response.Write ( "                              <input type=""submit"" name=""Submit"" value=""GO！"" class=""button"">" & Chr ( 13 ) ) '122
        Response.Write ( "                            </div></td>" & Chr ( 13 ) ) '123
        Response.Write ( "                        </form>" & Chr ( 13 ) ) '124