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

    Public AspToAspX_Host_Class_Object As Object

Public sql
Public rs As ADODB.Recordset
Public ft
Public conn
#Region "..."
    Public Sub AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
    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
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--Logo部分开始-->" & Chr ( 13 ) ) '1
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div id=""LogoNav"" class=""width780"">" & Chr ( 13 ) ) '2
    Response.Write ( "  <div class=""Logo"">" & Chr ( 13 ) ) '3
    Response.Write ( "    <div align=""left""><img src=""images/homelogo.gif"" alt="""" width=""170"" height=""60"" /></div>" & Chr ( 13 ) ) '4
    Response.Write ( "  </div>" & Chr ( 13 ) ) '5
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""LogoAD""><img alt="""" src=""blogimages/banner.gif"" width=""601"" height=""60"" /></div>" & Chr ( 13 ) ) '6
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '7
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--Logo部分结束-->" & Chr ( 13 ) ) '8
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--导航菜单开始-->" & Chr ( 13 ) ) '9
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div id=""MenuNav"" class=""width780"">" & Chr ( 13 ) ) '10
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""NavLeft""></div>" & Chr ( 13 ) ) '11
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""NavCenter"">" & Chr ( 13 ) ) '12
    sql = "select BBS_Cate_Name,BBS_Cate_ID,BBS_Cate_PID,BBS_Cate_Qs,BBS_Cate_Note,BBS_Cate_Topic,BBS_Cate_Reply,BBS_Cate_Manager_Name from " & ft & "BBS_Cate where BBS_Cate_PID='0' and deleted=0 order by totop asc" '14
    rs = New ADODB.Recordset ( ) '15
    rs.Open ( sql , conn , 1 , 1 ) '16
    Do While Not rs.EOF '17
        Response.Write ( vbCrLf )
        Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<a href=""default.aspx?a=" ) '19
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_ID" ) .Value) ) '19
        Response.Write ( """>" ) '19
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Name" ) .Value) ) '19
        Response.Write ( "</a> <img alt="""" src=""blogimages/line-center.gif"" align=""middle"" />" & Chr ( 13 ) ) '19
        rs.MoveNext ( ) '21
    Loop '22
    rs.Close ( ) '23
    Response.Write ( vbCrLf )
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<a href=""default.aspx"">进入总论坛</a><img alt="""" src=""blogimages/line-center.gif"" align=""middle"" />" & Chr ( 13 ) ) '25
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<a href=""http://www.ftbbs.cn"">返回首页</a>" & Chr ( 13 ) ) '26
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '27
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""NavRight""></div>" & Chr ( 13 ) ) '28
    Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '29
    Response.Write ( "<!--导航菜单结束-->" & Chr ( 13 ) ) '30

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("navhead_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
#Region "..."
#End Region
End Class