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

    Public AspToAspX_Host_Class_Object As Object

Public strqs,qssqlstr1,qssql
Public k
Public i
Public ftbbs_name
Public ftbbs_bz
Public ftbbs_bbsadmin
Public ftbbs_payuser
Public sitenav
Public strqssql
Public qsrs
Public qsnum
Public qsbbsx1
Public qsbbs1
Public qsarray1
Public qssqlstrx
Public sql
Public rs As ADODB.Recordset
Public title
Public titlecolor
Public m
Public getcodeoff
Public rsx
Public userid
Public rsd
Public BBS_Cate_Name
Public picnum
Public photo_name
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public ftbbs_bokeer
Public userinfo
Public num
Public smsnum
Public bknav
    Public ASPX_CONN As _CONN
    Public ASPX_FTBBSHOME_NAV As _FTBBSHOME_NAV
    Public ASPX_FORMATDATE As _FORMATDATE
    Public ASPX_FTHOMENAV As _FTHOMENAV
    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_FTBBSHOME_NAV = New _FTBBSHOME_NAV()
        ASPX_FTBBSHOME_NAV.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_FTBBSHOME_NAV.AspToAspX_InitIncludeFiles()
        ASPX_FORMATDATE = New _FORMATDATE()
        ASPX_FORMATDATE.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_FORMATDATE.AspToAspX_InitIncludeFiles()
        ASPX_FTHOMENAV = New _FTHOMENAV()
        ASPX_FTHOMENAV.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_FTHOMENAV.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_FTBBSHOME_NAV.AspToAspX_UnloadIncludeFiles()
        ASPX_FTBBSHOME_NAV = Nothing
        ASPX_FORMATDATE.AspToAspX_UnloadIncludeFiles()
        ASPX_FORMATDATE = Nothing
        ASPX_FTHOMENAV.AspToAspX_UnloadIncludeFiles()
        ASPX_FTHOMENAV = 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_FTBBSHOME_NAV.AspToAspX_Page_Init ( )
    ASPX_FORMATDATE.AspToAspX_Page_Init ( )
    ftbbs_name = getcookie ( "name" ) '5
    ftbbs_bz = getcookie ( "bz" ) '6
    ftbbs_bbsadmin = getcookie ( "bbsadmin" ) '7
    ftbbs_payuser = getcookie ( "payuser" ) '8
    If AspToAspX_CheckDBNull ( ftbbs_name ) < > EmptyString.Value And AspToAspX_CheckDBNull ( ftbbs_bz ) = EmptyString.Value Then
ftbbs_bz = 0
End If
    '9
        FTBBS_HTML_MB ( ft ) '10
        sitenav = Application ( "FTBBSMB" ) ( 65 , 0 ) '11
        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 ) ) '13
        Response.Write ( "<html xmlns=""http://www.w3.org/1999/xhtml"">" & Chr ( 13 ) ) '14
        Response.Write ( "<head>" & Chr ( 13 ) ) '15
        Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />" & Chr ( 13 ) ) '16
        Response.Write ( "<title>" ) '17
        Response.Write ( Application ( "FTBBSMB" ) ( 11 , 0 ) ) '17
        Response.Write ( ",静态论坛,最快的论坛,html论坛</title>" & Chr ( 13 ) ) '17
        Response.Write ( "<link rel=""shortcut icon"" href=""favicon.ico"" />" & Chr ( 13 ) ) '18
        Response.Write ( "<meta name=""keywords"" content=""飞天论坛,静态论坛,生成静态贴子的论坛"">" & Chr ( 13 ) ) '19
        Response.Write ( "<link href=""css/fthome01.css"" rel=""stylesheet"" type=""text/css"">" & Chr ( 13 ) ) '20
        Response.Write ( "</head>" & Chr ( 13 ) ) '21
        Response.Write ( "<script>" & Chr ( 13 ) ) '22
        Response.Write ( "function show_tbl(pre,n,select_n)" & Chr ( 13 ) ) '23
        Response.Write ( "{" & Chr ( 13 ) ) '24
        Response.Write ( "" & Chr ( 9 ) & "for(i=1;i<=n;i++)" & Chr ( 13 ) ) '25
        Response.Write ( "" & Chr ( 9 ) & "{" & Chr ( 13 ) ) '26
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "var tbl= document.getElementById(pre+i);" & Chr ( 13 ) ) '27
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "tbl.style.display=""none"";" & Chr ( 13 ) ) '28
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "if(i==select_n)" & Chr ( 13 ) ) '29
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "{" & Chr ( 13 ) ) '30
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "tbl.style.display=""block"";" & Chr ( 13 ) ) '31
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "}" & Chr ( 13 ) ) '32
        Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '33
        Response.Write ( "}" & Chr ( 13 ) ) '34
        Response.Write ( "</script>" & Chr ( 13 ) ) '35
        Response.Write ( "<body>" & Chr ( 13 ) ) '36
        Response.Write ( sitenav ) '37
        Response.Write ( vbCrLf )
    ASPX_FTHOMENAV.AspToAspX_Page_Init ( )
        If AspToAspX_CheckDBNull ( ftbbs_name ) = EmptyString.Value Then '40
            strqssql = "where BBS_Cate_Qs=1 or BBS_Cate_Qs=2 or BBS_Cate_Qs=3" '41
        Else '42
            If AspToAspX_CheckDBNull ( ftbbs_payuser ) = 1 And AspToAspX_CheckDBNull ( ftbbs_bz ) = 0 And AspToAspX_CheckDBNull ( ftbbs_bbsadmin ) = 0 Then '43
                strqssql = "where BBS_Cate_Qs=3" '44
            ElseIf AspToAspX_CheckDBNull ( ftbbs_bz ) = 1 Or AspToAspX_CheckDBNull ( ftbbs_bbsadmin ) = 1 Then '45
                strqssql = "" '46
            Else '47
                strqssql = "where BBS_Cate_Qs=2 or BBS_Cate_Qs=3" '48
            End If '49
        End If '50
        strqs = "" '52
        qssqlstr1 = "" '53
        qssql = "select BBS_Cate_ID from " & ft & "BBS_Cate " & strqssql & "" '54
        qsrs = New ADODB.Recordset ( ) '55
        qsrs.Open ( qssql , conn , 1 , 1 ) '56
        If Not qsrs.EOF And AspToAspX_CheckDBNull ( strqssql ) < > EmptyString.Value Then '57
            qsnum = qsrs.RecordCount '58
            If AspToAspX_CheckDBNull ( qsnum ) > 1 Then '59
                i = 0 '60
                Do While Not qsrs.EOF '61
                    If AspToAspX_CheckDBNull ( i ) = AspToAspX_CheckExpression ( qsnum ) - 1 Then '62
                        qsbbsx1 = AspToAspX_CheckDBNull(qsrs.Fields ( "BBS_Cate_ID" ) .Value) '63
                    Else '64
                        qsbbsx1 = AspToAspX_CheckDBNull(qsrs.Fields ( "BBS_Cate_ID" ) .Value) & "," '65
                    End If '66
                    qsbbs1 = qsbbs1 & qsbbsx1 '67
                    qsrs.MoveNext ( ) '68
                    i = i + 1 '69
                Loop '70
                qsarray1 = AspToAspX_Split ( qsbbs1 , "," ) '71
                For k = 0 To Val ( UBound ( qsarray1 ) ) '72
                    If AspToAspX_CheckDBNull ( k ) = UBound ( qsarray1 ) Then '73
                        qssqlstrx = "Boardid_1<>'" & qsarray1 ( k ) & "' and Boardid_2<>'" & qsarray1 ( k ) & "'" '74
                    Else '75
                        qssqlstrx = "Boardid_1<>'" & qsarray1 ( k ) & "' and Boardid_2<>'" & qsarray1 ( k ) & "' and " '76
                    End If '77