Javascript刷新页面的几种方法
1，reload 方法，该方法强迫浏览器刷新当前页面。 语法： location.reload([bForceGet]) 参数： bForceGet， 可选参数， 默认为 false，从客户端缓存里取当前页。true, 则以 GET 方式，从服务端取最新 …
浏览类别
1，reload 方法，该方法强迫浏览器刷新当前页面。 语法： location.reload([bForceGet]) 参数： bForceGet， 可选参数， 默认为 false，从客户端缓存里取当前页。true, 则以 GET 方式，从服务端取最新 …
Win7不能访问XP共享文件 与 XP不能访问Win7共享文件 所需的一些基本条件都是相同的，比如Win7和XP必须在同一IP地址段、必须为同一工作组，等等！任何一个错误的设置都有可能导致Win7和XP不能互相访问！ …
打开系统的服务选项: 检查在win7 64位上Remote Procedure Call (RPC)和Remote Procedure Call (RPC) Locator这两个服务是否开启。 然后就是下面两个很重要:这两个都是手动的,需要自己设置成自动启动. Remot …
UI 是 User Interface（用户界面）的缩写，我们常常把用户体验挂在嘴边，而 UI 就是提升用户体验的秘密武器。友好的用户界面，可以实现用户 与网站或者软件之间更好的交互，让软件的操作变得更加舒 …
软件开发通常被认为是一个相当体面的工作，有很好的工资待遇，工作具有挑战性，目前市场对程序员的需求量在增加，而且工作环境很安全。但是所有的这些并不意味着开发人员无忧无虑，说不定会梦到工作中出现 …
用户要求在微信端登录一次后,以后不需要再登录. 我的系统是单独的一个网站. 使用MVC的记住密码功能， 如果用户重启，就还是要输入密码，所以需要有一个唯一不变的用来标示用户的ID。 OpenID就是这样，微 …
在WordPress中，要在文章中插入一段FLASH或者音乐，除了使用相应的FLASH插件和音频插件（比如Audio Player插件）以外，还可以使用html式的代码来实现调用，此举也可避免插件太多影响页面加载速度。 插入FLA …
PuTTY 是 Windows 上最经典知名的免费 SSH / Telnet 客户端软件之一，它可以通过 SSH Telnet 协议连接到你的服务器，然后通过命令行进行各种远程操作。 随着 Linux 服务器端的普及，Linux 系统管理越来越依 …
Windows10访问不了WindowsXP/2003共享文件夹 开启SMBV1协议，重启电脑 方法/步骤 Windows10访问不了WindowsXP/2003共享文件夹错误提示，如图 win10系统未安装SMBV1协议 打开控制面板找到程序 3 windows功能 …
写一个win服务.vb.net 可以写的.先新建一个windows服务项目,写好代码以后,在设计页按鼠标右键添加安装程序,在刚添加的安装程序设计里面修改这里面的两个成员的属性.account是启动帐号,一般可设置为localsys …
Application当程序运行到这句时出现下面的错误：检索 COM 类工厂中 CLSID 为 {000209FF-0000-0000-C000-000000000046} 的组件时失败，原因是出现以下错误: 80070005。3.单击”安全”选项卡,分别在”启动和激活 …
有很多的厂商在为DSM开发套件，有些是很优秀的饿，如packages.synocommunity.com，有些已经停止开发，但appp还在，有些网址不能正常访问，自己想办法fq，或者不用。请注意：不是所有的第三方app能正常使用 …
原使用的人人影视docker不能用了，搜索出来无信息，当时使用的是oldiy/rrshare64。在F12报错信息中，可以看到原来的接口没有返回值了，应该是人人影视把接口地址更换了。 从docker hub中找到了一个更新过的 …
群晖NAS PT下载使用NAS自带的download station即可，但它的默认配置不太适用于PT，需要调整几个地方。 download station默认的设置是这样的，限制了上传速度以及连接peer的数目等等。这些都影响你的上传和 …
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
<pre class="inline:true class:language-dotnet decode:1 " > ''' <summary> ''' BASE64编码 ''' </summary> ''' <param name="code">待加密字符串</param> ''' <returns>加密后字符串</returns> ''' <remarks></remarks> Public Shared Function EncodeBase64(ByVal code As String) As String Dim encode As String = "" Dim bytes As Byte() = Encoding.Default.GetBytes(code) Try encode = Convert.ToBase64String(bytes) Catch encode = code End Try Return encode End Function ''' <summary> ''' BASE64解码 ''' </summary> ''' <param name="code">加密字符串</param> ''' <returns>解密后字符串</returns> ''' <remarks></remarks> Public Function DecodeBase64(ByVal code As String) As String Dim decode As String = "" Dim bytes As Byte() = Convert.FromBase64String(code) Try decode = Encoding.Default.GetString(bytes) Catch decode = code End Try Return decode End Function |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 |
<pre class="inline:true class:language-dotnet decode:1 " > ''' <summary> ''' AES加密 ''' </summary> ''' <param name="str">需加密字符串</param> ''' <param name="key">KEY</param> ''' <returns></returns> ''' <remarks></remarks> Public Shared Function AesEncrypt(ByVal str As String, ByVal key As String) As String Dim ReStr As String = "" If String.IsNullOrEmpty(str) Then Return Nothing Try Dim toEncryptArray As Byte() = Encoding.UTF8.GetBytes(str) Dim rm As System.Security.Cryptography.RijndaelManaged = New System.Security.Cryptography.RijndaelManaged With { .Key = Encoding.UTF8.GetBytes(key), .Mode = System.Security.Cryptography.CipherMode.ECB, .Padding = System.Security.Cryptography.PaddingMode.PKCS7 } Dim cTransform As System.Security.Cryptography.ICryptoTransform = rm.CreateEncryptor() Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length) ReStr = Convert.ToBase64String(resultArray, 0, resultArray.Length) Catch ex As Exception End Try AesEncrypt = ReStr End Function ''' <summary> ''' AES解密 ''' </summary> ''' <param name="str">需解密字符串</param> ''' <param name="key">KEY</param> ''' <returns></returns> ''' <remarks></remarks> Shared Function AesDecrypt(ByVal str As String, ByVal key As String) As String Dim ReStr As String = "" If String.IsNullOrEmpty(str) Then Return Nothing Try Dim toEncryptArray As Byte() = Convert.FromBase64String(str) Dim rm As System.Security.Cryptography.RijndaelManaged = New System.Security.Cryptography.RijndaelManaged With { .Key = Encoding.UTF8.GetBytes(key), .Mode = System.Security.Cryptography.CipherMode.ECB, .Padding = System.Security.Cryptography.PaddingMode.PKCS7 } Dim cTransform As System.Security.Cryptography.ICryptoTransform = rm.CreateDecryptor() Try Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length) ReStr = Encoding.UTF8.GetString(resultArray) Catch ex As Exception '加密字符串被非法改动 End Try Catch ex As Exception '解密失败 '日志记录 End Try AesDecrypt = ReStr End Function |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
<pre class="inline:true class:language-dotnet decode:1 " > '''URL编码函数 ''' <summary> ''' URL编码 ''' </summary> ''' <param name="strURL">需要编码字符串</param> ''' <returns></returns> ''' <remarks></remarks> Shared Function URLEncode(ByRef strURL As String) As String Dim tmpstr As String = "" Dim I As Long Dim tempStr As String For I = 1 To Len(strURL) If Asc(Mid(strURL, I, 1)) < 0 Then tempStr = "%" & Right(CStr(Hex(Asc(Mid(strURL, I, 1)))), 2) tempStr = "%" & Left(CStr(Hex(Asc(Mid(strURL, I, 1)))), Len(CStr(Hex(Asc(Mid(strURL, I, 1))))) - 2) & tempStr tmpstr = tmpstr & tempStr ElseIf (Asc(Mid(strURL, I, 1)) >= 65 And Asc(Mid(strURL, I, 1)) <= 90) Or (Asc(Mid(strURL, I, 1)) >= 97 And Asc(Mid(strURL, I, 1)) <= 122) Then tmpstr = tmpstr & Mid(strURL, I, 1) Else tmpstr = tmpstr & "%" & Hex(Asc(Mid(strURL, I, 1))) End If Next Return tmpstr End Function |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
<pre class="inline:true class:language-dotnet decode:1 " > '''MD5 ''' <summary> ''' MD5加密 ''' </summary> ''' <param name="strSource">需要加密的字符串</param> ''' <param name="Code">加密位数 16 或 32 </param> ''' <returns>加密后字符串（小写）</returns> ''' <remarks></remarks> Public Shared Function MD5(ByVal strSource As String, ByVal Code As Int16) As String Dim dataToHash As Byte() = (New System.Text.ASCIIEncoding).GetBytes(strSource) Dim hashvalue As Byte() = CType(System.Security.Cryptography.CryptoConfig.CreateFromName("MD5"), System.Security.Cryptography.HashAlgorithm).ComputeHash(dataToHash) Dim ATR As String = "" Dim i As Integer Select Case Code Case 16 '选择16位字符的加密结果 For i = 4 To 11 ATR &= Hex(hashvalue(i)).PadLeft(2, "0").ToLower Next Case 32 '选择32位字符的加密结果 For i = 0 To 15 ATR &= Hex(hashvalue(i)).PadLeft(2, "0").ToLower Next Case Else 'Code错误时，返回全部字符串，即32位字符 For i = 0 To 15 ATR &= Hex(hashvalue(i)).PadLeft(2, "0").ToLower Next End Select Return ATR End Function |
Dim datestr As String = “” datestr = Format(Now(), “yyyy/MM/dd H:mm:ss ffff”) 用户定义的日期/时间格式（Format 函数） 下表显示可用于创建用户定义的日期/时间格式的字符。与 Visual Basic 的早期版 …
wordpress文章常用函数基础 1 2 3 4 5 6 调用文章标题：<?php the_title(); ?> 文章内容：<?php the_content(); ?> 文章摘要：<?php the_excerpt(); ?> 作者姓名：<?php the_author …
WordPress文章有设置特色图片，有些主题在文章前面会加上特色图片，这样显的非常不好看，通过以下方式就可以解决。 wordpress去掉文章页显示的特色图片步骤： 打开wordpress后台—>外观—>编辑。 然后 …
1） 行、列的隐藏 [VB.NET] ‘ DataGridView1的第一列隐藏 DataGridView1.Columns(0).Visible = False ‘ DataGridView1的第一行隐藏 DataGridView1.Rows(0).Visible = False [C#] // DataGridView1的第一列 …
世界上最神奇的数字是：142857（长见识咯）看似平凡的数字，为什么说他最神奇呢？我们把它从1乘到6看看142857 X 1 = 142857142857 X 2 = 285714142857 X 3 = 428571142857 X 4 = 571428142857 X 5 = 714285 …