index.aspx.vb

本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量 基于ASP.NET的DLL可以运行在支持ASP

            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_ID" ) .Value) ) '158
            Response.Write ( "&BBS_Cate_Name=" ) '158
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Name" ) .Value) ) '158
            Response.Write ( """><FONT  COLOR=""blue"">" ) '158
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_ID" ) .Value) ) '158
            Response.Write ( "</FONT></A> " & Chr ( 13 ) ) '158
            Response.Write ( "      " ) '159
        Else '159
        Response.Write ( vbCrLf )
            Response.Write ( "      " ) '160
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_ID" ) .Value) ) '160
            Response.Write ( " " & Chr ( 13 ) ) '160
            Response.Write ( "      " ) '161
        End If '161
        Response.Write ( vbCrLf )
        Response.Write ( "    </td>" & Chr ( 13 ) ) '162
        Response.Write ( "    <td>" ) '163
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Name" ) .Value) ) '163
        Response.Write ( "</td>" & Chr ( 13 ) ) '163
        Response.Write ( "    <td>" ) '164
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Topic" ) .Value) ) '164
        Response.Write ( "</td>" & Chr ( 13 ) ) '164
        Response.Write ( "    <td>" ) '165
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Reply" ) .Value) ) '165
        Response.Write ( "</td>" & Chr ( 13 ) ) '165
        Response.Write ( "    <td>" ) '166
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Manager_Name" ) .Value) ) '166
        Response.Write ( "</td>" & Chr ( 13 ) ) '166
        Response.Write ( "    <td>" ) '167
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Manager_Email" ) .Value) ) '167
        Response.Write ( "</td>" & Chr ( 13 ) ) '167
        Response.Write ( "    <!--<td>" & Chr ( 13 ) ) '168
        Response.Write ( "      " ) '169
        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "display" ) .Value) ) = 0 Then '169
        Response.Write ( vbCrLf )
            Response.Write ( "      <A HREF=""lzstatus.aspx?BBS_ID=" ) '170
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_ID" ) .Value) ) '170
            Response.Write ( "&display=1""><FONT COLOR=""red"">否</FONT></A> " & Chr ( 13 ) ) '170
            Response.Write ( "      " ) '171
        Else '171
        Response.Write ( vbCrLf )
            Response.Write ( "      <A HREF=""lzstatus.aspx?BBS_ID=" ) '172
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_ID" ) .Value) ) '172
            Response.Write ( "&display=0""><FONT COLOR=""green"">是</FONT></A> " & Chr ( 13 ) ) '172
            Response.Write ( "      " ) '173
        End If '173
        Response.Write ( vbCrLf )
        Response.Write ( "    </td>-->" & Chr ( 13 ) ) '174
        Response.Write ( "    <td > " & Chr ( 13 ) ) '175
        Response.Write ( "      " ) '176
        If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "Deleted" ) .Value) ) = 0 Then '176
        Response.Write ( vbCrLf )
            Response.Write ( "      <A HREF=""status.aspx?BBS_ID=" ) '177
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_ID" ) .Value) ) '177
            Response.Write ( "&sign=1""><FONT COLOR=""red"">已转正</FONT></A> " & Chr ( 13 ) ) '177
            Response.Write ( "      " ) '178
        Else '178
        Response.Write ( vbCrLf )
            Response.Write ( "      <A HREF=""status.aspx?BBS_ID=" ) '179
            Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_ID" ) .Value) ) '179
            Response.Write ( "&sign=0""><FONT COLOR=""green"">未转正</FONT></A> " & Chr ( 13 ) ) '179
            Response.Write ( "      " ) '180
        End If '180
        Response.Write ( vbCrLf )
        Response.Write ( "    </td>" & Chr ( 13 ) ) '181
        Response.Write ( "    <FORM METHOD=POST ACTION=""Category_mod.aspx"">" & Chr ( 13 ) ) '182
        Response.Write ( "      <td> <INPUT TYPE=""hidden"" name=""BBS_Cate_ID"" value=""" ) '183
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_ID" ) .Value) ) '183
        Response.Write ( """> " & Chr ( 13 ) ) '183
        Response.Write ( "        <INPUT TYPE=""hidden"" name=""Layer"" value=""" ) '184
        Response.Write ( Layer ) '184
        Response.Write ( """> <INPUT TYPE=""submit"" name=""修改"" value=""修改"" " ) '184
        If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 2 ) ) < = 0 Then '184
            Response.Write ( "disabled" ) '184
        End If '184
        Response.Write ( "> " & Chr ( 13 ) ) '184
        Response.Write ( "      </td>" & Chr ( 13 ) ) '185
        Response.Write ( "    </FORM>" & Chr ( 13 ) ) '186
        Response.Write ( "    <FORM METHOD=POST ACTION=""Category_del.aspx"" >" & Chr ( 13 ) ) '187
        Response.Write ( "      <td> <INPUT TYPE=""hidden"" name=""BBS_Cate_ID"" value=""" ) '188
        Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_ID" ) .Value) ) '188
        Response.Write ( """> " & Chr ( 13 ) ) '188
        Response.Write ( "        <INPUT TYPE=""submit"" name=""删除"" value=""删除"" onclick=""return confirm('确实要删除吗？');"" " ) '189
        If AspToAspX_CheckDBNull ( InStr ( Session ( "admin_qs" ) , 3 ) ) < = 0 Then '189
            Response.Write ( "disabled" ) '189
        End If '189
        Response.Write ( "> " & Chr ( 13 ) ) '189
        Response.Write ( "      </td>" & Chr ( 13 ) ) '190
        Response.Write ( "    </FORM>" & Chr ( 13 ) ) '191
        Response.Write ( "  </tr>" & Chr ( 13 ) ) '192
        Response.Write ( "  " ) '193
        rs.MoveNext ( ) '194
    Loop '195
    Response.Write ( vbCrLf )
    Response.Write ( "</table>" & Chr ( 13 ) ) '197
    Response.Write ( "<br>" & Chr ( 13 ) ) '198
    Response.Write ( "</body>" & Chr ( 13 ) ) '199
    Response.Write ( "</html>" & Chr ( 13 ) ) '200
    rs.Close ( ) '202
    rs = Nothing '203
    conn.Close ( ) '204
    conn = Nothing '205
    Response.Write ( vbCrLf )

        AspToAspX_UnloadIncludeFiles()
        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("index_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
#Region "..."
    Public Property conn
        Get
            conn = ASPX_CONN.conn
        End Get
        Set(ByVal value)
            ASPX_CONN.conn = value
        End Set
    End Property
    Public Property qs
        Get
            qs = ASPX_CONN.qs
        End Get
        Set(ByVal value)
            ASPX_CONN.qs = value
        End Set
    End Property
    Public Property errc
        Get
            errc = ASPX_CONN.errc
        End Get
        Set(ByVal value)
            ASPX_CONN.errc = value
        End Set
    End Property
    Public Property iii
        Get
            iii = ASPX_CONN.iii
        End Get
        Set(ByVal value)
            ASPX_CONN.iii = value
        End Set
    End Property
    Public Property nothis
        Get
            nothis = ASPX_CONN.nothis
        End Get
        Set(ByVal value)
            ASPX_CONN.nothis = value
        End Set
    End Property
    Public Sub makeftbbstree(ByRef  ft )
        ASPX_CONN.makeftbbstree( ft )
    End Sub

    Public Sub CloseDb
        ASPX_CONN.CloseDb
    End Sub

    Public Sub SaveToFile( ByVal strBody,ByVal File )
        ASPX_CONN.ASPX_ADOSTREAM.SaveToFile( strBody, File )
    End Sub

    Public Function Checkstr(ByRef  AspToAspX_Str )
        Return ASPX_CONN.Checkstr( AspToAspX_Str )
    End Function

    Public Function CheckCharStr(ByRef  usernamepsw,ByRef flag )
        Return ASPX_CONN.CheckCharStr( usernamepsw,flag )
    End Function

    Public Function ftbbs_msg(ByRef  msg,ByRef reurl )
        Return ASPX_CONN.ftbbs_msg( msg,reurl )
    End Function

    Public Function login_msg(ByRef  msg,ByRef reurl )
        Return ASPX_CONN.login_msg( msg,reurl )
    End Function

    Public Function FTBBS_HTML_MB(ByRef  ft )
        Return ASPX_CONN.FTBBS_HTML_MB( ft )
    End Function

    Public Function FTBBS_BZ_NAME(ByRef  BoardID_1,ByRef ft )
        Return ASPX_CONN.FTBBS_BZ_NAME( BoardID_1,ft )
    End Function

    Public Function FTBBS_BZ_NAME2(ByRef  BoardID_1,ByRef BoardID_2,ByRef ft )
        Return ASPX_CONN.FTBBS_BZ_NAME2( BoardID_1,BoardID_2,ft )
    End Function

    Public Function makefilename(ByRef  fname )
        Return ASPX_CONN.makefilename( fname )
    End Function

    Public Function GetExtendName(ByRef  FileName )
        Return ASPX_CONN.GetExtendName( FileName )
    End Function

    Public Function IsObjInstalled(ByRef  strClassString )
        Return ASPX_CONN.IsObjInstalled( strClassString )
    End Function

    Public Function ChkMapPath( ByVal strPath )
        Return ASPX_CONN.ChkMapPath( strPath )
    End Function

    Public Function userlogin(ByRef  ft )
        Return ASPX_CONN.userlogin( ft )
    End Function

    Public Function headhtml
        Return ASPX_CONN.headhtml
    End Function

    Public Function GetOpInfo(ByRef  AspToAspX_Str,ByRef Flag )
        Return ASPX_CONN.GetOpInfo( AspToAspX_Str,Flag )
    End Function

    Public Function getcode
        Return ASPX_CONN.getcode
    End Function

    Public Function codepass
        Return ASPX_CONN.codepass
    End Function

    Public Function Ftbbs_Time
        Return ASPX_CONN.Ftbbs_Time
    End Function

    Public Function ft_home(ByRef  defaulthome )
        Return ASPX_CONN.ft_home( defaulthome )
    End Function

    Public Function chkpost
        Return ASPX_CONN.chkpost
    End Function

    Public Function CodeCookie(ByRef  AspToAspX_Str )
        Return ASPX_CONN.CodeCookie( AspToAspX_Str )
    End Function

    Public Function DecodeCookie(ByRef  AspToAspX_Str )
        Return ASPX_CONN.DecodeCookie( AspToAspX_Str )
    End Function

    Public Function setcookie(ByRef  cookexpires,ByRef cookdomain,ByRef cookneme,ByRef cookvalue )
        Return ASPX_CONN.setcookie( cookexpires,cookdomain,cookneme,cookvalue )
    End Function

    Public Function getcookie(ByRef  ckname )
        Return ASPX_CONN.getcookie( ckname )
    End Function

    Public Function clearcookie(ByRef  cookdomain,ByRef cookneme )
        Return ASPX_CONN.clearcookie( cookdomain,cookneme )
    End Function

    Public Function LoadFile( ByVal File )
        Return ASPX_CONN.ASPX_ADOSTREAM.LoadFile( File )
    End Function

    Public Function adminlogin(ByRef  ft )
        Return ASPX_ADMIN_CHECK_MASTER.adminlogin( ft )
    End Function

#End Region
End Class