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

    Public AspToAspX_Host_Class_Object As Object

Public userid
Public photo_name
Public posturl
Public sql
Public rs As ADODB.Recordset
Public AspToAspX_Sign
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 photo_note
    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_MEMBERINFO As _MEMBERINFO
    Public ASPX_USERNAV As _USERNAV
    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_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_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_MEMBERINFO.AspToAspX_UnloadIncludeFiles()
        ASPX_MEMBERINFO = Nothing
        ASPX_USERNAV.AspToAspX_UnloadIncludeFiles()
        ASPX_USERNAV = 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 ( )
    userid = getcookie ( "clubuser_id" ) '6
    Response.Write ( vbCrLf )
    ASPX_MEMBERINFO.AspToAspX_Page_Init ( )
    If AspToAspX_CheckDBNull ( Request ( "act" ) ) = "y" Then '10
        photo_name = CheckStr ( Request ( "photo_name" ) ) '12
        posturl = Request ( "posturl" ) '13
        sql = "select top 1 * from " & ft & "ftblog_type where userid=" & userid & " and blogphoto=1 and blogtype='" & photo_name & "'" '14
        rs = New ADODB.Recordset ( ) '15
        rs.Open ( sql , conn , 1 , 3 ) '16
        If Not rs.EOF Then '17
            AspToAspX_Sign = AspToAspX_CheckDBNull(rs.Fields ( "sign" ) .Value) '18
        End If '19
        rs.Close ( ) '20
        sql = "insert into " & ft & "ftbbs_upload (upload_pic,file_type,upload_size,userid,pic_note,photo_name,sign,bbs_blog_type,clubuser_id) values('" & posturl & "',1,0,'" & username & "','" & photo_note & "','" & photo_name & "'," & AspToAspX_Sign & ",1," & userid & ")" '21
        conn.Execute ( sql ) '22
    End If '23
    Response.Write ( vbCrLf )
    Response.Write ( "<html><head><meta http-equiv=content-type content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '25
    Response.Write ( "</head>" & Chr ( 13 ) ) '26
    Response.Write ( "<script language=""javascript"">" & Chr ( 13 ) ) '27
    Response.Write ( "<!--" & Chr ( 13 ) ) '28
    Response.Write ( "" & Chr ( 9 ) & "function check(form)" & Chr ( 13 ) ) '29
    Response.Write ( "" & Chr ( 9 ) & "{" & Chr ( 9 ) & "" & Chr ( 13 ) ) '30
    Response.Write ( "    if (form.photo_name.value=="""")" & Chr ( 13 ) ) '31
    Response.Write ( "    " & Chr ( 9 ) & "{" & Chr ( 13 ) ) '32
    Response.Write ( "    " & Chr ( 9 ) & Chr ( 9 ) & "alert(""请选择你的相册名称！"");" & Chr ( 13 ) ) '33
    Response.Write ( "    " & Chr ( 9 ) & Chr ( 9 ) & "form.photo_name.focus();" & Chr ( 13 ) ) '34
    Response.Write ( "    " & Chr ( 9 ) & Chr ( 9 ) & "return false;" & Chr ( 13 ) ) '35
    Response.Write ( "  " & Chr ( 9 ) & "}" & Chr ( 13 ) ) '36
    Response.Write ( "    if (form.posturl.value==""""||form.posturl.value==""http://"")" & Chr ( 13 ) ) '37
    Response.Write ( "    " & Chr ( 9 ) & "{" & Chr ( 13 ) ) '38
    Response.Write ( "    " & Chr ( 9 ) & Chr ( 9 ) & "alert(""请填写相片的URL地址！"");" & Chr ( 13 ) ) '39
    Response.Write ( "    " & Chr ( 9 ) & Chr ( 9 ) & "form.posturl.focus();" & Chr ( 13 ) ) '40
    Response.Write ( "    " & Chr ( 9 ) & Chr ( 9 ) & "return false;" & Chr ( 13 ) ) '41
    Response.Write ( "  " & Chr ( 9 ) & "}" & Chr ( 13 ) ) '42
    Response.Write ( "    return true;" & Chr ( 13 ) ) '43
    Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '44
    Response.Write ( "//-->" & Chr ( 13 ) ) '45
    Response.Write ( "</script>" & Chr ( 13 ) ) '46
    Response.Write ( "<body>" & Chr ( 13 ) ) '47
    Response.Write ( "<center>" & Chr ( 13 ) ) '48
    Response.Write ( "<title>上传相册</title>" & Chr ( 13 ) ) '49
    Response.Write ( "<link rel=""stylesheet"" type=""text/css"" href=""" ) '50
    Response.Write ( cssfile ) '50
    Response.Write ( """>" & Chr ( 13 ) ) '50
    ASPX_USERNAV.AspToAspX_Page_Init ( )
    Response.Write ( "<div id=""main"" align=""left"">" & Chr ( 13 ) ) '52
    Response.Write ( "<script language=javascript src=""js/windowsize.js""></script>" & Chr ( 13 ) ) '53
    Response.Write ( "" & Chr ( 9 ) & "<div id=""header"">" & Chr ( 13 ) ) '54
    Response.Write ( "" & Chr ( 9 ) & "<div class=""lc""><div class=""rc""></div></div>" & Chr ( 13 ) ) '55
    Response.Write ( "" & Chr ( 9 ) & "<div class=""tit""><a href=""home.aspx?userid=" ) '56
    Response.Write ( userid ) '56
    Response.Write ( """ class=""titlink"" title=""" ) '56
    Response.Write ( username ) '56
    Response.Write ( "的空间"">" ) '56
    Response.Write ( username ) '56
    Response.Write ( "</a></div>" & Chr ( 13 ) ) '56
    Response.Write ( "" & Chr ( 9 ) & "<div class=""desc"">" ) '57
    Response.Write ( homepagetitle ) '57
    Response.Write ( "</div>" & Chr ( 13 ) ) '57
    Response.Write ( "" & Chr ( 9 ) & "<div id=""tabline"">&nbsp;</div>" & Chr ( 13 ) ) '58
    Response.Write ( "" & Chr ( 9 ) & "<div id=""tab""><a href=""home.aspx?userid=" ) '59
    Response.Write ( userid ) '59
    Response.Write ( """ class=""on"">主页</a><a href=""boker.aspx?userid=" ) '59
    Response.Write ( userid ) '59
    Response.Write ( """>博客</a><span>|</span><a href=""myphoto.aspx?userid=" ) '59
    Response.Write ( userid ) '59
    Response.Write ( """>相册</a><span>|</span><a href=""myinfo.aspx?userid=" ) '59
    Response.Write ( userid ) '59
    Response.Write ( """>个人档案</a>" & Chr ( 13 ) ) '59
    Response.Write ( "" & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '60
    Response.Write ( "</div>" & Chr ( 13 ) ) '61
    Response.Write ( "<div class=""stage"">" & Chr ( 13 ) ) '62
    Response.Write ( "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" id=""layout"">" & Chr ( 13 ) ) '63
    Response.Write ( "<tr>" & Chr ( 13 ) ) '64
    Response.Write ( "<td valign=""top"" class=""c2t3"">" & Chr ( 13 ) ) '65
    Response.Write ( "<div id=""mod_profile"" class=""mod"" rel=""drag"">" & Chr ( 13 ) ) '66
    ASPX_USERCALOG.AspToAspX_Page_Init ( )
    Response.Write ( "</div>" & Chr ( 13 ) ) '68
    Response.Write ( "</td>" & Chr ( 13 ) ) '69
    Response.Write ( "          <td valign=""top"" class=""c2t1""> " & Chr ( 13 ) ) '70
    Response.Write ( "            <div id=""mod_bloglist"" class=""mod"" rel=""drag"">" & Chr ( 13 ) ) '71
    Response.Write ( "                <table width=""77%"" border=""0"" align=""center"" class=""maintbbg"" cellspacing=""1"" cellpadding=""2"">" & Chr ( 13 ) ) '72
    Response.Write ( "                  <form name=""form1"" method=""post"" action="""" onsubmit=""return check(this)"">" & Chr ( 13 ) ) '73
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "  <tr class=""f12bg""> " & Chr ( 13 ) ) '74
    Response.Write ( "                    <td height=""50"" colspan=""2""> <div align=""center""><strong>上 " & Chr ( 13 ) ) '75
    Response.Write ( "                        传 相 片</strong></div></td>" & Chr ( 13 ) ) '76
    Response.Write ( "                  </tr>" & Chr ( 13 ) ) '77
    Response.Write ( "                  <tr class=""f12bg""> " & Chr ( 13 ) ) '78
    Response.Write ( "                    <td height=""30"">" & Chr ( 13 ) ) '79
    Response.Write ( "<div align=""right"">相册名称：</div></td>" & Chr ( 13 ) ) '80
    Response.Write ( "                    <td height=""25"">" & Chr ( 13 ) ) '81
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<select name=""photo_name"" id=""photo_name"">" & Chr ( 13 ) ) '82
    Response.Write ( "                        " ) '83
    sql = "select * from " & ft & "ftblog_type where userid=" & userid & " and blogphoto=1 order by indate desc" '84
    rs = New ADODB.Recordset ( ) '85
    rs.Open ( sql , conn , 1 , 3 ) '86
    Do While Not rs.EOF '87
        Response.Write ( vbCrLf )
        Response.Write ( "                        <option value=""" ) '89
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) ) '89
        Response.Write ( """>" ) '89
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) ) '89
        Response.Write ( "</option>" & Chr ( 13 ) ) '89
        Response.Write ( "                        " ) '90
        rs.MoveNext ( ) '91
    Loop '92
    rs.Close ( ) '93
    Response.Write ( vbCrLf )
    Response.Write ( "                      </select>" & Chr ( 13 ) ) '95
    Response.Write ( "                      <a href=""blog_group.aspx?nav=a"">创建相册</a></td>" & Chr ( 13 ) ) '96
    Response.Write ( "                  </tr>" & Chr ( 13 ) ) '97
    Response.Write ( "                  <tr> " & Chr ( 13 ) ) '98
    Response.Write ( "                    <td width=""23%"" height=""11"" class=""maintbtr3"" valign=""middle""> " & Chr ( 13 ) ) '99
    Response.Write ( "                      <div align=""right"">相片URL：</div></td>" & Chr ( 13 ) ) '100
    Response.Write ( "                    <td width=""77%"" height=""30"" class=""maintbtr3""><input name=""posturl"" type=""text"" id=""posturl"" value=""http://"" size=""35""> " & Chr ( 13 ) ) '101
    Response.Write ( "                    </td>" & Chr ( 13 ) ) '102
    Response.Write ( "                  </tr>" & Chr ( 13 ) ) '103
    Response.Write ( "                  <tr> " & Chr ( 13 ) ) '104
    Response.Write ( "                    <td width=""23%"" height=""11"" class=""maintbtr3"" valign=""middle""> " & Chr ( 13 ) ) '105
    Response.Write ( "                      <div align=""right"">相片说明：</div></td>" & Chr ( 13 ) ) '106
    Response.Write ( "                    <td width=""77%"" height=""30"" class=""maintbtr3""><input name=""photo_note"" type=""text"" id=""photo_note"" size=""35"" maxlength=""30""> " & Chr ( 13 ) ) '107
    Response.Write ( "                    </td>" & Chr ( 13 ) ) '108
    Response.Write ( "                  </tr>" & Chr ( 13 ) ) '109
    Response.Write ( "                  <tr> " & Chr ( 13 ) ) '110
    Response.Write ( "                    <td height=""50"" colspan=""2"" class=""maintbtr3""> <div align=""center"">" & Chr ( 13 ) ) '111
    Response.Write ( "                        <input name=""act"" type=""hidden"" id=""act"" value=""y"">" & Chr ( 13 ) ) '112
    Response.Write ( "                        <input type=""submit"" name=""Submit"" value=""提交相片"" class=button>" & Chr ( 13 ) ) '113
    Response.Write ( "                      </div></td>" & Chr ( 13 ) ) '114
    Response.Write ( "                  </tr>" & Chr ( 13 ) ) '115
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</form>" & Chr ( 13 ) ) '116
    Response.Write ( "                </table>" & Chr ( 13 ) ) '117
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '118
    Response.Write ( "</td>" & Chr ( 13 ) ) '119
    Response.Write ( "</tr></table>" & Chr ( 13 ) ) '120
    Response.Write ( "</div>" & Chr ( 13 ) ) '121
    Response.Write ( "</div>" & Chr ( 13 ) ) '122
    Response.Write ( "<br><center>" & Chr ( 13 ) ) '123
    ASPX_TAIL.AspToAspX_Page_Init ( )
    Response.Write ( "</center>" & Chr ( 13 ) ) '125
    Response.Write ( "</center>" & Chr ( 13 ) ) '126
    Response.Write ( "</body>" & Chr ( 13 ) ) '127
    Response.Write ( "</html>" & Chr ( 13 ) ) '128
    closedb ( ) '129
    Response.Write ( vbCrLf )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("postpic_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
#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