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

    Public AspToAspX_Host_Class_Object As Object

Public rssql,getstring
Public wzcount,wzrep,wzpage,wzpagecount,wzpagerep,boardstr
Public i,bgcolor
Public z
Public root
Public pagestr
Public defaulthome
Public homepage
Public strsql
Public rs As ADODB.Recordset
Public bbstitleid
Public indbdate
Public year1
Public month1
Public day1
Public hour1
Public minute1
Public titlecolor
Public bbstitle
Public title
Public reinfo
Public rearr
Public arrnum
Public replydate
Public replyuser
Public pagefilename
Public htm_ext
Public pagenum
Public k
Public page
Public pagehtm
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public userinfo
Public userinfox
Public sql
Public num
Public smsnum
    Public ASPX_CONN As _CONN
    Public ASPX_BBSUSER As _BBSUSER
    Public ASPX_FTBBS_NAV As _FTBBS_NAV
    Public ASPX_PAGEFUN As _PAGEFUN
    Public ASPX_INC_BBSTAIL_HTM As _INC_BBSTAIL_HTM
#Region "..."
    Public Sub AspToAspX_InitIncludeFiles()
        ASPX_CONN = New _CONN()
        ASPX_CONN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_CONN.AspToAspX_InitIncludeFiles()
        ASPX_BBSUSER = New _BBSUSER()
        ASPX_BBSUSER.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_BBSUSER.AspToAspX_InitIncludeFiles()
        ASPX_FTBBS_NAV = New _FTBBS_NAV()
        ASPX_FTBBS_NAV.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_FTBBS_NAV.AspToAspX_InitIncludeFiles()
        ASPX_PAGEFUN = New _PAGEFUN()
        ASPX_PAGEFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_PAGEFUN.AspToAspX_InitIncludeFiles()
        ASPX_INC_BBSTAIL_HTM = New _INC_BBSTAIL_HTM()
        ASPX_INC_BBSTAIL_HTM.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_BBSTAIL_HTM.AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
        ASPX_CONN.AspToAspX_UnloadIncludeFiles()
        ASPX_CONN = Nothing
        ASPX_BBSUSER.AspToAspX_UnloadIncludeFiles()
        ASPX_BBSUSER = Nothing
        ASPX_FTBBS_NAV.AspToAspX_UnloadIncludeFiles()
        ASPX_FTBBS_NAV = Nothing
        ASPX_PAGEFUN.AspToAspX_UnloadIncludeFiles()
        ASPX_PAGEFUN = Nothing
        ASPX_INC_BBSTAIL_HTM.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_BBSTAIL_HTM = 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_BBSUSER.AspToAspX_Page_Init ( )
    ASPX_FTBBS_NAV.AspToAspX_Page_Init ( )
    ASPX_PAGEFUN.AspToAspX_Page_Init ( )
    FTBBS_HTML_MB ( ft ) '6
    root = "" '10
    pagestr = "" '11
    wzrep = Application ( "FTBBSMB" ) ( 5 , 0 ) '12
    defaulthome = Application ( "FTBBSMB" ) ( 31 , 0 ) '13
    homepage = ft_home ( defaulthome ) '14
    strsql = "select * from " & ft & "ftbbs_favorites," & ft & "bbstitle where " & ft & "ftbbs_favorites.bbstitleid = " & ft & "bbstitle.id and " & ft & "ftbbs_favorites.clubuser_name='" & getcookie ( "name" ) & "' order by " & ft & "ftbbs_favorites.id desc" '16
    rs = New ADODB.Recordset ( ) '17
    rs.Open ( strsql , conn , 1 , 1 ) '18
    Response.Write ( vbCrLf )
    Response.Write ( "<HTML><HEAD>" & Chr ( 13 ) ) '20
    Response.Write ( "<title>我的收藏夹</title>" & Chr ( 13 ) ) '21
    Response.Write ( "<META http-equiv=Content-Type content=text/html;charset=utf-8>" & Chr ( 13 ) ) '22
    Response.Write ( "<script language=javascript src=""inc/cookies.js""></script>" & Chr ( 13 ) ) '23
    Response.Write ( "<script>" & Chr ( 13 ) ) '24
    Response.Write ( "//载入上次cookies记录的样式" & 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=""style0""+stylecook;" & Chr ( 13 ) ) '37
    Response.Write ( "style=""main0""+stylecook+"".css"";" & Chr ( 13 ) ) '38
    Response.Write ( "strstyle=""<link href=\""css/""+style+""\""  rel=\""stylesheet\"" type=\""text/css\""> "";" & Chr ( 13 ) ) '39
    Response.Write ( "document.write(strstyle);" & Chr ( 13 ) ) '40
    Response.Write ( "</script>" & Chr ( 13 ) ) '41
    Response.Write ( "</HEAD>" & Chr ( 13 ) ) '42
    Response.Write ( "</head>" & Chr ( 13 ) ) '43
    Response.Write ( "<script language=""JavaScript"" src=""inc/Main.js""></script>" & Chr ( 13 ) ) '44
    Response.Write ( "<body>" & Chr ( 13 ) ) '45
    If AspToAspX_CheckDBNull ( getcookie ( "ftbbstype" ) ) = 1 Then '47
        Response.Write ( headhtml ) '48
    End If '49
    Response.Write ( vbCrLf )
    Response.Write ( "<table width=""99%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & Chr ( 13 ) ) '51
    Response.Write ( "  <tr>" & Chr ( 13 ) ) '52
    Response.Write ( "    <td> " & Chr ( 13 ) ) '53
    Response.Write ( "      <table width=""100%"" border=0 cellpadding=2 cellspacing=1 class=""maintbbg"">" & Chr ( 13 ) ) '54
    Response.Write ( "        <tbody>" & Chr ( 13 ) ) '55
    Response.Write ( "          <tr> " & Chr ( 13 ) ) '56
    Response.Write ( "            <td height=""25"" class=""f12bg"">&nbsp;" ) '57
    Response.Write ( userinfo ) '57
    Response.Write ( "</td>" & Chr ( 13 ) ) '57
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '58
    Response.Write ( "          <tr>" & Chr ( 13 ) ) '59
    Response.Write ( "            <td height=""25"" class=""maintbtr3"" align=""left"">&nbsp;<a href=""" ) '60
    Response.Write ( homepage ) '60
    Response.Write ( """>论坛首页</a> " & Chr ( 13 ) ) '60
    Response.Write ( "              >> 收藏夹</td>" & Chr ( 13 ) ) '61
    Response.Write ( "          </tr>" & Chr ( 13 ) ) '62
    Response.Write ( "        </tbody>" & Chr ( 13 ) ) '63
    Response.Write ( "      </table>" & Chr ( 13 ) ) '64
    Response.Write ( "" & Chr ( 9 ) & "  <script src=""listad.js""></script> " & Chr ( 13 ) ) '65
    Response.Write ( "     <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '66
    Response.Write ( "      <tr> " & Chr ( 13 ) ) '67
    Response.Write ( "          <td height=5 bgcolor=""#FFFFFF""><spacer height=""5"" type=""block""></td>" & Chr ( 13 ) ) '68
    Response.Write ( "      </tr>" & Chr ( 13 ) ) '69
    Response.Write ( "     </table>" & Chr ( 13 ) ) '70
    Response.Write ( "    </td>" & Chr ( 13 ) ) '71
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '72
    Response.Write ( "</table>" & Chr ( 13 ) ) '73
    Response.Write ( "<table width=""99%"" border=0 cellpadding=2 cellspacing=0 class=""listborder"" align=""center"">" & Chr ( 13 ) ) '74
    Response.Write ( "  <tbody>" & Chr ( 13 ) ) '75
    Response.Write ( "    <tr align=middle class=f12> " & Chr ( 13 ) ) '76
    Response.Write ( "      <td width=""5%"" height=""28"" class=""f12bg"">选择</td>" & Chr ( 13 ) ) '77
    Response.Write ( "      <td width=""52%"" class=""f12bg"">论坛主题</td>" & Chr ( 13 ) ) '78
    Response.Write ( "      <td width=""10%"" class=""f12bg"">回复/点击</td>" & Chr ( 13 ) ) '79
    Response.Write ( "      <td width=""11%"" class=""f12bg"">作者</td>" & Chr ( 13 ) ) '80
    Response.Write ( "      <td width=""25%"" class=""f12bg"">最后更新</td>" & Chr ( 13 ) ) '81
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '82
    Response.Write ( "  <form name=""selectform"" method=""post"" action=""delmyfavtories.aspx"" style=""MARGIN-TOP: 0px;margin-bottom:0px"">" & Chr ( 13 ) ) '83
    Response.Write ( "    <input type=""hidden"" name=""op"" value=""选择删除"">" & Chr ( 13 ) ) '84
    Response.Write ( "    <input type=""hidden"" name=""returnURL"" value=""myfavorties.aspx?" ) '85
    Response.Write ( Request.QueryString ) '85
    Response.Write ( """>" & Chr ( 13 ) ) '85
    Response.Write ( "    <script language=""JavaScript"">" & Chr ( 13 ) ) '86
    Response.Write ( "  <!--" & Chr ( 13 ) ) '87
    Response.Write ( "  function select_pl_submit(optype){" & Chr ( 13 ) ) '88
    Response.Write ( "" & Chr ( 9 ) & "var f=document.forms[""selectform""]" & Chr ( 13 ) ) '89
    Response.Write ( "" & Chr ( 9 ) & "f.op.value=optype" & Chr ( 13 ) ) '90
    Response.Write ( "" & Chr ( 9 ) & "f.submit()" & Chr ( 13 ) ) '91
    Response.Write ( "  }" & Chr ( 13 ) ) '92
    Response.Write ( "  //-->" & Chr ( 13 ) ) '93
    Response.Write ( "  </script>" & Chr ( 13 ) ) '94
    Response.Write ( "    " ) '95
    If Not rs.EOF Then '96
        wzpage = AspToAspX_CInt ( ( Request.QueryString ( "page" ) ) ) '97
    If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
    '98
        rs.PageSize = wzrep '99
        rs.AbsolutePage = wzpage '100
        wzpagecount = rs.PageCount '101
        wzcount = rs.RecordCount '102
        For i = 0 To Val ( wzrep ) - 1 '104
        If rs.EOF Then
Exit For
End If
    '105
            bbstitleid = AspToAspX_CheckDBNull(rs.Fields ( "bbstitleid" ) .Value) '106
            indbdate = AspToAspX_CheckDBNull(rs.Fields ( "redate" ) .Value) '107
            year1 = right ( Year ( indbdate ) , 2 ) '108
            month1 = right ( "0" & Month ( indbdate ) , 2 ) '109
            day1 = right ( "0" & Day ( indbdate ) , 2 ) '110
            hour1 = right ( "0" & hour ( indbdate ) , 2 ) '111
            minute1 = right ( "0" & minute ( indbdate ) , 2 ) '112
            indbdate = year1 & "-" & month1 & "-" & day1 & " " & hour1 & ":" & minute1 '113
            titlecolor = AspToAspX_CheckDBNull(rs.Fields ( "titlecolor" ) .Value) '114
            bbstitle = AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) '115
            If AspToAspX_CheckDBNull ( titlecolor ) < > EmptyString.Value Then '117
                title = "<font color=" & titlecolor & ">" & bbstitle & "</font>" '118
            Else '119
                title = bbstitle '120
            End If '121
            reinfo = AspToAspX_CheckDBNull(rs.Fields ( "reinfo" ) .Value) '123
            If AspToAspX_CheckDBNull ( InStr ( reinfo , "||" ) ) > 0 Then '124
                rearr = AspToAspX_Split ( reinfo , "||" ) '125
                arrnum = UBound ( rearr ) '126
                reinfo = rearr ( arrnum ) '127
            End If '128
            If AspToAspX_CheckDBNull ( reinfo ) < > EmptyString.Value And AspToAspX_CheckDBNull ( InStr ( reinfo , "," ) ) > 0 Then '129
                reinfo = replace ( reinfo , "|" , "" ) '130
                rearr = AspToAspX_Split ( reinfo , "," ) '131
                replydate = rearr ( 0 ) '132
                replyuser = "<font color=red>|</font><a class=map href=ftbbsmyinfo.aspx?ftbbsuser=" & rearr ( 1 ) & ">" & rearr ( 1 ) & "</a>" '133
                replydate = right ( Year ( replydate ) , 2 ) & "-" & Month ( replydate ) & "-" & Day ( replydate ) & " " & hour ( replydate ) & ":" & minute ( replydate ) '134
            Else '135
                replydate = indbdate '136
                replyuser = "" '137
            End If '138
            Response.Write ( vbCrLf )
            Response.Write ( "    <tr align=middle> " & Chr ( 13 ) ) '140
            Response.Write ( "      <td width=""5%"" height=""28"" class=""loopborder1""> <input type=""checkbox"" name=""checkbox1"" value=""" ) '141
            Response.Write ( bbstitleid ) '141
            Response.Write ( """> " & Chr ( 13 ) ) '141
            Response.Write ( "      </td>" & Chr ( 13 ) ) '142
            Response.Write ( "      <td width=""52%""  align=left valign=""middle"" class=""loopborder2""> " & Chr ( 13 ) ) '143
            Response.Write ( "        " ) '144
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "zhiye" ) .Value) ) = "10" Then '144
            Response.Write ( vbCrLf )
                Response.Write ( "        <img src=""images/rar.gif"" width=""16"" height=""16"" align=""absmiddle""> " & Chr ( 13 ) ) '145
                Response.Write ( "        " ) '146
            Else '146
            Response.Write ( vbCrLf )
                Response.Write ( "        " ) '147
                If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "sign" ) .Value) ) = "1" Then '147
                Response.Write ( vbCrLf )
                    Response.Write ( "        <img src=""images/jian.gif"" width=""15"" height=""13"" align=""absmiddle""> " & Chr ( 13 ) ) '148
                    Response.Write ( "        " ) '149
                End If '149
                Response.Write ( vbCrLf )
                Response.Write ( "        " ) '150
                If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "huati" ) .Value) ) = "1" Then '150
                Response.Write ( vbCrLf )
                    Response.Write ( "        <img src=""images/jing.gif"" width=""15"" height=""13"" align=""absmiddle""> " & Chr ( 13 ) ) '151
                    Response.Write ( "        " ) '152
                End If '152
                Response.Write ( vbCrLf )
                Response.Write ( "        " ) '153
                If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "P_display" ) .Value) ) = "0" Then '153
                Response.Write ( vbCrLf )
                    Response.Write ( "        <img src=""images/suo.gif"" width=""12"" height=""13"" align=""absmiddle""> " & Chr ( 13 ) ) '154
                    Response.Write ( "        " ) '155
                End If '155
                Response.Write ( vbCrLf )
                Response.Write ( "        " ) '156
            End If '156
            Response.Write ( vbCrLf )
            Response.Write ( "        " ) '157