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

    Public AspToAspX_Host_Class_Object As Object

Public userid
Public sql
Public rs As ADODB.Recordset
Public page
Public ipagesize
Public i
Public photourl
Public AspToAspX_Str
Public rsnum
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
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_PUBLICFUN As _INC_PUBLICFUN
    Public ASPX_GBTOUTF8 As _GBTOUTF8
    Public ASPX_MEMBERINFO As _MEMBERINFO
    Public ASPX_USERNAV As _USERNAV
    Public ASPX_PHOTOHEAD As _PHOTOHEAD
    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_PUBLICFUN = New _INC_PUBLICFUN()
        ASPX_INC_PUBLICFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_PUBLICFUN.AspToAspX_InitIncludeFiles()
        ASPX_GBTOUTF8 = New _GBTOUTF8()
        ASPX_GBTOUTF8.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_GBTOUTF8.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_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_PUBLICFUN.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_PUBLICFUN = Nothing
        ASPX_GBTOUTF8.AspToAspX_UnloadIncludeFiles()
        ASPX_GBTOUTF8 = Nothing
        ASPX_MEMBERINFO.AspToAspX_UnloadIncludeFiles()
        ASPX_MEMBERINFO = Nothing
        ASPX_USERNAV.AspToAspX_UnloadIncludeFiles()
        ASPX_USERNAV = Nothing
        ASPX_PHOTOHEAD.AspToAspX_UnloadIncludeFiles()
        ASPX_PHOTOHEAD = 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_PUBLICFUN.AspToAspX_Page_Init ( )
    ASPX_GBTOUTF8.AspToAspX_Page_Init ( )
    userid = AspToAspX_CInt ( Request ( "userid" ) ) '5
    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 ) ) '8
    Response.Write ( "<title>" ) '9
    Response.Write ( username ) '9
    Response.Write ( "的个人相册</title>" & Chr ( 13 ) ) '9
    Response.Write ( "<link rel=""stylesheet"" type=""text/css"" href=""" ) '10
    Response.Write ( cssfile ) '10
    Response.Write ( """>" & Chr ( 13 ) ) '10
    Response.Write ( "</head>" & Chr ( 13 ) ) '11
    Response.Write ( "<script language=""javascript"" src=""js/publicfun.js""></script>" & Chr ( 13 ) ) '12
    Response.Write ( "<body>" & Chr ( 13 ) ) '13
    Response.Write ( "<center>" & Chr ( 13 ) ) '14
    ASPX_USERNAV.AspToAspX_Page_Init ( )
    ASPX_PHOTOHEAD.AspToAspX_Page_Init ( )
    Response.Write ( "<div class=""stage"">" & Chr ( 13 ) ) '17
    Response.Write ( "<div class=""stagepad"">" & Chr ( 13 ) ) '18
    Response.Write ( "<div style=""width:100%"">" & Chr ( 13 ) ) '19
    Response.Write ( "" & Chr ( 9 ) & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""modth"">" & Chr ( 13 ) ) '20
    Response.Write ( "" & Chr ( 9 ) & "<tr><td class=""modtl"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '21
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap>" & Chr ( 13 ) ) '22
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<table border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td>" & Chr ( 13 ) ) '23
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""modhead""><span class=""modtit"">相册列表</span> </div>" & Chr ( 13 ) ) '24
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</td></tr></table>" & Chr ( 13 ) ) '25
    Response.Write ( "" & Chr ( 9 ) & "</td>" & Chr ( 13 ) ) '26
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap align=""right""></td>" & Chr ( 13 ) ) '27
    Response.Write ( "" & Chr ( 9 ) & "<td class=""modtr"" width=""7"">&nbsp;</td>" & Chr ( 13 ) ) '28
    Response.Write ( "" & Chr ( 9 ) & "</tr></table>" & Chr ( 13 ) ) '29
    Response.Write ( "<div class=""modbox"">" & Chr ( 13 ) ) '30
    Response.Write ( "<div style=""width:100%"">" & Chr ( 13 ) ) '31
    Response.Write ( "" & Chr ( 9 ) & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""modact"">" & Chr ( 13 ) ) '32
    Response.Write ( "" & Chr ( 9 ) & "<tr>" & Chr ( 13 ) ) '33
    sql = "SELECT * FROM " & ft & "ftbbs_upload WHERE (id IN(SELECT MAX(id) FROM " & ft & "ftbbs_upload GROUP BY photo_name)) and (bbs_blog_type=1 or bbs_blog_type=2) and (sign=0 or sign=2) and clubuser_id=" & userid & " order by indate desc" '35
    rs = New ADODB.Recordset ( ) '36
    rs.Open ( sql , conn , 3 , 1 ) '37
    page = Request ( "page" ) '38
    If AspToAspX_CheckDBNull ( page ) = EmptyString.Value Then '39
        page = 1 '40
    Else '41
        page = AspToAspX_CInt ( trim ( Request ( "page" ) ) ) '42
    End If '43
    ipagesize = 24 '44
    rs.pagesize = ipagesize '45
    If Not rs.EOF Then '46
        rs.absolutepage = page '47
        i = 0 '48
        Do While Not rs.EOF '49
            photourl = "" '50
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "file_type" ) .Value) ) = 1 Then '51
                photourl = AspToAspX_CheckDBNull(rs.Fields ( "upload_pic" ) .Value) '52
            Else '53
                photourl = AspToAspX_CheckDBNull(rs.Fields ( "upload_pic" ) .Value) '54
            End If '55
            AspToAspX_Str = "select count(id) as k from " & ft & "ftbbs_upload where photo_name='" & AspToAspX_CheckDBNull(rs.Fields ( "photo_name" ) .Value) & "' and (bbs_blog_type=1 or bbs_blog_type=2) and clubuser_id=" & userid '56
            rsnum = conn.Execute ( AspToAspX_Str ) '57
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & "<td align=""center"" valign=""bottom"" width=""25%"">" & Chr ( 13 ) ) '59
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<table border=""0"" cellspacing=""0"" cellpadding=""0"">" & Chr ( 13 ) ) '60
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<tr>" & Chr ( 13 ) ) '61
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<td><img src=""blogimages/pbtl.gif"" border=""0""></td>" & Chr ( 13 ) ) '62
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<td background=""blogimages/pbtc.gif""></td>" & Chr ( 13 ) ) '63
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<td ><img src=""blogimages/pbtr.gif"" border=""0""></td>" & Chr ( 13 ) ) '64
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</tr>" & Chr ( 13 ) ) '65
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<tr>" & Chr ( 13 ) ) '66
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <td background=""blogimages/pblc.gif""></td>" & Chr ( 13 ) ) '67
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <td>" & Chr ( 13 ) ) '68
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  " ) '69
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "sign" ) .Value) ) = 2 Then '69
            Response.Write ( vbCrLf )
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <a onClick=checkpwd('" ) '70
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '70
                Response.Write ( "','" ) '70
                Response.Write ( userid ) '70
                Response.Write ( "','" ) '70
                Response.Write ( GBtoUTF8 ( AspToAspX_CheckDBNull(rs.Fields ( "photo_name" ) .Value) ) ) '70
                Response.Write ( "') href=""#""><img src=""blogimages/pwdchk.gif"" width=""200"" border=""0""></a>" & Chr ( 13 ) ) '70
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  " ) '71
            Else '71
            Response.Write ( vbCrLf )
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  <a href=""disphoto.aspx?id=" ) '72
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '72
                Response.Write ( "&userid=" ) '72
                Response.Write ( userid ) '72
                Response.Write ( "&photo_name=" ) '72
                Response.Write ( GBtoUTF8 ( AspToAspX_CheckDBNull(rs.Fields ( "photo_name" ) .Value) ) ) '72
                Response.Write ( """><img src=""" ) '72
                Response.Write ( photourl ) '72
                Response.Write ( """ width=""200"" border=""0""></a>" & Chr ( 13 ) ) '72
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  " ) '73
            End If '73
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "  </td>" & Chr ( 13 ) ) '74
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<td background=""blogimages/pbrc.gif""></td>" & Chr ( 13 ) ) '75
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</tr>" & Chr ( 13 ) ) '76
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<tr>" & Chr ( 13 ) ) '77
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<td><img src=""blogimages/pbbl.gif"" border=""0""></td>" & Chr ( 13 ) ) '78
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<td background=""blogimages/pbbc.gif""></td>" & Chr ( 13 ) ) '79
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<td><img src=""blogimages/pbbr.gif"" border=""0""></td>" & Chr ( 13 ) ) '80
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</tr>" & Chr ( 13 ) ) '81
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</table>" & Chr ( 13 ) ) '82
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""tit"">" & Chr ( 13 ) ) '83
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '84
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "sign" ) .Value) ) = 2 Then '84
            Response.Write ( vbCrLf )
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<a onClick=checkpwd('" ) '85
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '85
                Response.Write ( "','" ) '85
                Response.Write ( userid ) '85
                Response.Write ( "','" ) '85
                Response.Write ( GBtoUTF8 ( AspToAspX_CheckDBNull(rs.Fields ( "photo_name" ) .Value) ) ) '85
                Response.Write ( "') href=""#"">" ) '85
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "photo_name" ) .Value) ) '85
                Response.Write ( "</a>" & Chr ( 13 ) ) '85
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '86
            Else '86
            Response.Write ( vbCrLf )
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<a href=""disphoto.aspx?id=" ) '87
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '87
                Response.Write ( "&userid=" ) '87
                Response.Write ( userid ) '87
                Response.Write ( "&photo_name=" ) '87
                Response.Write ( GBtoUTF8 ( AspToAspX_CheckDBNull(rs.Fields ( "photo_name" ) .Value) ) ) '87
                Response.Write ( """>" ) '87
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "photo_name" ) .Value) ) '87
                Response.Write ( "</a>" & Chr ( 13 ) ) '87
                Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '88
            End If '88
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<span class=""count""><font color=""#000000"">(共" ) '89
            Response.Write ( AspToAspX_CheckDBNull(rsnum.Fields ( "k" ) .Value) ) '89
            Response.Write ( "张)</font></span></div>" & Chr ( 9 ) & "" & Chr ( 13 ) ) '89
            Response.Write ( "" & Chr ( 9 ) & "</td>" & Chr ( 13 ) ) '90
            Response.Write ( "  " ) '91
            i = i + 1 '92
            If AspToAspX_CheckDBNull ( i Mod 3 ) = 0 Then '93
                Response.Write ( "<tr align=center>" ) '94
            End If '95
            rs.MoveNext ( ) '96
        If AspToAspX_CheckDBNull ( i ) > = ipagesize Then
Exit Do
End If
    '97
        Loop '98
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & "</tr>" & Chr ( 13 ) ) '100
        Response.Write ( "  <tr align=center> " & Chr ( 13 ) ) '101
        Response.Write ( "    <td colspan=""15""> <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""modact"">" & Chr ( 13 ) ) '102
        Response.Write ( "                    <tr> " & Chr ( 13 ) ) '103
        Response.Write ( "                      <td width=""77%""> " & Chr ( 13 ) ) '104
        Response.Write ( "                        <div align=""center""><font color=""#000000"">共" ) '105
        Response.Write ( rs.RecordCount ) '105
        Response.Write ( "个 第" ) '105
        Response.Write ( page ) '105
        Response.Write ( "页/共" ) '105
        Response.Write ( rs.pagecount ) '105
        Response.Write ( "页　 " & Chr ( 13 ) ) '105
        Response.Write ( "              " ) '106
        If AspToAspX_CheckDBNull ( page ) > 1 Then '106
        Response.Write ( vbCrLf )
            Response.Write ( "              <a href=""myphoto.aspx?page=1&userid=" ) '107
            Response.Write ( userid ) '107
            Response.Write ( """>［首　页］</a> " & Chr ( 13 ) ) '107
            Response.Write ( "              " ) '108
        Else '108
        Response.Write ( vbCrLf )
            Response.Write ( "              ［首　页］ " & Chr ( 13 ) ) '109
            Response.Write ( "              " ) '110
        End If '110
        Response.Write ( vbCrLf )
        Response.Write ( "              " ) '111
        If AspToAspX_CheckDBNull ( page ) > 1 Then '111
        Response.Write ( vbCrLf )
            Response.Write ( "              <a href=""myphoto.aspx?page=" ) '112
            Response.Write ( page - 1 ) '112
            Response.Write ( "&userid=" ) '112
            Response.Write ( userid ) '112
            Response.Write ( """>［上一页］</a> " & Chr ( 13 ) ) '112
            Response.Write ( "              " ) '113
        Else '113