📄 bkindex.aspx.vb

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

    Public AspToAspX_Host_Class_Object As Object

Public sitenav
Public sql
Public rs As ADODB.Recordset
Public i
Public title
Public rsx
Public userid
Public m
Public k
Public photo_name
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
    Public ASPX_CONN As _CONN
    Public ASPX_GBTOUTF8 As _GBTOUTF8
    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_GBTOUTF8 = New _GBTOUTF8()
        ASPX_GBTOUTF8.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_GBTOUTF8.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_GBTOUTF8.AspToAspX_UnloadIncludeFiles()
        ASPX_GBTOUTF8 = 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_GBTOUTF8.AspToAspX_Page_Init ( )
    FTBBS_HTML_MB ( ft ) '4
    sitenav = Application ( "FTBBSMB" ) ( 65 , 0 ) '5
    sql = "select top 5 * from " & ft & "ftbbs_upload where (id IN(SELECT MAX(id) FROM " & ft & "ftbbs_upload GROUP BY photo_name)) and sign=0 and bbs_blog_type=2 order by id desc" '6
    rs = New ADODB.Recordset ( ) '7
    rs.Open ( sql , conn , 3 , 1 ) '8
    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 ) ) '10
    Response.Write ( "<html xmlns=""http://www.w3.org/1999/xhtml"">" & Chr ( 9 ) & "<head>" & Chr ( 13 ) ) '11
    Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />" & Chr ( 13 ) ) '12
    Response.Write ( "<title>我的空间-欢迎来到飞天论坛我的空间首页</title>" & Chr ( 13 ) ) '13
    Response.Write ( "<link href=""css/bloghome.css"" type=""text/css"" rel=""stylesheet"" />" & Chr ( 13 ) ) '14
    Response.Write ( "</head>" & Chr ( 13 ) ) '15
    Response.Write ( "<body>" & Chr ( 13 ) ) '16
    Response.Write ( sitenav ) '17
    Response.Write ( vbCrLf )
    ASPX_NAVHEAD_HTM.AspToAspX_Page_Init ( )
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<script language=""javascript"" type=""text/javascript"">" & Chr ( 13 ) ) '19
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--" & Chr ( 13 ) ) '20
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "var fadeimages = new Array;" & Chr ( 13 ) ) '21
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "var linkarr = new Array;" & Chr ( 13 ) ) '22
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "var numimg = new Array;" & Chr ( 13 ) ) '23
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '24
    i = 0 '25
    If Not rs.EOF Then '26
        Do While Not rs.EOF '27
        If AspToAspX_CheckDBNull ( i ) > 4 Then
Exit Do
End If
    '28
            Response.Write ( vbCrLf )
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "fadeimages[" ) '30
            Response.Write ( i ) '30
            Response.Write ( "] = '" ) '30
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "upload_pic" ) .Value) ) '30
            Response.Write ( "';" & Chr ( 13 ) ) '30
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "linkarr[" ) '31
            Response.Write ( i ) '31
            Response.Write ( "] = 'show_topic.aspx';" & Chr ( 13 ) ) '31
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "numimg[" ) '32
            Response.Write ( i ) '32
            Response.Write ( "] = 'blogimages/p0" ) '32
            Response.Write ( i + 1 ) '32
            Response.Write ( ".gif';" & Chr ( 13 ) ) '32
            Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '33
            i = i + 1 '34
            rs.MoveNext ( ) '35
        Loop '36
    Else '37
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "fadeimages[0] = 'blogimages/nopic.gif';" & Chr ( 13 ) ) '39
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "linkarr[0] = '#';" & Chr ( 13 ) ) '40
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "numimg[0] = 'blogimages/p01.gif';" & Chr ( 13 ) ) '41
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" & Chr ( 13 ) ) '42
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "fadeimages[1] = 'blogimages/nopic.gif';" & Chr ( 13 ) ) '43
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "linkarr[1] = '#';" & Chr ( 13 ) ) '44
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "numimg[1] = 'blogimages/p02.gif';" & Chr ( 13 ) ) '45
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" & Chr ( 13 ) ) '46
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "fadeimages[2] = 'blogimages/nopic.gif';" & Chr ( 13 ) ) '47
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "linkarr[2] = '#';" & Chr ( 13 ) ) '48
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "numimg[2] = 'blogimages/p03.gif';" & Chr ( 13 ) ) '49
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" & Chr ( 13 ) ) '50
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "fadeimages[3] = 'blogimages/nopic.gif';" & Chr ( 13 ) ) '51
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "linkarr[3] = '#';" & Chr ( 13 ) ) '52
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "numimg[3] = 'blogimages/p04.gif';" & Chr ( 13 ) ) '53
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" & Chr ( 13 ) ) '54
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "fadeimages[4] = 'blogimages/nopic.gif';" & Chr ( 13 ) ) '55
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "linkarr[4] = '#';" & Chr ( 13 ) ) '56
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "numimg[4] = 'blogimages/p05.gif';" & Chr ( 13 ) ) '57
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '58
    End If '59
    rs.Close ( ) '60
    rs = Nothing '61
    Response.Write ( vbCrLf )
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "var cliImg = '';" & Chr ( 13 ) ) '63
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "var cliImgSrc = '';" & Chr ( 13 ) ) '64
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "var n = Math.round(Math.random() * 4);" & Chr ( 13 ) ) '65
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "var interval = 3000;" & Chr ( 13 ) ) '66
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "var setTimeId = '';" & Chr ( 13 ) ) '67
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "var MaxRollCount = 30;" & Chr ( 13 ) ) '68
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "var CurrRollCount = 0;" & Chr ( 13 ) ) '69
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "function rotateStop(){" & Chr ( 13 ) ) '70
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "clearTimeout(setTimeId);" & Chr ( 13 ) ) '71
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "}" & Chr ( 13 ) ) '72
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "function rotateStart(){" & Chr ( 13 ) ) '73
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "rotate();" & Chr ( 13 ) ) '74
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "}" & Chr ( 13 ) ) '75
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "function chki(ci, no){" & Chr ( 13 ) ) '76
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "var pImg = document.images['RollImg'];" & Chr ( 13 ) ) '77
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "var pUrl = document.getElementById('RollUrl');" & Chr ( 13 ) ) '78
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "if(cliImg == '') {" & Chr ( 13 ) ) '79
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "cliImg = ci;" & Chr ( 13 ) ) '80
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "cliImgSrc = ci.src;" & Chr ( 13 ) ) '81
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "ci.src = numimg[no];" & Chr ( 13 ) ) '82
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "n=no;" & Chr ( 13 ) ) '83
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "pImg.src = fadeimages[no];" & Chr ( 13 ) ) '84
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "pUrl.href = linkarr[no];" & Chr ( 13 ) ) '85
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "} else if(cliImg != ci) {" & Chr ( 13 ) ) '86
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "cliImg.src = cliImgSrc;" & Chr ( 13 ) ) '87
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "cliImg = ci;" & Chr ( 13 ) ) '88
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "cliImgSrc = ci.src;" & Chr ( 13 ) ) '89
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "ci.src = numimg[no];" & Chr ( 13 ) ) '90
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "n=no;" & Chr ( 13 ) ) '91
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "pImg.src = fadeimages[no];" & Chr ( 13 ) ) '92
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "pUrl.href = linkarr[no];" & Chr ( 13 ) ) '93
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "}" & Chr ( 13 ) ) '94
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "}" & Chr ( 13 ) ) '95
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "function rotate(){" & Chr ( 13 ) ) '96
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " CurrRollCount = CurrRollCount + 1;" & Chr ( 13 ) ) '97
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & " if (CurrRollCount>MaxRollCount) return;" & Chr ( 13 ) ) '98
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "n = (n >= 4) ? 0 : n+1;" & Chr ( 13 ) ) '99
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "setimgurl();" & Chr ( 13 ) ) '100
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "setTimeId=setTimeout('rotate()',interval);" & Chr ( 13 ) ) '101
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "}" & Chr ( 13 ) ) '102
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "function setimgurl(){" & Chr ( 13 ) ) '103
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "var ci = document.images['num_img'+n]" & Chr ( 13 ) ) '104
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "try {" & Chr ( 13 ) ) '105
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "document.images['RollImg'].filters.blendTrans.apply();" & Chr ( 13 ) ) '106
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "} catch (e){ }" & Chr ( 13 ) ) '107
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "document.getElementById('RollUrl').href=linkarr[n];" & Chr ( 13 ) ) '108
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "document.images['RollImg'].src=fadeimages[n];" & Chr ( 13 ) ) '109
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "try {" & Chr ( 13 ) ) '110
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "document.images['RollImg'].filters.blendTrans.play();" & Chr ( 13 ) ) '111
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "} catch (e){ }" & Chr ( 13 ) ) '112
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "if(cliImg == '') {" & Chr ( 13 ) ) '113
12 3 4 下一页
💿 文件大小 7012 K
👤 上传用户 red2years
📂 所属分类书籍源码
🏷️ 相关标签

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

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