bbs 类

Imports System.Data
Imports System.Data.OleDb
Imports System.Web
Imports System.Web.UI.Page
Imports System.Web.HttpContext
Imports System.Web.Mail

Public Class bbs
    '过程说明:
    'GETTABLE 输入一个SQL得到一个TABLE
    'record_del 删除记录号,可重载,输入记录号,表名,无返回
    'SQLExecuteNonQuery 执行SQL,可重载,输入SQL,库名,无返回

    '在WEB.CONFGI中的配置如下,加在<configuration>下面
    '<appSettings>
    '<add key="mydatabasepath" value="~/data/database.mdb"></add>
    '<add key="MYdatabaseconn" value="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="></add>
    '</appSettings>

    '作用:打开一个DATASET表
    '参数:传一个SQL语句
    'Dim myconnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("data/database.mdb"))
    'Dim mysql As String = "select * from articles"
    'Dim myconnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("data/database.mdb"))

 

    '***********************************************************
    '得到操作系统号
    '例:  浏 览 器：<%=GetSBInfo(Request.ServerVariables("HTTP_USER_AGENT"),1)%><br>
    ' 操作系统：<%=GetSBInfo(Request.ServerVariables("HTTP_USER_AGENT"),2)%><br>
    '得到值:MSIE 6.0 Windows 2003
    '***********************************************************
    Public Overloads Shared Function GetSBInfo(ByVal Str As String, ByVal Flag As Integer)
        If InStr(Str, ";") > 0 Then
            Dim T
            T = Split(Str, ";")
            If UBound(T) >= 2 Then
                T(2) = Replace(T(2), ")", "")
                T(2) = Replace(T(2), "NT 5.2", "2003")
                T(2) = Replace(T(2), "NT 5.1", "XP")
                T(2) = Replace(T(2), "NT 5.0", "2000")
                T(2) = Replace(T(2), "9x", "Me")
                T(1) = Trim(T(1))
                T(2) = Trim(T(2))
                If Flag = 1 Then
                    GetSBInfo = T(1)
                Else
                    GetSBInfo = T(2)
                End If
            Else
                If Flag = 1 Then
                    GetSBInfo = "未知"
                Else
                    GetSBInfo = "未知"
                End If
            End If
        Else
            If Flag = 1 Then
                GetSBInfo = "未知"
            Else
                GetSBInfo = "未知"
            End If
        End If

    End Function

    Public Shared Property message(ByVal True_False As Boolean) As String
        Get
            Dim nvc As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & HttpContext.Current.Server.MapPath("~/data/database.mdb")
            If True_False = True Then
                Return "操作成功"
            Else
                Return "操作失败"
            End If
            Return nvc
        End Get
        Set(ByVal Value As String)
        End Set
    End Property
End Class