Imports System.Data
Imports System.Data.OleDb
1
''关闭连接2

Sub CloseConn()Sub CloseConn()3
Conn.Dispose()4
End Sub1
ublic Class ConfigClass Config
2
Public conn As OleDbConnection
3
4
Public StrAdminName As String ''管理用户名
5
Public StrPassword As String ''密码
6
Public StrLoginTime As String ''登录时间
7

ublic Class ConfigClass Config2
Public conn As OleDbConnection3

4
Public StrAdminName As String ''管理用户名5
Public StrPassword As String ''密码6
Public StrLoginTime As String ''登录时间 7

1

Function OpenConn()Function OpenConn()2
''连接数据库字符串3
Dim connStr As String4
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _5
& HttpContext.Current.Request.ServerVariables("APPL_PHYSICAL_PATH") _6
& "App_Data\DataBase.mdb"7
''定义数据库连接8
conn = New OleDbConnection(connStr)9
conn.Open() ''打开10
Return False11
End Function1
''此函数获取管理用户登录信息2

Function MySet()Function MySet()3
If IsNothing(HttpContext.Current.Request.Cookies("MyInfor")) Then4
''未登录的情况5
HttpContext.Current.Response.Redirect("Default.aspx")6
Else7
''已登录后的情况8
Dim myCookie As HttpCookie = HttpContext.Current.Request.Cookies("MyInfor")9
StrAdminName = myCookie("UserName")10
StrPassword = myCookie("Password")11
StrLoginTime = myCookie("LoginTime")12
End If13
Return False14
End Function1

Function IsAdminLogined()Function IsAdminLogined() As Boolean2
If IsNothing(HttpContext.Current.Request.Cookies("MyInfor")) Then3
''未登录的情况4
IsAdminLogined = False5
Else6
'已登录后的情况7
IsAdminLogined = True8
End If9
Return IsAdminLogined10
End Function1

Function md5()Function md5(ByVal Str As String) As String2
md5 = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(Str, "MD5")3
Return md54
End Function1
''设置警告对话框2

Function SetAlert()Function SetAlert(ByVal Str As String) As String3
HttpContext.Current.Response.Write("<script language=""JavaScript"" type=""text/JavaScript"">alert('" & Str & "');</script>")4
Return False5
End Function6

7
''设置关闭窗口8

Function SetCloseWindow()Function SetCloseWindow() As String9
HttpContext.Current.Response.Write("<script language=""JavaScript"" type=""text/JavaScript"">window.close();</script>")10
Return False11
End Function12

13
'地址跳转14

Function SetLocation()Function SetLocation(ByVal Str As String)15
HttpContext.Current.Response.Write("<script language=""JavaScript"">" & Chr(13) & " location=""" & Str & """<" & "/" & "script>")16
Return False17
End Function1

Function MySqlDataSource()Function MySqlDataSource(ByVal Sql As String) As DataView2
Try3
OpenConn()4
Dim Da As OleDbDataAdapter5
Dim Ds As New DataSet6
''sql 为传过来的查询语句7
Da = New OleDbDataAdapter(Sql, conn)8
Da.Fill(Ds, "temp")9
CloseConn()10
MySqlDataSource = Ds.Tables("temp").DefaultView11
Return MySqlDataSource12
Catch ex As Exception13

14
End Try15
End Function16

17

Function MySqlExcute()Function MySqlExcute(ByVal Sql As String)18
OpenConn()19
Dim cmd As OleDbCommand20
''sql 为传过来的查询语句21
cmd = New OleDbCommand(Sql, conn)22
cmd.ExecuteNonQuery()23
CloseConn()24
Return False25
End Function26
