弹出无边框网页的Javscrpt代码

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

''关闭连接
2

Sub CloseConn()Sub CloseConn()
3

Conn.Dispose()
4

End Sub

ublic Class ConfigClass Config
2

Public conn As OleDbConnection
3

Public StrAdminName As String ''管理用户名
5

Public StrPassword As String ''密码
6

Public StrLoginTime As String ''登录时间　
7

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

''此函数获取管理用户登录信息
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

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

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

''设置关闭窗口
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

'地址跳转
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

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

End Try
15

End Function
16

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

弹出无边框网页的Javscrpt代码相关推荐

php网页，想弹出对话框，消息框简单代码
php网页,想弹出对话框, 消息框简单代码 <?php echo "<script language=\"JavaScript\">alert(\&q ...
电脑无故弹出yyy102.html网页的解决办法(没办法，今天中招了)
电脑无故弹出yyy102.html网页的解决办法最近不少网民反映电脑隔段时间就会自动弹出某些网站,比如:(千万不要点!!!) http://www.ecommerc-e.com/normal/yyy ...
三种方法实现弹出框边框半透明和圆角的效果
发现支付宝的一个充值抽红包的系统里面有个弹出对话框,边框半透明效果,就想着自己做一个弹出对话框效果, 用三种方法实现弹出框边框半透明和圆角的效果 1.用rgba来实现背景半透明,设置内边距 2.设置b ...
vue写js代码_vue.js弹出式音乐播放器特效代码
码农那点事儿关注我们,一起学习进步 vue弹出式音乐播放器是一款基于vue.js实现的点击弹出式音乐播放器代码特效,点击图片即可弹出播放界面大图,可切换列表模式,上一首下一首音乐切换等功能. 下载源 ...
Google语音搜索在无网络下进入，不断弹出无网络的toast，按返回键无效
Google语音搜索在无网络下进入,不断弹出无网络的toast,按返回键无效 [DESCRIPTION] 1. 在无网络下进入Google语音搜索: 2. 不断弹出无网络的toast,按返回键无法退出 ...
电脑一直弹出传奇游戏网页弹窗怎么办
在使用电脑的时候,如果不小心下载了恶意的广告插件,可能会导致在使用电脑的时候经常会出现广告弹窗等情况.最近就有网友反映自己的电脑一直弹出传奇游戏网页弹窗怎么办,不知道该怎么拦截传奇游戏网页弹窗.下面小 ...
在sweetalert弹出窗插件中加入html代码
sweetalert介绍: SweetAlert是一个JavaScript原生插件,不需要jquery支持的,能够完美替代JavaScript自带的alert弹出框,并且功能强大.设计优美.最重要的一 ...
JS实现复制页面文字弹出消息提醒/在sweetalert(swal)弹出窗插件中加入html代码
简洁版: <script type="text/javascript">document.body.oncopy=function(){alert("复制成功 ...
关于Win11安装Anaconda弹出Navigator Error网页报错的解决方案
关于Win11安装Anaconda弹出Navigator Error网页报错的解决方案前言昨晚因为电脑故障要重装系统,脑子一抽就升级了Win11. 本来倒也没什么,基本上所有的软件都安装完了,但在 ...

弹出无边框网页的Javscrpt代码

弹出无边框网页的Javscrpt代码相关推荐

最新文章

热门文章