bikewap.vb

一个WML和ASP+ACCESS写的留言版程序,对于初学者有着很好的重要性

Imports System.Data
Imports System.Data.OleDb
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