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

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

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

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

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

posted @ 2015-07-18 01:00 lxasp 阅读(674) | 评论 (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 阅读(1179) | 评论 (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 阅读(570) | 评论 (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 阅读(305) | 评论 (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 阅读(475) | 评论 (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 阅读(541) | 评论 (0)编辑 收藏

暂时未提供CVASP框架扩展功能(HELPER)

posted @ 2012-04-21 00:24 lxasp 阅读(713) | 评论 (1)编辑 收藏

◆基本信息:
◇版本编号:201215D
◇核心字节:50222
◇核心文件:cvcorem.asp
◇英文名称:CVASP -- Controller View for ASP Framework
◇中文名称:CVASP框架
◇程序语言:VBScript
◇字符编码:GB2312, GBK, UTF-8
◇作者主页:http://cnitblog.com/lxasp

◆功能简介:
◇简便:
常用函数和类采用精简命名,书写代码更少。
提供几个下划线的代码生成工具:
_convutf8.asp   --用于转换中文为UTF编码用于AJAX
_mkcvatpl.asp   --用于生成编程时用的代码书写模板
_viewsrc.asp    --用于查看cvcore.asp的源代码注释
具体效果用IIS管理器运行一下就知道了。
数据库类提供原生ADODB的rs和conn对象实例给外部使用,
熟悉ADO的可不影响之前使用习惯。
提供常用的功能函数以及省心省力的类:
模板类、数据库类、分页类、字符串拼接类等
◇灵活:
核心代码库可以单独INCLUDE出来使用。
例如: <!--#INCLUDE FILE="cvinc/cvcorem.asp"-->
◇安全:
Cookie类使用乱序的Base64编码,可预防Cookie欺骗。
使用reqF和reqS函数封装了Request.Form和Request.QueryString,可预防SQL注入。
提供简洁有效的表单验证的系列函数: vcnull, vclen, vcsize, vcnum, vcdate
◇快速:
提供高性能的单层区块模板类,可结合缓存类一起使用。
提供高性能的字符串拼接类,例如 dim sc : set sc=new clsStrCat
提供数据库类支持GetRows格式二维数组的数据库读取操作
◇整洁:
提供模板类使得ASP(VBS)服务器代码与HTML界面代码分离。
核心仅提供常用且精炼的功能函数和类,扩展功能(HELPER)要用时才自己INCLUDE。

【CVASP框架下载】
cvinc.cab.zip

posted @ 2012-04-17 15:59 lxasp 阅读(1119) | 评论 (4)编辑 收藏

     摘要: Function exSqlRestoreDb(conn, dbname, tosave, frombak)
Function exSqlBackupDb(conn, dbname, tosave)
Function exSqlCreateDb(conn, dbname, tosave)
Function exSqlInstallDb(conn, dbname, tosave, frombak)
Function exSqlCreateUser(conn, dbname, usr, pwd)
Function exSqlRemoveUser(conn, dbname, usr)
  阅读全文

posted @ 2012-04-13 20:54 lxasp 阅读(686) | 评论 (0)编辑 收藏

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