弹出无边框网页的Javscrpt代码

Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.OleDb

1  ''关闭连接
2    Sub CloseConn()Sub CloseConn()
3        Conn.Dispose()
4    End Sub

1ublic 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

 1  Function OpenConn()Function OpenConn()
 2        ''连接数据库字符串
 3        Dim connStr As String
 4        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 False
11    End Function

 1 ''此函数获取管理用户登录信息
 2    Function MySet()Function MySet()
 3        If IsNothing(HttpContext.Current.Request.Cookies("MyInfor")) Then
 4            ''未登录的情况
 5            HttpContext.Current.Response.Redirect("Default.aspx")
 6        Else
 7            ''已登录后的情况
 8            Dim myCookie As HttpCookie = HttpContext.Current.Request.Cookies("MyInfor")
 9            StrAdminName = myCookie("UserName")
10            StrPassword = myCookie("Password")
11            StrLoginTime = myCookie("LoginTime")
12        End If
13        Return False
14    End Function

 1 Function IsAdminLogined()Function IsAdminLogined() As Boolean
 2        If IsNothing(HttpContext.Current.Request.Cookies("MyInfor")) Then
 3            ''未登录的情况
 4            IsAdminLogined = False
 5        Else
 6            '已登录后的情况
 7            IsAdminLogined = True
 8        End If
 9        Return IsAdminLogined
10    End Function

1 Function md5()Function md5(ByVal Str As String) As String
2        md5 = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(Str, "MD5")
3        Return md5
4    End Function

VB.NET操作JS代码
 1  ''设置警告对话框
 2    Function SetAlert()Function SetAlert(ByVal Str As String) As String
 3        HttpContext.Current.Response.Write("<script language=""JavaScript"" type=""text/JavaScript"">alert('" & Str & "');</script>")
 4        Return False
 5    End Function
 6
 7    ''设置关闭窗口
 8    Function SetCloseWindow()Function SetCloseWindow() As String
 9        HttpContext.Current.Response.Write("<script language=""JavaScript"" type=""text/JavaScript"">window.close();</script>")
10        Return False
11    End Function
12
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 False
17    End Function

 1 Function MySqlDataSource()Function MySqlDataSource(ByVal Sql As String) As DataView
 2        Try
 3            OpenConn()
 4            Dim Da As OleDbDataAdapter
 5            Dim Ds As New DataSet
 6            ''sql 为传过来的查询语句
 7            Da = New OleDbDataAdapter(Sql, conn)
 8            Da.Fill(Ds, "temp")
 9            CloseConn()
10            MySqlDataSource = Ds.Tables("temp").DefaultView
11            Return MySqlDataSource
12        Catch ex As Exception
13
14        End Try
15    End Function
16
17    Function MySqlExcute()Function MySqlExcute(ByVal Sql As String)
18        OpenConn()
19        Dim cmd As OleDbCommand
20        ''sql 为传过来的查询语句
21        cmd = New OleDbCommand(Sql, conn)
22        cmd.ExecuteNonQuery()
23        CloseConn()
24        Return False
25    End Function
26