CrazyJS,疯狂的JS

windows下系统信息获取

通过 %系统变量名% 的方式可获取到 set 命令下的相应数据。以下为常用系统变量: %ALLUSERSPROFILE% 全部用户配置文件 %APPDATA% app路径 %CommonProgramFiles% common文件夹 %CommonProgramFiles(x86)% common文件夹(X86) %CommonProgramW6432% common文件夹(64位32位宽数据) %COMPUTERNAME% 电脑名称 %ComSpec% 命令符 %HOMEDRIVE% 用户分区 %HOMEPATH% 用户路径 %LANG% 系统语言 %LOCALAPPDATA% 本地app路径 %LOGONSERVER% 登录服务器 %NUMBER_OF_PROCESSORS% CPU内核数 %OS% 系统名称 %PROCESSOR_ARCHITECTURE% COu架构 %PROCESSOR_IDENTIFIER% CPU识别符 %PROCESSOR_LEVEL% CPU等级 %PROCESSOR_REVISION% CPU版本 %Program [...]

vb转大写函数

Function RMBChinese(ByVal Rmb As Double) As String On Error Resume Next Dim Rmbexp As String, Rmbda As String, Expda As String, Lent As Integer, Ntyp As Integer, Icnt As Integer, i As Integer, Trmb As String Rmb = Format(Rmb, "###0.00") If Rmb > 999999999999.99 Then RMBChinese = "需转换的金额整数长度超过了12位!" Exit Function End If Rmbexp = "分角元拾佰仟万拾佰仟亿拾佰仟" Rmbda = "零壹贰叁肆伍陆柒捌玖" Ntyp = 0 Trmb = Replace(CStr(Format(Rmb, "0.00")), ".", "") If Left(Trmb, 1) = "-" Then Trmb = M [...]

将查询结果的某列按指定的符号连接起来 SQL函数 返回字符串

–将查询结果的某列按指定的符号连接起来 –AUTHOR:Mender.Z.J ALTER procedure dbo.getColWithMerg (  @preSymbol   varchar(256),  @tailSymbol   varchar(256),  @colName   varchar(50),  @queryStr   varchar(1024),  @retStr  varchar(8000) output )   as BEGIN  declare @count as decimal; declare @sqlStr as varchar(1000); declare @i as decimal; –declare @retStr as varchar(8000); declare @tt as varchar(255); set @i=1; set @sqlStr=’select ‘+ @colName +’ from (‘+@queryStr+’) as t1′ ;  [...]

将查询结果的某列按指定的符号连接起来的 sql函数 返回表格

--将查询结果的某列按指定的符号连接起来 --AUTHOR:Mender.Z.J ALTER procedure dbo.getColWithMergForTable ( @preSymbol varchar(256), @tailSymbol varchar(256), @colName varchar(50), @queryStr varchar(1024) ) as BEGIN declare @count as decimal; declare @sqlStr as varchar(1000); declare @i as decimal; declare @retStr as varchar(8000); declare @tt as varchar(255); set @i=1; set @sqlStr='select '+ @colName +' from ('+@queryStr+') as t1' ; if exists(select * from dbo.sysobjects where xtype='U' and name=N'tempAbcdbcad') begin drop table tempAbcdbcad; end create table te [...]

判断是否为工作日的sql函数

-- ============================================= -- Author: 扎俊 -- Create date: 2018-07-18 -- Description: 判断是否为工作日的函数 -- ============================================= ALTER FUNCTION isWeekend ( @Day datetime ) RETURNS bit AS BEGIN -- Declare the return variable here DECLARE @ResultVar bit if datediff(d,'1900-01-01',@Day) % 7 >4 set @ResultVar=1 else set @ResultVar=0 RETURN @ResultVar END

JS 序列补全函数的循环和不循环写法

案列:需要将给定的数字前面填充0,以达到指定的位数。如:23,补全到8位,补全符号为0,要求的结果为:00000023 方法一:使用循环 此方法算法:在给定的字符(串)前 通过循环给定的长度减去给定字符(串)长度(len-n.length)次添加填充字符 r ,最后得到结果。 代码: //len 为总长度,r为补全的符号,n为给定的字符(串) 方法二 使用数组而不使用循环语句 此方法算法:生成一个长度为给定长度减去给定字符(串)长度  (len-n.length) 的数组,并填充为 r 字符,再将数组进行无符号连接得到前面的补全字符串,补全字符串再和给定的字符字符(串)进行连接即得到 [...]

路由器能ping通百度、淘宝,但是网页就是上不了,解决办法。

今天遇到一个问题,公司网络突然断了,检查后获取到的情报信息如下: 1. 不通的线路为拨号模式 2. 能平通baidu.com、taobao.com、163.com(DNS可解析,并且可通) 3. windows下 tracert  第1项中的域名可通(路由跟踪正常,未被中途劫持) 4. nslookup 第1项中的域名可正常解析(DNS正常,DNS服务器正常,未被劫持) 5. 路由器工作在NAT模式下(很多时候是路由器工作模式被调为路由模式了) 实在没办法,打了10000号,说帮刷新了,让稍后再试试。 后面重启路由、光猫,还是不行。领导联系了电信经理,派了一个技术员过来,过来用笔记本拨号一试,可以上,没问题! 立马收拾东西 [...]

sql序列数据补全函数,如xulieBuquan(‘0′,8,’1524′,1) 返回’00001524’,最大支持256位

获取两段日期相交重合的部分

VB  获取两段日期相交重合的部分 有时候很有用,比如工资结算,承包天数计算、租金计算等等。 一个典型的例子是: 某公司出租某设备,每自然月费用为M元,不足一月按天计费。客户A 于s1时间开始租用该设备,于e1时间停止租用该设备。求,n年m月费用是多少? 解:案例难点在于计算收费设备实际使用的时间, 通过时间线分析可知,实际上就是求使用时间段 和 自然月计费时间段的交集(在该月内使用了多长时间) 即:(s1,e1)和(m月首日,m月末日)  集合的交集。 vb 伪代码:

WDCP 504错误

wdcp现在用的人许多。可是经常呈现 504 Gateway time-out,遇到这种疑问怎么办?,开端 也是查找了百度,许多处理办法,可是没有小白的处理步骤   下面 整理了下百度查找到的内容整理了以下方法   Nginx的特点是处理静态很给力,Apache的特点是处理动态很安稳,两者结合起来便是LNMPA,nginx处理前端,apache处理后端,这么处理静态会很快,处理动态会很安稳。当 认为装置完结今后便万事大吉,不料更新网站的时候却呈现504 Gateway time-out;起先还认为这是偶然,多次测验后仍然呈现这么的情况,因而才决议查找解决方法。   LNMP面临504 Gateway time-out   由于504 Gateway ti [...]