bikewap.vb

来自「VB写的wap系统」· VB 代码 · 共 38 行

Imports System.Data
Imports System.Data.OleDb


Namespace BicyleWap

Public Class BikeWap
    '获取数据库中的信息
    Public Function GetData(ByVal DatabaseUrl As String, ByVal StrSQL As String)
        Dim StrConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabaseUrl
        Dim Conn As New OleDbConnection(StrConn)
        Dim Cmd As OleDbCommand = New OleDbCommand(StrSQL, Conn)
        Conn.Open()
        Dim Result As OleDbDataReader = Cmd.ExecuteReader(CommandBehavior.CloseConnection)
        'Dim Result As OleDbDataReader = Cmd.ExecuteReader(CommandBehavior.SingleRow)
        Return Result
    End Function
    '向数据库插入记录
    Public Sub InsertInfo(ByVal DatabaseUrl As String, ByVal StrSQL As String)
        Dim StrConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabaseUrl
        Dim Conn As New OleDbConnection(StrConn)
        Dim Cmd As OleDbCommand = New OleDbCommand(StrSQL, Conn)
        Conn.Open()
        Cmd.ExecuteNonQuery()
    End Sub
    '替换特殊字符
    Public Function ReplaceSpecficChar(ByVal StrSource As String)
        StrSource = Replace(StrSource, "<", "&lt;")
        StrSource = Replace(StrSource, ">", "&gt;")
        StrSource = Replace(StrSource, "'", "&apos;")
        StrSource = Replace(StrSource, """", "&quot;")
        StrSource = Replace(StrSource, "&", "&amp;")
        Return StrSource
    End Function
End Class

End Namespace