📄 show_space.aspx.vb

📁 本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量基于ASP.NET的DLL可以运行在支持ASP
💻 VB
📖 第 1 页 / 共 2 页
字号:
12 下一页
' ***************************************************
' *        本程序由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_SPACE
    Inherits System.Web.UI.Page
    Implements IHttpHandler, AspToAspX_Interface

    Public AspToAspX_Host_Class_Object As Object

Public i
Public sql
Public rs As ADODB.Recordset
Public wzrep
Public wzpage
Public wzpagecount
Public wzcount
Public homepagetitle
Public clubuser_id
Public rs1
Public uploadnum
Public rs2
Public ftblog_plnum
Public rs3
Public ftblog_num
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public sitenav
    Public ASPX_CONN As _CONN
    Public ASPX_INC_PUBLICFUN As _INC_PUBLICFUN
    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_INC_PUBLICFUN = New _INC_PUBLICFUN()
        ASPX_INC_PUBLICFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_PUBLICFUN.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_INC_PUBLICFUN.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_PUBLICFUN = 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_INC_PUBLICFUN.AspToAspX_Page_Init ( )
    Response.Write ( "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" & Chr ( 13 ) ) '3
    Response.Write ( "<html xmlns=""http://www.w3.org/1999/xhtml"">" & Chr ( 9 ) & "<head>" & Chr ( 13 ) ) '4
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />" & Chr ( 13 ) ) '5
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<title>我的空间-欢迎来到飞天论坛我的空间首页</title>" & Chr ( 13 ) ) '6
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<link href=""css/index.css"" type=""text/css"" rel=""stylesheet"" />" & Chr ( 13 ) ) '7
    Response.Write ( "" & Chr ( 9 ) & "</head>" & Chr ( 13 ) ) '8
    Response.Write ( "" & Chr ( 9 ) & "<body>" & Chr ( 13 ) ) '9
    ASPX_TOPNAV.AspToAspX_Page_Init ( )
    ASPX_NAVHEAD_HTM.AspToAspX_Page_Init ( )
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<link href=""css/inpage.css"" type=""text/css"" rel=""stylesheet"" />" & Chr ( 13 ) ) '12
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""tag_list"">" & Chr ( 13 ) ) '13
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h4><img src=""blogimages/mright.gif"" alt="""" /> 空间索引 →  个人空间列表  </h4>" & Chr ( 13 ) ) '14
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '15
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<style type=""text/css"">" & Chr ( 13 ) ) '16
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<!--" & Chr ( 13 ) ) '17
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "/*常规样式*/" & Chr ( 13 ) ) '18
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & ".tag_title { font-size: 12px; font-family: arial, helvetica, sans-serif, ""宋体""; padding:0px; background:#66ABD9; width:825px;; margin:4px auto 0px auto; overflow-x:hidden; height:24px; line-height:24px; color:#fff; font-weight:bold; }" & Chr ( 13 ) ) '19
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & ".line-0 { width:50px; display:block; float:left; border-right:1px solid #A1D3EE; }" & Chr ( 13 ) ) '20
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & ".line-1 { width:100px; display:block; float:left; border-right:1px solid #A1D3EE; }" & Chr ( 13 ) ) '21
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & ".line-2 { width:300px; display:block; float:left; border-right:1px solid #A1D3EE; text-align:left; padding-left:5px; }" & Chr ( 13 ) ) '22
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & ".line-3 { width:60px; display:block; float:left; border-right:1px solid #A1D3EE; }" & Chr ( 13 ) ) '23
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & ".line-4 { width:126px; display:block; float:left; }" & Chr ( 13 ) ) '24
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & ".showuser_tag_list { font-size: 12px; font-family: arial, helvetica, sans-serif, ""宋体""; padding:0px; width:823px;; margin:0px auto 0px auto; overflow-x:hidden; height:24px; line-height:24px; border-bottom:1px solid #ddd; border-left:1px solid #ddd; border-right:1px solid #ddd;  }" & Chr ( 13 ) ) '25
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & ".line-00 { width:50px; display:block; float:left; border-right:1px solid #ddd; line-height:24px;  }" & Chr ( 13 ) ) '26
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & ".line-01 { width:100px; display:block; float:left; border-right:1px solid #ddd; line-height:24px;  }" & Chr ( 13 ) ) '27
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & ".line-02 { width:300px; display:block; float:left; border-right:1px solid #ddd; line-height:24px;  text-align:left; padding-left:5px; background:#f9f9f9; }" & Chr ( 13 ) ) '28
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & ".line-03 { width:60px; display:block; float:left; border-right:1px solid #ddd; line-height:24px;  background:#f9f9f9; }" & Chr ( 13 ) ) '29
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & ".line-04 { width:126px; display:block; float:left; line-height:24px;  }" & Chr ( 13 ) ) '30
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "-->" & Chr ( 13 ) ) '31
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</style>" & Chr ( 13 ) ) '32
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""tag_title"">" & Chr ( 13 ) ) '33
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "    <span class=""line-0"">序号</span>" & Chr ( 13 ) ) '34
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span class=""line-2"">我的空间名称</span>" & Chr ( 13 ) ) '35
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span class=""line-1"">用户</span>" & Chr ( 13 ) ) '36
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span class=""line-3"">文章</span>" & Chr ( 13 ) ) '37
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span class=""line-3"">评论</span>" & Chr ( 13 ) ) '38
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span class=""line-3"">图片</span>" & Chr ( 13 ) ) '39
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span class=""line-4"">创建时间</span>" & Chr ( 13 ) ) '40
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '41
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '42
    sql = "SELECT clubuser_id,clubuser_name,clubuser_reg_date,homepagetitle,homepagehits FROM " & ft & "clubuser WHERE homepagesign=0 and bokeer=1 order by clubuser_id desc" '43
    rs = New ADODB.Recordset ( ) '44
    rs.Open ( sql , conn , 1 , 1 ) '45
    If Not rs.EOF Then '47
        wzrep = 20 '48
        wzpage = AspToAspX_CInt ( Request ( "page" ) ) '49
    If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
    '50
        rs.PageSize = wzrep '51
        rs.AbsolutePage = wzpage '52
        wzpagecount = rs.PageCount '53
        wzcount = rs.RecordCount '54
        For i = 0 To Val ( wzrep ) - 1 '55
            homepagetitle = AspToAspX_CheckDBNull(rs.Fields ( "homepagetitle" ) .Value) '56
            clubuser_id = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) '57
            If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "homepagetitle" ) .Value) ) = EmptyString.Value Or IsDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "homepagetitle" ) .Value) ) Then '58
                homepagetitle = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) & "很懒，什么也没留下..." '59
            End If '60
            rs1 = conn.Execute ( "select count(id) as k1 from " & ft & "ftbbs_upload where clubuser_id=" & clubuser_id ) '61
            uploadnum = AspToAspX_CheckDBNull(rs1.Fields ( "k1" ) .Value) '62
            rs2 = conn.Execute ( "select count(id) as k2 from " & ft & "ftblog_pl where userid=" & clubuser_id ) '63
            ftblog_plnum = AspToAspX_CheckDBNull(rs2.Fields ( "k2" ) .Value) '64
            rs3 = conn.Execute ( "select count(id) as k3 from " & ft & "ftblog where userid=" & clubuser_id ) '65
            ftblog_num = rs3 ( "k3" ) '66
        If rs.EOF Then
Exit For
End If
    '67
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""showuser_tag_list"">" & Chr ( 13 ) ) '69
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "    <span class=""line-00"">" ) '70
            Response.Write ( i + 1 ) '70
            Response.Write ( "</span>" & Chr ( 13 ) ) '70
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span class=""line-02""><a href=""home.aspx?userid=" ) '71
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '71
            Response.Write ( """ title=""" ) '71
            Response.Write ( homepagetitle ) '71
            Response.Write ( """ target=""_blank"">" ) '71
            Response.Write ( homepagetitle ) '71
            Response.Write ( "</a></span>" & Chr ( 13 ) ) '71
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span class=""line-01""><a href=""myinfo.aspx?userid=" ) '72
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '72
            Response.Write ( """ title=""浏览" ) '72
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) '72
            Response.Write ( "个人档案"" target=""_blank""><b>" ) '72
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) '72
            Response.Write ( "</b></a></span>" & Chr ( 13 ) ) '72
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span class=""line-03"">" ) '73
            Response.Write ( ftblog_num ) '73
            Response.Write ( "</span>" & Chr ( 13 ) ) '73
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span class=""line-03"">" ) '74
            Response.Write ( ftblog_plnum ) '74
            Response.Write ( "</span>" & Chr ( 13 ) ) '74
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span class=""line-03"">" ) '75
            Response.Write ( uploadnum ) '75
            Response.Write ( "</span>" & Chr ( 13 ) ) '75
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<span class=""line-04"">" ) '76
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_reg_date" ) .Value) ) '76
            Response.Write ( "</span>" & Chr ( 13 ) ) '76
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '77
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '78
            rs.MoveNext ( ) '79
        Next '80
        rs.Close ( ) '81
        rs = Nothing '82
    Else '83
        Response.Write ( "<h1>没有数据</h1>" ) '84
    End If '85
    Response.Write ( vbCrLf )
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div style=""height:2px;font-size: 6px;""></div>" & Chr ( 13 ) ) '87
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""tag_list"">" & Chr ( 13 ) ) '88
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h3>" & Chr ( 13 ) ) '89
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" ) '90
    Response.Write ( SearchPage ( wzpagecount , "" , "" , "" , "" ) ) '90
    Response.Write ( vbCrLf )
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</h3>" & Chr ( 13 ) ) '91
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '92
12 下一页
💿 文件大小 7012 K
👤 上传用户 red2years
📂 所属分类书籍源码
🏷️ 相关标签

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

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