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

    Public AspToAspX_Host_Class_Object As Object

Public bzname,bz,rsbzid,bz_id
Public p
Public sitenav
Public sql
Public rs As ADODB.Recordset
Public titletotal
Public retotal
Public clubuser_id
Public newmember
Public datestr
Public NewDate
Public myarray
Public yy
Public mm
Public dd
Public sqlstr
Public daytotal
Public zttotal
Public sql15
Public rs15
Public fticon
Public rsd
Public k
Public AspToAspX_Str
Public rs0
Public rsbz
Public bzid
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public layer_1
Public layer_2
    Public ASPX_CONN As _CONN
    Public ASPX_INC_UBBCODE As _INC_UBBCODE
    Public ASPX_INC_BBSTAIL_HTM As _INC_BBSTAIL_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_UBBCODE = New _INC_UBBCODE()
        ASPX_INC_UBBCODE.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_UBBCODE.AspToAspX_InitIncludeFiles()
        ASPX_INC_BBSTAIL_HTM = New _INC_BBSTAIL_HTM()
        ASPX_INC_BBSTAIL_HTM.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
        ASPX_INC_BBSTAIL_HTM.AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
        ASPX_CONN.AspToAspX_UnloadIncludeFiles()
        ASPX_CONN = Nothing
        ASPX_INC_UBBCODE.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_UBBCODE = Nothing
        ASPX_INC_BBSTAIL_HTM.AspToAspX_UnloadIncludeFiles()
        ASPX_INC_BBSTAIL_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_UBBCODE.AspToAspX_Page_Init ( )
    FTBBS_HTML_MB ( ft ) '4
    sitenav = Application ( "FTBBSMB" ) ( 65 , 0 ) '5
    If AspToAspX_CheckDBNull ( getcookie ( "ftbbstype" ) ) = EmptyString.Value Then '6
        Response.Cookies ( "ftbbstype" ).Value = 1 '7
        Response.Cookies ( "ftbbstype" ).Expires = ToDay ( ).AddDays ( 7 ) '8
    End If '9
    sql = "select sum(BBS_Cate_Topic) as k1,sum(BBS_Cate_Reply) as k2 from " & ft & "BBS_Cate where BBS_Cate_PID<>'0'" '10
    rs = New ADODB.Recordset ( ) '11
    rs.Open ( sql , conn , 1 , 1 ) '12
    titletotal = AspToAspX_CheckDBNull(rs.Fields ( "k1" ) .Value) '13
    retotal = AspToAspX_CheckDBNull(rs.Fields ( "k2" ) .Value) '14
    rs.Close ( ) '15
    sql = "select top 1 clubuser_id,clubuser_name from " & ft & "clubuser order by clubuser_id desc" '16
    rs = New ADODB.Recordset ( ) '17
    rs.Open ( sql , conn , 1 , 1 ) '18
    If Not rs.EOF Then '19
        clubuser_id = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) '20
        newmember = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) '21
    End If '22
    rs.Close ( ) '23
    datestr = formatdatetime ( DateAndTime.Now , 2 ) '24
    NewDate = DateAdd ( "d" , - 1 , datestr ) '25
    myarray = AspToAspX_Split ( formatdatetime ( DateAndTime.Now ( ) , 2 ) , "-" , - 1 , 1 ) '26
    yy = myarray ( 0 ) '27
    mm = myarray ( 1 ) '28
    dd = myarray ( 2 ) '29
    sqlstr = "select count(id) as daytotal from " & ft & "bbstitle where year(dateh)=" & yy & " and month(dateh)=" & mm & " and day(dateh)=" & dd & "" '30
    rs = conn.Execute ( sqlstr ) '31
    daytotal = AspToAspX_CheckDBNull(rs.Fields ( "daytotal" ) .Value) '32
    rs.Close ( ) '33
    If AspToAspX_CheckDBNull ( linkdb ) = 1 Then '34
        sqlstr = "select count(id) as daytotal from " & ft & "bbstitle where dateh<#" & datestr & "# and dateh>#" & NewDate & "#" '35
    Else '36
        sqlstr = "select count(id) as daytotal from " & ft & "bbstitle where dateh<'" & datestr & "' and dateh>'" & NewDate & "'" '37
    End If '38
    rs = conn.Execute ( sqlstr ) '39
    zttotal = AspToAspX_CheckDBNull(rs.Fields ( "daytotal" ) .Value) '40
    rs.Close ( ) '41
    Response.Write ( vbCrLf )
    Response.Write ( "<html>" & Chr ( 13 ) ) '43
    Response.Write ( "<head>" & Chr ( 13 ) ) '44
    Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '45
    Response.Write ( "<title>" ) '46
    Response.Write ( Application ( "FTBBSMB" ) ( 11 , 0 ) ) '46
    Response.Write ( "</title>" & Chr ( 13 ) ) '46
    Response.Write ( "<script language=javascript src=""inc/cookies.js""></script>" & Chr ( 13 ) ) '47
    Response.Write ( "<script>" & Chr ( 13 ) ) '48
    Response.Write ( "var stylecook = getCookie(""STYLESHOW"");" & Chr ( 13 ) ) '49
    Response.Write ( "var style;" & Chr ( 13 ) ) '50
    Response.Write ( "var strstyle;" & Chr ( 13 ) ) '51
    Response.Write ( "if(stylecook=="""")" & Chr ( 13 ) ) '52
    Response.Write ( "{" & Chr ( 13 ) ) '53
    Response.Write ( " stylecook=1;" & Chr ( 13 ) ) '54
    Response.Write ( "}" & Chr ( 13 ) ) '55
    Response.Write ( "else" & Chr ( 13 ) ) '56
    Response.Write ( "{" & Chr ( 13 ) ) '57
    Response.Write ( " stylecook++;" & Chr ( 13 ) ) '58
    Response.Write ( "}" & Chr ( 13 ) ) '59
    Response.Write ( "style=""main0""+stylecook+"".css"";" & Chr ( 13 ) ) '60
    Response.Write ( "strstyle=""<link href=\""css/""+style+""\""  rel=\""stylesheet\"" type=\""text/css\""> "";" & Chr ( 13 ) ) '61
    Response.Write ( "document.write(strstyle);" & Chr ( 13 ) ) '62
    Response.Write ( "</script>" & Chr ( 13 ) ) '63
    Response.Write ( "<style type=""text/css"">" & Chr ( 13 ) ) '64
    Response.Write ( "<!--" & Chr ( 13 ) ) '65
    Response.Write ( "a:link {" & Chr ( 13 ) ) '66
    Response.Write ( "" & Chr ( 9 ) & "font-size: 12px;" & Chr ( 13 ) ) '67
    Response.Write ( "" & Chr ( 9 ) & "font-style: normal;" & Chr ( 13 ) ) '68
    Response.Write ( "" & Chr ( 9 ) & "line-height: 22px;" & Chr ( 13 ) ) '69
    Response.Write ( "" & Chr ( 9 ) & "text-decoration: none;" & Chr ( 13 ) ) '70
    Response.Write ( "}" & Chr ( 13 ) ) '71
    Response.Write ( "a:visited {" & Chr ( 13 ) ) '72
    Response.Write ( "" & Chr ( 9 ) & "font-size: 12px;" & Chr ( 13 ) ) '73
    Response.Write ( "" & Chr ( 9 ) & "font-style: normal;" & Chr ( 13 ) ) '74
    Response.Write ( "" & Chr ( 9 ) & "line-height: 22px;" & Chr ( 13 ) ) '75
    Response.Write ( "" & Chr ( 9 ) & "text-decoration: none;" & Chr ( 13 ) ) '76
    Response.Write ( "}" & Chr ( 13 ) ) '77
    Response.Write ( "a:hover {" & Chr ( 13 ) ) '78
    Response.Write ( "" & Chr ( 9 ) & "font-size: 12px;" & Chr ( 13 ) ) '79
    Response.Write ( "" & Chr ( 9 ) & "font-style: normal;" & Chr ( 13 ) ) '80
    Response.Write ( "" & Chr ( 9 ) & "line-height: 22px;" & Chr ( 13 ) ) '81
    Response.Write ( "" & Chr ( 9 ) & "color: #FF0000;" & Chr ( 13 ) ) '82
    Response.Write ( "" & Chr ( 9 ) & "text-decoration: underline;" & Chr ( 13 ) ) '83
    Response.Write ( "}" & Chr ( 13 ) ) '84
    Response.Write ( "#wrap{word-break:break-all; width:320px; overflow:hidden;}" & Chr ( 13 ) ) '85
    Response.Write ( "-->" & Chr ( 13 ) ) '86
    Response.Write ( "</style>" & Chr ( 13 ) ) '87
    Response.Write ( "</head>" & Chr ( 13 ) ) '88
    Response.Write ( "<script language=""javascript"">" & Chr ( 13 ) ) '89
    Response.Write ( "<!--" & Chr ( 13 ) ) '90
    Response.Write ( "" & Chr ( 9 ) & "function check_search(form)" & Chr ( 13 ) ) '91
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "{" & Chr ( 13 ) ) '92
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "if (form.searchcontent.value=="""")" & Chr ( 13 ) ) '93
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "{" & Chr ( 13 ) ) '94
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "alert(""请输入搜索内容！"");" & Chr ( 13 ) ) '95
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "form.searchcontent.focus();" & Chr ( 13 ) ) '96
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "return false;" & Chr ( 13 ) ) '97
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "}" & Chr ( 13 ) ) '98
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "return true;" & Chr ( 13 ) ) '99
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "}" & Chr ( 13 ) ) '100
    Response.Write ( "//-->" & Chr ( 13 ) ) '101
    Response.Write ( "</script>" & Chr ( 13 ) ) '102
    Response.Write ( "<body>" & Chr ( 13 ) ) '103
    Response.Write ( "<center>" & Chr ( 13 ) ) '104
    Response.Write ( sitenav ) '105
    Response.Write ( vbCrLf )
    Response.Write ( "  <table cellspacing=0 cellpadding=0 width=""99%"" align=center border=0>" & Chr ( 13 ) ) '106
    Response.Write ( "    <tbody>" & Chr ( 13 ) ) '107
    Response.Write ( "      <tr> " & Chr ( 13 ) ) '108
    Response.Write ( "        <td width=""13%"" height=70> <div align=""left""><img src=""images/tmlogo.gif"" width=""112"" height=""50""></div></td>" & Chr ( 13 ) ) '109
    Response.Write ( "        <td width=""87%""><div align=""right""> " & Chr ( 13 ) ) '110
    Response.Write ( "       <script language=""JavaScript"" src=""sitead.js""></script>" & Chr ( 13 ) ) '111
    Response.Write ( "          </div></td>" & Chr ( 13 ) ) '112
    Response.Write ( "      </tr>" & Chr ( 13 ) ) '113
    Response.Write ( "    </tbody>" & Chr ( 13 ) ) '114
    Response.Write ( "  </table>" & Chr ( 13 ) ) '115
    Response.Write ( "  <table cellspacing=0 cellpadding=0 width=""99%"" align=center border=0>" & Chr ( 13 ) ) '116
    Response.Write ( "    <tbody>" & Chr ( 13 ) ) '117
    Response.Write ( "      <tr> " & Chr ( 13 ) ) '118
    Response.Write ( "        <td height=1></td>" & Chr ( 13 ) ) '119
    Response.Write ( "      </tr>" & Chr ( 13 ) ) '120
    Response.Write ( "    </tbody>" & Chr ( 13 ) ) '121
    Response.Write ( "  </table>" & Chr ( 13 ) ) '122
    Response.Write ( "  <table cellspacing=0 cellpadding=0 width=""99%"" align=center border=0>" & Chr ( 13 ) ) '123
    Response.Write ( "    <tbody>" & Chr ( 13 ) ) '124
    Response.Write ( "      <tr> " & Chr ( 13 ) ) '125
    Response.Write ( "        <td class=""maintbtr1"" height=2></td>" & Chr ( 13 ) ) '126
    Response.Write ( "      </tr>" & Chr ( 13 ) ) '127
    Response.Write ( "      <tr> " & Chr ( 13 ) ) '128
    Response.Write ( "        <td height=1></td>" & Chr ( 13 ) ) '129
    Response.Write ( "      </tr>" & Chr ( 13 ) ) '130
    Response.Write ( "    </tbody>" & Chr ( 13 ) ) '131
    Response.Write ( "  </table>" & Chr ( 13 ) ) '132
    Response.Write ( "  <table width=""99%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & Chr ( 13 ) ) '133
    Response.Write ( "    <tr> " & Chr ( 13 ) ) '134
    Response.Write ( "      <td height=""18"" class=""maintbtr3""><script src=""inc/defaultlist_login.aspx""></script></td>" & Chr ( 13 ) ) '135
    Response.Write ( "    </tr>" & Chr ( 13 ) ) '136
    Response.Write ( "  </table>" & Chr ( 13 ) ) '137
    Response.Write ( "  <table cellspacing=0 cellpadding=0 width=""99%"" align=center border=0>" & Chr ( 13 ) ) '138
    Response.Write ( "    <tbody>" & Chr ( 13 ) ) '139
    Response.Write ( "      <tr> " & Chr ( 13 ) ) '140
    Response.Write ( "        <td class=""maintbtr1"" height=2></td>" & Chr ( 13 ) ) '141
    Response.Write ( "      </tr>" & Chr ( 13 ) ) '142
    Response.Write ( "      <tr> " & Chr ( 13 ) ) '143
    Response.Write ( "        <td height=1></td>" & Chr ( 13 ) ) '144
    Response.Write ( "      </tr>" & Chr ( 13 ) ) '145
    Response.Write ( "      <tr> " & Chr ( 13 ) ) '146
    Response.Write ( "        <td><script src=""listad.js""></script></td>" & Chr ( 13 ) ) '147
    Response.Write ( "      </tr>" & Chr ( 13 ) ) '148
    Response.Write ( "    </tbody>" & Chr ( 13 ) ) '149