navhead.htm.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_HTM

    Public AspToAspX_Host_Class_Object As Object

#Region "..."
    Public Sub AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
    End Sub

#End Region
    Public Sub AspToAspX_Page_Init()
    On Error GoTo _AspToAspX_Err
    Response.Write ( "<!--Logo部分开始-->" & Chr ( 13 ) ) '1
    Response.Write ( "<div id=""LogoNav"" class=""ad"">" & Chr ( 13 ) ) '2
    Response.Write ( "    <div class=""Logo"">" & Chr ( 13 ) ) '3
    Response.Write ( "    <div align=""left""><img src=""blogimages/logo.gif"" alt="""" width=""170"" height=""60"" /></div>" & Chr ( 13 ) ) '4
    Response.Write ( "    </div>" & Chr ( 13 ) ) '5
    Response.Write ( "  <div class=""LogoAD""> " & Chr ( 13 ) ) '6
    Response.Write ( "    <script language=javascript src=""indexad.js""></script>" & Chr ( 13 ) ) '7
    Response.Write ( "  </div>" & Chr ( 13 ) ) '8
    Response.Write ( "</div>" & Chr ( 13 ) ) '9
    Response.Write ( "<!--Logo部分结束-->" & Chr ( 13 ) ) '10
    Response.Write ( "<!--导航菜单开始-->" & Chr ( 13 ) ) '11
    Response.Write ( "<div id=""MenuNav"" class=""width780"">" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" & Chr ( 13 ) ) '12
    Response.Write ( "  <div class=""NavCenter""> <a href=""bkindex.aspx"">空间首页</a> <img alt="""" src=""blogimages/line-center.gif"" align=""middle"" /> " & Chr ( 13 ) ) '13
    Response.Write ( "    <a href=""show_space.aspx"">空间索引</a> <img alt="""" src=""blogimages/line-center.gif"" align=""middle"" /> " & Chr ( 13 ) ) '14
    Response.Write ( "    <a href=""show_top.aspx"">话题索引</a> <img alt="""" src=""blogimages/line-center.gif"" align=""middle"" /> " & Chr ( 13 ) ) '15
    Response.Write ( "    <a href=""show_top.aspx"" class=""NavLink"">博客文章</a> <img alt="""" src=""blogimages/line-center.gif"" align=""middle"" /> " & Chr ( 13 ) ) '16
    Response.Write ( "    <a href=""show_topic.aspx"" class=""NavLink"">相册图片</a> <img alt="""" src=""blogimages/line-center.gif"" align=""middle"" /> " & Chr ( 13 ) ) '17
    Response.Write ( "    <a href=""default.aspx?n=regist"">申请个人空间</a> <img alt="""" src=""blogimages/line-center.gif"" align=""middle"" /> " & Chr ( 13 ) ) '18
    Response.Write ( "    <a href=""default.aspx"">进入论坛</a> <img alt="""" src=""blogimages/line-center.gif"" align=""middle"" /> " & Chr ( 13 ) ) '19
    Response.Write ( "    <a href=""#"">站点首页</a> &nbsp;&nbsp;</div>" & Chr ( 13 ) ) '20
    Response.Write ( "</div>" & Chr ( 13 ) ) '21
    Response.Write ( "<!--导航菜单结束-->" & Chr ( 13 ) ) '22

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