📄 show_top.aspx.vb

📁 本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量基于ASP.NET的DLL可以运行在支持ASP
💻 VB
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
' ***************************************************
' *        本程序由AspToAspX风火轮0.99转换生成      *
' *        http://Www.AspToAspX.Cn                  *
' *        Q Q :  139227536                         *
' *        QQ群:  17152722                          *
' *        MSN :  gzliangjianhua@hotmail.com        *
' *        EMail  AspToDll@vip.163.com              *
' ***************************************************
Imports Microsoft.VisualBasic
Imports System.Web
Imports System.Math
Imports System.Web.SessionState


Public Class _SHOW_TOP
    Inherits System.Web.UI.Page
    Implements IHttpHandler, AspToAspX_Interface

    Public AspToAspX_Host_Class_Object As Object

Public sql,rs,wzrep,wzpage
Public i
Public blogtitle
Public blogcontent
Public sqlx
Public rsx
Public clubuser_name
Public wzpagecount
Public wzcount
Public inum
Public rm
Public n
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public sitenav
Public pagestr
Public root
    Public ASPX_CONN As _CONN
    Public ASPX_PAGEFUN As _PAGEFUN
    Public ASPX_INC_UBBCODE As _INC_UBBCODE
    Public ASPX_TOPNAV As _TOPNAV
    Public ASPX_NAVHEAD_HTM As _NAVHEAD_HTM
    Public ASPX_COPYRIGHT_HTM As _COPYRIGHT_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_PAGEFUN = New _PAGEFUN()
        ASPX_PAGEFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_PAGEFUN.AspToAspX_InitIncludeFiles()
        ASPX_INC_UBBCODE = New _INC_UBBCODE()
        ASPX_INC_UBBCODE.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_UBBCODE.AspToAspX_InitIncludeFiles()
        ASPX_TOPNAV = New _TOPNAV()
        ASPX_TOPNAV.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_TOPNAV.AspToAspX_InitIncludeFiles()
        ASPX_NAVHEAD_HTM = New _NAVHEAD_HTM()
        ASPX_NAVHEAD_HTM.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_NAVHEAD_HTM.AspToAspX_InitIncludeFiles()
        ASPX_COPYRIGHT_HTM = New _COPYRIGHT_HTM()
        ASPX_COPYRIGHT_HTM.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_COPYRIGHT_HTM.AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
        ASPX_CONN.AspToAspX_UnloadIncludeFiles()
        ASPX_CONN = Nothing
        ASPX_PAGEFUN.AspToAspX_UnloadIncludeFiles()
        ASPX_PAGEFUN = Nothing
        ASPX_INC_UBBCODE.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_UBBCODE = Nothing
        ASPX_TOPNAV.AspToAspX_UnloadIncludeFiles()
        ASPX_TOPNAV = Nothing
        ASPX_NAVHEAD_HTM.AspToAspX_UnloadIncludeFiles()
        ASPX_NAVHEAD_HTM = Nothing
        ASPX_COPYRIGHT_HTM.AspToAspX_UnloadIncludeFiles()
        ASPX_COPYRIGHT_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_PAGEFUN.AspToAspX_Page_Init ( )
    ASPX_INC_UBBCODE.AspToAspX_Page_Init ( )
    Response.Write ( vbCrLf )
    Response.Write ( "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" & Chr ( 13 ) ) '7
    Response.Write ( "<html xmlns=""http://www.w3.org/1999/xhtml"">" & Chr ( 13 ) ) '8
    Response.Write ( "<head>" & Chr ( 13 ) ) '9
    Response.Write ( "<title>飞天博客-博客文章</title>" & Chr ( 9 ) & "" & Chr ( 13 ) ) '10
    Response.Write ( "<meta http-equiv=""content-type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '11
    Response.Write ( "<link rel=""stylesheet"" type=""text/css"" href=""css/bloglist.css""/>" & Chr ( 13 ) ) '12
    Response.Write ( "<link rel=""stylesheet"" type=""text/css"" href=""css/bloghome.css""/>" & Chr ( 13 ) ) '13
    Response.Write ( "<body>" & Chr ( 13 ) ) '14
    ASPX_TOPNAV.AspToAspX_Page_Init ( )
    ASPX_NAVHEAD_HTM.AspToAspX_Page_Init ( )
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" & Chr ( 13 ) ) '16
    Response.Write ( "<div class=""fun"">" & Chr ( 13 ) ) '17
    Response.Write ( "" & Chr ( 9 ) & "<!--主内容区开始-->" & Chr ( 13 ) ) '18
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""f_pri"">" & Chr ( 13 ) ) '19
    Response.Write ( "" & Chr ( 9 ) & "<!--主内容左侧区开始-->" & Chr ( 13 ) ) '20
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""f_l"">" & Chr ( 13 ) ) '21
    Response.Write ( "" & Chr ( 9 ) & "<!--左侧上部区（最近推荐）开始-->" & Chr ( 13 ) ) '22
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""f_l_t"">" & Chr ( 13 ) ) '23
    sql = "SELECT top 9 * FROM " & ft & "ftblog WHERE blogtj=1 order by id desc" '25
    rs = New ADODB.Recordset ( ) '26
    rs.Open ( sql , conn , 1 , 1 ) '27
    If Not rs.EOF Then '28
        blogtitle = AspToAspX_CheckDBNull(rs.Fields ( "blogtitle" ) .Value) '29
        blogcontent = nohtml ( AspToAspX_CheckDBNull(rs.Fields ( "blogcontent" ) .Value) ) '30
        rs.MoveNext ( ) '31
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""l_t_t"">" & Chr ( 13 ) ) '33
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h3><a href=""myblog.aspx?id=" ) '34
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '34
        Response.Write ( "&userid=" ) '34
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) ) '34
        Response.Write ( "&blogtypeid=" ) '34
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtypeid" ) .Value) ) '34
        Response.Write ( """ title=""" ) '34
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtitle" ) .Value) ) '34
        Response.Write ( """>" ) '34
        Response.Write ( blogtitle ) '34
        Response.Write ( "</a></h3>" & Chr ( 13 ) ) '34
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<p>" ) '35
        Response.Write ( left ( blogcontent , 75 ) ) '35
        Response.Write ( "</p>" & Chr ( 13 ) ) '35
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '36
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""l_t_d ms_con"">" & Chr ( 13 ) ) '37
        Do While Not rs.EOF '39
            sqlx = "select top 1 clubuser_id,clubuser_name from " & ft & "clubuser where clubuser_id=" & AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) & " order by clubuser_id desc" '40
            rsx = New ADODB.Recordset ( ) '41
            rsx.Open ( sqlx , conn , 3 , 1 ) '42
            If Not rsx.EOF Then '43
                clubuser_name = AspToAspX_CheckDBNull(rsx.Fields ( "clubuser_name" ) .Value) '44
            End If '45
            rsx.Close ( ) '46
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""item"">" & Chr ( 13 ) ) '48
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""f_left""><a href=""myblog.aspx?id=" ) '49
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '49
            Response.Write ( "&userid=" ) '49
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) ) '49
            Response.Write ( "&blogtypeid=" ) '49
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtypeid" ) .Value) ) '49
            Response.Write ( """ title=""" ) '49
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtitle" ) .Value) ) '49
            Response.Write ( """><span class=""square"">&#183;</span>" ) '49
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtitle" ) .Value) ) '49
            Response.Write ( "</a></div>" & Chr ( 13 ) ) '49
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""f_right t_right""><a href=""home.aspx?userid=" ) '50
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) ) '50
            Response.Write ( """ target=""_blank"" alt=""查看个人博客"">" ) '50
            Response.Write ( clubuser_name ) '50
            Response.Write ( "</a></div>" & Chr ( 13 ) ) '50
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<br class=""clear""/>" & Chr ( 13 ) ) '51
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '52
            rs.MoveNext ( ) '54
        Loop '55
    End If '56
    rs.Close ( ) '57
    Response.Write ( vbCrLf )
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '59
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '60
    sql = "SELECT * FROM " & ft & "ftblog WHERE sign=0 order by id desc" '62
    rs = New ADODB.Recordset ( ) '63
    rs.Open ( sql , conn , 1 , 1 ) '64
    If Not rs.EOF Then '65
        wzrep = 25 '66
        wzpage = AspToAspX_CInt ( Request ( "page" ) ) '67
    If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
    '68
        rs.PageSize = wzrep '69
        rs.AbsolutePage = wzpage '70
        wzpagecount = rs.PageCount '71
        wzcount = rs.RecordCount '72
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" & Chr ( 13 ) ) '73
        Response.Write ( "" & Chr ( 9 ) & "<!--左侧下部区开始-->" & Chr ( 13 ) ) '74
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""f_l_d"">" & Chr ( 13 ) ) '75
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""l_d_t"">最新更新</div>" & Chr ( 13 ) ) '76
        Response.Write ( "" & Chr ( 9 ) & "<!--左侧中部(最近更新列表)开始-->" & Chr ( 13 ) ) '77
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""l_d_m"" id=""div_recentRecBlog"">" & Chr ( 13 ) ) '78
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""ms_con"">" & Chr ( 13 ) ) '79
        For i = 1 To Val ( wzrep ) '81
        If rs.EOF Then
Exit For
End If
    '82
            sqlx = "select top 1 clubuser_id,clubuser_name from " & ft & "clubuser where clubuser_id=" & AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) & " order by clubuser_id desc" '83
            rsx = New ADODB.Recordset ( ) '84
            rsx.Open ( sqlx , conn , 3 , 1 ) '85
            If Not rsx.EOF Then '86
                clubuser_name = AspToAspX_CheckDBNull(rsx.Fields ( "clubuser_name" ) .Value) '87
            End If '88
            rsx.Close ( ) '89
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""item""><div class=""f_left""><a href=""myblog.aspx?id=" ) '91
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '91
            Response.Write ( "&userid=" ) '91
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) ) '91
            Response.Write ( "&blogtypeid=" ) '91
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtypeid" ) .Value) ) '91
            Response.Write ( """ title=""" ) '91
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtitle" ) .Value) ) '91
12 3 下一页
💿 文件大小 7012 K
👤 上传用户 red2years
📂 所属分类书籍源码
🏷️ 相关标签

#ASP #NET #DLL #BBS
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -