领星动网编程开发之爆炸小宇宙

cnitblog.com/lxasp - - 有一种信念叫做编程
posts - 54, comments - 34, trackbacks - 0, articles - 0

从github上找来的js,自己写了个hta方便使用而已。


自己修改增强了对含有服务器代码的html文件的精简,即html里的<? ?> <% %>里的代码原封不动。
HTM标签内有PHP/ASP代码,加注释后缀:
<img <?php echo 'alt="禁用换行和中文"' //php?> <%=ASP(VBS) 'rem%> /*[tag]*/ />



minjshtm.cab.zip


专用win7+ie9的virtualbox虚拟机(建议选版本4.3.16)镜像下载链接:http://pan.baidu.com/s/1qWxbPN2 密码:dxzq

posted @ 2015-08-07 21:23 lxasp 阅读(629) | 评论 (0)编辑 收藏

 

<!DOCTYPE html>
<html>
<head>
    
<title>正则表达式判断密码复杂度(原生JavaScript)</title>
</head>
<body>
<form id="form1" method="post" action="#">
    
<div class="fmfs">
        
<div class="fmf"><label>创建密码(至少6位):</label><br /><input type="password" id="i1" name="password" onblur="var r=this.value.length>=6?pwdRank(this.value):0;this.style.backgroundColor=(r==1?'#ccc':r==2?'#ff0':r==3?'#0f0':r==4?'#0ff':r==5?'#00f':'#fff');" /></div>
        
<div class="fmf"><label>重复密码:</label><br /><input type="password" id="i2" name="password1" /></div>
    
</div>
</form>
<pre>
<script>
/**
 * 正则表达式判断密码复杂度(原生JavaScript)
 *
 * @param {String} 输入明文密码
 *
 * @return {Number} 返回 1,2,3,4,5 个级别权重的复杂度
 *
 * @example
 *   document.write(
 *   pwdRank("ABCdefg1234")+'\n'+
 *   pwdRank("aaBB11__CCDDee")+'\n'+
 *   pwdRank("aaBB11__CCDD")+'\n'+
 *   pwdRank("abA1_")+'\n'+
 *   pwdRank("11_")+'\n'+
 *   pwdRank("111aaaAAA111aaaAAA")+'\n'+
 *   pwdRank("AAA___AAA___AAA__")+'\n'+
 *   pwdRank("0123456789123")+'\n'+
 *   pwdRank("012345678912346789")+'\n'
 *   );
 
*/
pwdRank=function(w){
    
//取字符串长度
    var l=w.length,
    f=function(x,s){ //正则表达式判断函数
        return ((eval('/'+x+'/').test(s))?1:0)
    },
    
//求和获得4种密码字符组合方式
    z=f('[0-9]',w)+f('[a-z]',w)+f('[A-Z]',w)+f('[\\W_]',w),
    
//只有一种组合情况下长度11位或以上才加权重 --避免0123456789这种弱密码
    r=(l>10&&z==1)?z+1:z;
    
//任何组合情况下但有多个重复字符串减权重
    if(r>1&&f('^(?:(\\w+)\\1+)+$|(\\w)\\2{2,}',w))r--;
    
//多种组合长度12位或以上加权重,一种组合13位或以上加权重
    if((l>11&&z>1)||(l>12&&z==1))r++;
    
//长度14位或以上再加权重
    if(l>13&&r<5)r++;
    
return r;
};

document.write(
pwdRank("ABCdefg1234")+'\n'+
pwdRank("aaBB11__CCDDee")+'\n'+
pwdRank("aaBB11__CCDD")+'\n'+
pwdRank("abA1_")+'\n'+
pwdRank("11_")+'\n'+
pwdRank("111aaaAAA111aaaAAA")+'\n'+
pwdRank("AAA___AAA___AAA__")+'\n'+
pwdRank("0123456789123")+'\n'+
pwdRank("012345678912346789")+'\n'
);

</script>

1=很弱
2=普通
3=中等
4=较强
5=很强
</pre>
</body>
</html>




function isIDCardCn(idValue) {
    if (idValue.length != 18) return !1;
    var verifyGmsfhLast = function(sVal) {
            if (sVal.length != 18) return !1;
            var wi = [7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2, 1],
                vi = [1, 0, 'X', 9, 8, 7, 6, 5, 4, 3, 2],
                ai = [17],
                sum = 0,
                remaining = 0,
                verifyNum = "",
                i, m;
            for (i = 0; i < 17; i++) {
                ai[i] = parseInt(sVal.substring(i, i + 1), 10)
            }
            for (m = 0; m < ai.length; m++) {
                sum = sum + wi[m] * ai[m]
            }
            remaining = sum % 11;
            if (remaining == 2) {
                verifyNum = "X"
            } else {
                verifyNum = vi[remaining]
            }
            return verifyNum == sVal.substring(17, 18).toUpperCase()
        },
        a = idValue.match(/^(\d{6})(\d{4})(\d{2})(\d{2})(\d{3})([\dXx])$/);
    if (a != null) {
        var D = new Date(a[2] + "/" + a[3] + "/" + a[4]),
            B = D.getFullYear() == a[2] && (D.getMonth() + 1) == a[3] && D.getDate() == a[4]
        if (!B) return !1;
    }
    return verifyGmsfhLast(idValue)
}
!function(s) {
    var i,r = "";
    for (i = 0; i < 100; i++) {
        if (i < 10 && isIDCardCn(s + '0' + i)) {
            r += s + '0' + i + "<br>"
        } else {
            if (isIDCardCn(s + i)) r += s + i + "<br>"
        }
    }
    for (i = 0; i < 10; i++) {
        if (isIDCardCn(s + i + "x")) r += s + i + 'X' + "<br>"
    }
    document.write(r);
}("1122331999112233");

posted @ 2015-07-31 12:53 lxasp 阅读(610) | 评论 (0)编辑 收藏

RewriteRule ^(.*)$ index.php?/$1 [L]

缺少个?号,现在新版的PHP一般都是FastCGI运行的了,所以一般都会出现错误: No input file specified. 

<IfModule mod_rewrite.c>
RewriteEngine On
#RewriteBase /
#RewriteCond %{REQUEST_FILENAME} !-f
#RewriteCond %{REQUEST_FILENAME} !-d
RewriteCond $1 !^(index\.php|assets|robots\.txt)
RewriteRule ^(.*)$ index.php?/$1 [L]
</IfModule>

 

posted @ 2015-07-29 09:41 lxasp 阅读(269) | 评论 (0)编辑 收藏

在线压缩脚本代码 javascript-minifier.com cssminifier.com

posted @ 2015-07-20 10:27 lxasp 阅读(46) | 评论 (0)编辑 收藏

<div style="display:none" id="ovyshare" onclick="void(0)"></div>
要有个onclick挡住底层的事件!这样在手机浏览器下点击层底下的链接就不会触发了,在安卓版UC浏览器下点击层底下的链接会有色块变化,但不会触发事件了.

posted @ 2015-07-18 01:00 lxasp 阅读(513) | 评论 (0)编辑 收藏

<style type="text/css">/*<![CDATA[*/
/*ie6的下拉列表是最顶上的,当弹出层的时候,要隐藏掉,以免影响层的内容显示*/
select
{
    _visibility
:expression(document.getElementById("overlay2").style.display=="none"?"visible":"hidden");
}
/*ie6,ie7当滚动时层会抖动,以下代码就可以解决,如果有图片就改url里的地址*/
body 
{
    +background-image
:url(about:blank);
    +background-attachment
:fixed;
}

#overlay2 
{
    background-color
: #ccd;
    bottom
: 0;
    height
: 100%;
    left
: 0;
    opacity
: 0.5;
    overflow
: hidden;
    position
: fixed;
    right
: 0;
    top
: 0;
    width
: 100%;
    z-index
: 3000;
/*ie6,ie7,ie8实现透明*/
    filter
: alpha(opacity=50);
/*ie6,ie7自动定位,解决不支持position:fixed*/
    +position
:absolute;
    +width
:expression(eval(Math.max(document.documentElement.scrollWidth,document.documentElement.clientWidth)));
    +height
:expression(eval(Math.max(document.documentElement.scrollHeight,document.documentElement.clientHeight)));
}
#popme1 
{
    background-color
: #efd;
    position
: fixed;
    width
: 90%;
    height
: 250px;
    z-index
: 3001;
    left
:15px;
    top
:15px;
    border
:2px solid #396;
    clear
:both;
/*ie6,ie7自动定位,解决不支持position:fixed*/
    +position
:absolute;
    +width
:expression(eval(Math.min(document.documentElement.scrollWidth,document.documentElement.clientWidth)*0.9));
    +top
:expression(eval(document.documentElement.scrollTop+15));
    +left
:expression(eval(document.documentElement.scrollLeft+15));
}

/*]]>*/</style>

以下 
<a></a> 代码用于显示隐藏弹出层,将其复制到popme1内就是隐藏层在外部就是显示层
<href="javascript:(function(){var n='none',b='block',d=document.getElementById('popme1').style,o=document.getElementById('overlay2').style;if(d.display==b){d.display=n;o.display=n;o.zIndex=3000}else{d.display=b;o.display=b;o.zIndex=1000}})();void(0)">show popup mask</a>

<div style="display:none" id="popme1">popme1</div>

<div style="display:none" id="overlay2" onclick="void(0)"></div>
整个html文件只需要一个overlay2,不管有多少个popme2 popme3 都是共用一个overlay2。以前还特地到处找jQuery插件来测试出效果,现在就以上一些纯粹CSS/JS代码就完美实现了。

posted @ 2015-06-28 14:07 lxasp 阅读(808) | 评论 (0)编辑 收藏

<!DOCTYPE html>
<html lang="zh">
<head>
<meta http-equiv="content-type" content="text/html; charset=gbk" />
<style>/*<![CDATA[*/
.nl 
{
    height
: 20px;
    margin
: 0;
    overflow
: hidden;
    padding
: 0 0 0 16px;
    text-overflow
: ellipsis;
    white-space
: nowrap;
    width
: 200px;
}
.nl div 
{
    font-size
: 14px;
    height
: 20px;
    line-height
: 20px;
}
/*]]>*/</style>
</head>
<body>

<div id="n1" class="nl"><div>hello inner asp tpl 001</div>
<div>hello inner asp tpl 002</div>
<div>hello inner asp tpl 003</div></div>

<div id="n2" class="nl"><div>hello inner asp tpl 001</div><div>hello inner asp tpl 002</div></div>

<script type="text/javascript">/*<![CDATA[*/
vMarq
=function(id,tag,heigh,speed,delay){
    
var me=this;
    me.EL
=document.getElementById(id);
    me.PA
=0;
    me.TI
=null;
    me.LH
=heigh;
    me.SP
=speed;
    me.DY
=delay;
    me.exec
=function(){
        
if(me.PA)return;
        me.EL.scrollTop
+=2;
        
if(me.EL.scrollTop%me.LH<=1){
            clearInterval(me.TI);
            me.EL.appendChild(me.EL.getElementsByTagName(tag)[
0]);
            me.EL.scrollTop
=0;
            setTimeout(me.start,me.DY
*1000);
        }
    };
    me.start
=function(){
        
if(me.EL.scrollHeight-me.EL.offsetHeight>=me.LH)me.TI=setInterval(me.exec,me.SP);
    };
    me.EL.onmouseover
=function(){me.PA=1};
    me.EL.onmouseout
=function(){me.PA=0};
    setTimeout(me.start,me.DY
*1000);
};

new vMarq("n1","div",20,40,3);
new vMarq("n2","div",20,40,3);
/*]]>*/</script>

</body>
</html>

posted @ 2015-06-25 11:05 lxasp 阅读(361) | 评论 (0)编辑 收藏

 

While(1)
$handle 
= WinGetHandle("发起会话")
If @error Then
WinKill(
"Sponsored session")
Else
WinActivate($handle, 
"")
ControlClick($handle, 
"确定""[CLASS:Button; INSTANCE:4]")
EndIf
Sleep(
100)
WEnd

 

RM压缩码率和分辨率对照: 1080p=2000k, 720p=1000k, 640p=640k, <640p=620k

posted @ 2013-03-23 09:13 lxasp 阅读(143) | 评论 (1)编辑 收藏

ASP的微软官方脚本代码加密工具的真正可用的命令行语法

screnc.exe /xl /l vbscript 1.asp 2.asp

其中1.asp为待加密的ASP文件,2.asp为加密后的生成文件

生成了2.asp之后,将以下代码添加到2.asp文件内容的第一行
<%@LANGUAGE="VBSCRIPT.Encode"%>



微软官方脚本代码加密工具可以搜索以下关键字即可找到下载:
sce10chs
sce10en

或者将以下链接给迅雷即可下载!
http://download.microsoft.com/download/winscript56/Install/1.0/WIN98MeXP/CN/sce10chs.exe

posted @ 2012-08-08 00:04 lxasp 阅读(316) | 评论 (0)编辑 收藏

 

Private Sub Command1_Click()

Dim xlApp
Dim xlBook
Dim xlSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)


xlSheet.Cells(
11).Value = "测试"

xlApp.Visible 
= True

xlBook.PrintOut Preview:
=1
xlBook.Close 
False
xlApp.Quit

Set xlApp = Nothing

End Sub


 

 

Function 打印Excel(EXCEL文件 As String, 定义名称Sz, 值Sz)
'
Dim i As Integer
For i = 0 To UBound(定义名称Sz)
    Application.Names(定义名称Sz(i)).RefersToRange.Value 
= 值Sz(i)
Next
Dim Sheet As Worksheet
Set Sheet = Application.ActiveSheet
'Sheet.PrintOut
End Function



相关链接:
http://hi.baidu.com/blueideanet/blog/item/563b8a605d5d23da8cb10d62.html

posted @ 2012-08-07 23:56 lxasp 阅读(334) | 评论 (0)编辑 收藏

仅列出标题
共6页: 1 2 3 4 5 6