myfavorties.aspx.vb

本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量 基于ASP.NET的DLL可以运行在支持ASP

            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "P_display" ) .Value) ) < > "0" And AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "bbstop" ) .Value) ) < > 1 And AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "sign" ) .Value) ) < > "1" And AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "huati" ) .Value) ) < > "1" And AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "zhiye" ) .Value) ) < > "10" And AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "picture" ) .Value) ) < > EmptyString.Value Then '157
            Response.Write ( vbCrLf )
                Response.Write ( "        <img src=""images/" ) '158
                Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "picture" ) .Value) ) '158
                Response.Write ( """ width=""19"" height=""19"" align=""absmiddle""> " & Chr ( 13 ) ) '158
                Response.Write ( "        " ) '159
            End If '159
            Response.Write ( vbCrLf )
            Response.Write ( "        <a class=""f14"" href=""" ) '160
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) ) '160
            Response.Write ( """ title=""" ) '160
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) ) '160
            Response.Write ( """ target=""_blank"">" & Chr ( 13 ) ) '160
            Response.Write ( "        " ) '161
            Response.Write ( title ) '161
            Response.Write ( vbCrLf )
            Response.Write ( "        </a> " & Chr ( 13 ) ) '162
            Response.Write ( "        " ) '163
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "bbs_img_display" ) .Value) ) = 1 Then '164
                Response.Write ( "<img src=""images/picflag.gif"" width=""13"" height=""13"" align=""absmiddle"" alt=""附带图片""> " ) '165
            End If '166
            pagefilename = AspToAspX_Split ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) , "." ) ( 0 ) '167
            htm_ext = "." & AspToAspX_Split ( AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) , "." ) ( 1 ) '168
            pagenum = Application ( "FTBBSMB" ) ( 6 , 0 ) '169
            k = AspToAspX_CheckDBNull(rs.Fields ( "rep" ) .Value) / pagenum '170
            If AspToAspX_Int ( k ) = k Then '171
                page = k '172
            Else '173
                page = AspToAspX_Int ( k ) + 1 '174
            End If '175
            If AspToAspX_CheckDBNull ( page ) > 1 Then '176
                For z = 1 To Val ( page ) '177
                    If AspToAspX_CheckDBNull ( z ) = 1 Then '178
                        pagehtm = pagefilename & htm_ext '179
                    Else '180
                        pagehtm = pagefilename & "_" & z & htm_ext '181
                    End If '182
                    If AspToAspX_CheckDBNull ( z ) > = 4 And AspToAspX_CheckDBNull ( page ) > 6 Then '183
                        pagehtm = pagefilename & "_" & page & htm_ext '184
                        Response.Write ( "..<a class=""mainouttd"" href=" & pagehtm & " target=""_blank"">" & page & "</a>" ) '185
                        Exit For '186
                    End If '187
                    If AspToAspX_CheckDBNull ( z ) = 1 Then '188
                        Response.Write ( "<a class=""mainouttd"" href=" & pagehtm & " target=""_blank"">" & z & "</a>" ) '189
                    Else '190
                        Response.Write ( "<a class=""mainouttd"" href=" & pagehtm & " target=""_blank"">" & z & "</a>" ) '191
                    End If '192
                Next '193
            End If '194
            Response.Write ( vbCrLf )
            Response.Write ( "      </td>" & Chr ( 13 ) ) '196
            Response.Write ( "      <td width=""7%"" class=""loopborder1"">" & Chr ( 13 ) ) '197
            Response.Write ( "        " ) '198
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "rep" ) .Value) ) '198
            Response.Write ( vbCrLf )
            Response.Write ( "        /" & Chr ( 13 ) ) '199
            Response.Write ( "        " ) '200
    If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "hit" ) .Value) ) > = 500 Then
Response.Write ( "<font color=red>" & AspToAspX_CheckDBNull(rs.Fields ( "hit" ) .Value) & "</font>" )
Else
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "hit" ) .Value) )
End If
    '200
    Response.Write ( vbCrLf )
        Response.Write ( "      </td>" & Chr ( 13 ) ) '201
        Response.Write ( "      <td width=""9%"" class=""loopborder3""> <a href=""ftbbsmyinfo.aspx?ftbbsuser=" ) '202
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "user_id" ) .Value) ) '202
        Response.Write ( """>" & Chr ( 13 ) ) '202
        Response.Write ( "        " ) '203
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "user_id" ) .Value) ) '203
        Response.Write ( vbCrLf )
        Response.Write ( "        </a></td>" & Chr ( 13 ) ) '204
        Response.Write ( "      <td width=""16%"" class=""loopborder3""> <div align=""left"">" & Chr ( 13 ) ) '205
        Response.Write ( "          " ) '206
        Response.Write ( replydate & replyuser ) '206
        Response.Write ( vbCrLf )
        Response.Write ( "        </div></td>" & Chr ( 13 ) ) '207
        Response.Write ( "    </tr>" & Chr ( 13 ) ) '208
        Response.Write ( "    " ) '209
        rs.MoveNext ( ) '210
    Next '211
    Response.Write ( vbCrLf )
    Response.Write ( "  </form>" & Chr ( 13 ) ) '213
    Response.Write ( "  <tr valign=""top""> " & Chr ( 13 ) ) '214
    Response.Write ( "    <td colspan=""6"" class=""maintbtr1""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & Chr ( 13 ) ) '215
    Response.Write ( "        <tr> " & Chr ( 13 ) ) '216
    Response.Write ( "          <td align=""left"" class=""f12""> <input name=""button"" type=""button"" onclick=""selectAll()"" value=""全选""> " & Chr ( 13 ) ) '217
    Response.Write ( "            <input name=""button"" type=""button"" onclick=""selectRev()"" value=""反选""> " & Chr ( 13 ) ) '218
    Response.Write ( "            <input name=""button"" type=""button"" onclick=""select_pl_submit('选择删除')"" value=""将所选删除""> " & Chr ( 13 ) ) '219
    Response.Write ( "          </td>" & Chr ( 13 ) ) '220
    Response.Write ( "          <td height=""23"" align=""right"" class=""f12""> " & Chr ( 13 ) ) '221
    Response.Write ( "            " ) '222
    Response.Write ( pageclass ( wzpagecount , wzcount , wzrep , pagestr , root ) ) '222
    Response.Write ( vbCrLf )
    Response.Write ( "          </td>" & Chr ( 13 ) ) '223
    Response.Write ( "        </tr>" & Chr ( 13 ) ) '224
    Response.Write ( "      </table></td>" & Chr ( 13 ) ) '225
    Response.Write ( "  </tr>" & Chr ( 13 ) ) '226
    Response.Write ( "  " ) '227
    Else '227
    Response.Write ( vbCrLf )
        Response.Write ( "  <tr class=""maintbtr3""> " & Chr ( 13 ) ) '228
        Response.Write ( "    <td colspan=6 align=center height=25> 你还没有收藏任何贴子！ </td>" & Chr ( 13 ) ) '229
        Response.Write ( "  </tr>" & Chr ( 13 ) ) '230
        Response.Write ( "  " ) '231
    End If '231
    Response.Write ( vbCrLf )
    Response.Write ( "</table>" & Chr ( 13 ) ) '232
    ASPX_INC_BBSTAIL_HTM.AspToAspX_Page_Init ( )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("myfavorties_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
        Set(ByVal value)
            ASPX_CONN.qs = value
        End Set
    End Property
    Public Property errc
        Get
            errc = ASPX_CONN.errc
        End Get
        Set(ByVal value)
            ASPX_CONN.errc = value
        End Set
    End Property
    Public Property iii
        Get
            iii = ASPX_CONN.iii
        End Get
        Set(ByVal value)
            ASPX_CONN.iii = value
        End Set
    End Property
    Public Property nothis
        Get
            nothis = ASPX_CONN.nothis
        End Get
        Set(ByVal value)
            ASPX_CONN.nothis = value
        End Set
    End Property
    Public Sub makeftbbstree(ByRef  ft )
        ASPX_CONN.makeftbbstree( ft )
    End Sub

    Public Sub CloseDb
        ASPX_CONN.CloseDb
    End Sub

    Public Sub SaveToFile( ByVal strBody,ByVal File )
        ASPX_CONN.ASPX_ADOSTREAM.SaveToFile( strBody, File )
    End Sub

    Public Function Checkstr(ByRef  AspToAspX_Str )
        Return ASPX_CONN.Checkstr( AspToAspX_Str )
    End Function

    Public Function CheckCharStr(ByRef  usernamepsw,ByRef flag )
        Return ASPX_CONN.CheckCharStr( usernamepsw,flag )
    End Function

    Public Function ftbbs_msg(ByRef  msg,ByRef reurl )
        Return ASPX_CONN.ftbbs_msg( msg,reurl )
    End Function

    Public Function login_msg(ByRef  msg,ByRef reurl )
        Return ASPX_CONN.login_msg( msg,reurl )
    End Function

    Public Function FTBBS_HTML_MB(ByRef  ft )
        Return ASPX_CONN.FTBBS_HTML_MB( ft )
    End Function

    Public Function FTBBS_BZ_NAME(ByRef  BoardID_1,ByRef ft )
        Return ASPX_CONN.FTBBS_BZ_NAME( BoardID_1,ft )
    End Function

    Public Function FTBBS_BZ_NAME2(ByRef  BoardID_1,ByRef BoardID_2,ByRef ft )
        Return ASPX_CONN.FTBBS_BZ_NAME2( BoardID_1,BoardID_2,ft )
    End Function

    Public Function makefilename(ByRef  fname )
        Return ASPX_CONN.makefilename( fname )
    End Function

    Public Function GetExtendName(ByRef  FileName )
        Return ASPX_CONN.GetExtendName( FileName )
    End Function

    Public Function IsObjInstalled(ByRef  strClassString )
        Return ASPX_CONN.IsObjInstalled( strClassString )
    End Function

    Public Function ChkMapPath( ByVal strPath )
        Return ASPX_CONN.ChkMapPath( strPath )
    End Function

    Public Function userlogin(ByRef  ft )
        Return ASPX_CONN.userlogin( ft )
    End Function

    Public Function headhtml
        Return ASPX_CONN.headhtml
    End Function

    Public Function GetOpInfo(ByRef  AspToAspX_Str,ByRef Flag )
        Return ASPX_CONN.GetOpInfo( AspToAspX_Str,Flag )
    End Function

    Public Function getcode
        Return ASPX_CONN.getcode
    End Function

    Public Function codepass
        Return ASPX_CONN.codepass
    End Function

    Public Function Ftbbs_Time
        Return ASPX_CONN.Ftbbs_Time
    End Function

    Public Function ft_home(ByRef  defaulthome )
        Return ASPX_CONN.ft_home( defaulthome )
    End Function

    Public Function chkpost
        Return ASPX_CONN.chkpost
    End Function

    Public Function CodeCookie(ByRef  AspToAspX_Str )
        Return ASPX_CONN.CodeCookie( AspToAspX_Str )
    End Function

    Public Function DecodeCookie(ByRef  AspToAspX_Str )
        Return ASPX_CONN.DecodeCookie( AspToAspX_Str )
    End Function

    Public Function setcookie(ByRef  cookexpires,ByRef cookdomain,ByRef cookneme,ByRef cookvalue )
        Return ASPX_CONN.setcookie( cookexpires,cookdomain,cookneme,cookvalue )
    End Function

    Public Function getcookie(ByRef  ckname )
        Return ASPX_CONN.getcookie( ckname )
    End Function

    Public Function clearcookie(ByRef  cookdomain,ByRef cookneme )
        Return ASPX_CONN.clearcookie( cookdomain,cookneme )
    End Function

    Public Function LoadFile( ByVal File )
        Return ASPX_CONN.ASPX_ADOSTREAM.LoadFile( File )
    End Function

    Public Property ftbbs_nav_name
        Get
            ftbbs_nav_name = ASPX_FTBBS_NAV.ftbbs_nav_name
        End Get
        Set(ByVal value)
            ASPX_FTBBS_NAV.ftbbs_nav_name = value
        End Set
    End Property
    Public Property ftbbs_clubuser_id
        Get
            ftbbs_clubuser_id = ASPX_FTBBS_NAV.ftbbs_clubuser_id
        End Get
        Set(ByVal value)
            ASPX_FTBBS_NAV.ftbbs_clubuser_id = value
        End Set
    End Property
    Public Function pageclass(ByRef  totalpage,ByRef wzcount,ByRef wzrep,ByRef pagestr,ByRef root )
        Return ASPX_PAGEFUN.pageclass( totalpage,wzcount,wzrep,pagestr,root )
    End Function

#End Region
End Class