紫气东来 - Javascript

[原创]合并各子公司财务报表 VBA 初稿

dbmaster@163.com(zilong) — Tue,16 Dec 2008 15:07:44 +0800

十几家子公司EXCEL报表需要合并，手工整理，直接挂了~~~
技术支持财务部门，所以书写VBA . 分享如下，呵呵。

'厦门国贸合并各子公司财务报表
'add by IT部杨闽 on 2008.12.15
'mail:dbmaster@163.com
'qq:153560261

Private Sub bt_clearAll_Click()
'清空合并的工作表中的数据

If MsgBox("确认需要清空所有合并的数据？", vbYesNo, "温馨提示") <> vbYes Then Exit Sub

Dim xlSht As Worksheet
   For Each xlSht In Worksheets
    If xlSht.Name <> "资产负债表" And xlSht.Name <> "利润表" Then
     'xlSht.Cells.ClearContents
     xlSht.Cells.Clear
    ElseIf xlSht.Name = "资产负债表" Then
       xlSht.Range("B6:C17").ClearContents
       xlSht.Range("G6:H18").ClearContents
       xlSht.Range("B20:C37").ClearContents
       xlSht.Range("G20:H27").ClearContents
       xlSht.Range("G30:H36").ClearContents
       xlSht.Range("G38:H38").ClearContents
    ElseIf xlSht.Name = "利润表" Then
       xlSht.Range("C6:D14").ClearContents
       xlSht.Range("C16:D18").ClearContents
       xlSht.Range("C20:D20").ClearContents
       xlSht.Range("C22:D23").ClearContents
       xlSht.Range("C25:D26").ClearContents
    End If

   Next

     MsgBox "已先清空所有工作表数据!", 64 + 0, "温馨提示"

End Sub

Private Sub comb_allExcel_Click()
'按钮单击，调用合并EXCEL功能
  Call UnionWorksheets

End Sub

Sub UnionWorksheets()
'厦门国贸IT部合并财务报表过程
'add by yangmin on 2008.12.15
'mail:dbmaster@163.com
'qq:153560261

    Dim i  As Long            ' 循环变量记录每个excel工作簿下，工作表的数量
    i = 0

    Dim j  As Long            ' 循环变量  记录要合并的excel文件数
    j = 0
    Dim insert_row As Long    ' 合并文件中的粘贴位置

    Dim a As Integer          '资产表，利润表具体那些行需要更新数据

    Dim zcount As Integer    '总共要合并的EXCEL文件数
    zcount = 0

    Dim zfinished As Integer   '显示百分比进度

    Application.ScreenUpdating = False





    Dim lj As String
    Dim dirname As String
    Dim nm As String

    lj = ActiveWorkbook.Path  '当前文件路径
    nm = ActiveWorkbook.Name  '当前文件名称
    dirname = Dir(lj & "\*.xls")



'在当前目录下查找有多少个excel工作簿
With Application.FileSearch
    .LookIn = lj
    .Filename = "*.xls"

    .Execute
    If .FoundFiles.Count = 0 or .FoundFiles.Count = 1 Then
        zcount = 1 '未有其他可以合并的表，只有本张EXCEL表
        MsgBox "还没有可以合并的工作簿，请检查。"
        Exit Sub
    Else
        zcount = .FoundFiles.Count - 1
        'MsgBox "找到了" & zcount & "个需要合并的工作簿"
        If MsgBox("确认需要合并当前目录下" & zcount & "个工作簿？", vbYesNo, "温馨提示") <> vbYes Then Exit Sub
    End If

End With


   ' Cells.Clear

    Do While dirname <> ""     '开始遍历当前路径下的所有excel文件


        If dirname <> nm Then  '非本张汇总工作簿
        j = j + 1

        zfinished = j / 3 * 100 '进度百分比
        Application.StatusBar = "当前合并进度 " & zfinished & "%" '显示进度条


            Workbooks.Open Filename:=lj & "\" & dirname

            Workbooks(nm).Activate

            '复制新打开工作簿的工作表的已用区域到当前工作表  '

For i = 1 To Workbooks(dirname).Sheets.Count   '对当前工作簿的各个工作表进行遍历

  With Workbooks(dirname).Sheets(i)

    If j = 1 And Workbooks(dirname).Sheets(i).Name <> "资产负债表" And Workbooks(dirname).Sheets(i).Name <> "利润表" Then     '是第一张表,要表头


     '添加明细表的数据来源 add by ym on 2008.12.16
     Dim m, n As Integer
     m = Workbooks(dirname).Sheets(i).Range("dz1").End(xlToLeft).Column
     n = Workbooks(dirname).Sheets(i).Range("A65536").End(xlUp).Row
     ' MsgBox "这张表共有" & n & "行，" & m & "列。"
     m = m + 1
     Sheets(i).Cells(1, m) = "数据来源"

     Sheets(i).Cells(1, m).Interior.ColorIndex = 37 '背景设置为淡兰色

     If n >= 2 Then
      For a = 2 To n
       Sheets(i).Cells(a, m) = Left(dirname, Len(dirname) - 4) '取文件名
      Next
     End If


     If Workbooks(dirname).Sheets(i).Name = Sheets(i).Name Then
       Workbooks(dirname).Sheets(i).UsedRange.Copy _
        Sheets(i).Range("a65536").End(xlUp).Offset(0, 0) '将打开的需要合并的子EXCEL报表的某sheet，合并到当前sheet的从(0,0)开始的位置
     Else
      MsgBox "工作簿'" & dirname & "'下的工作表'" & Workbooks(dirname).Sheets(i).Name & "'顺序与当前汇总表不同，请检查"
     End If





    ElseIf Workbooks(dirname).Sheets(i).Name <> "资产负债表" And Workbooks(dirname).Sheets(i).Name <> "利润表" Then


     '添加明细表的数据来源 add by ym on 2008.12.16
     'Dim m, n As Integer
     Dim b As Integer

     b = Sheets(i).Range("A65536").End(xlUp).Row '汇总表已经有的行数
     b = b + 1 '当前新加行
     'MsgBox "当前新加行;" & b & "行"

     m = Workbooks(dirname).Sheets(i).Range("dz1").End(xlToLeft).Column
     n = Workbooks(dirname).Sheets(i).Range("A65536").End(xlUp).Row
    If n >= 2 Then

     ' MsgBox "这张表共有" & n & "行，" & m & "列。"
     m = m + 1
     'Sheets(i).Cells(1, m) = "数据来源"
     n = n + b - 1 - 1

      For a = b To n
       Sheets(i).Cells(a, m) = Left(dirname, Len(dirname) - 4)  '取文件名
      Next
     End If


     If Workbooks(dirname).Sheets(i).Name = Sheets(i).Name Then
       .Range(.Cells(2, 1), .Cells.SpecialCells(xlCellTypeLastCell)).Copy _
       Sheets(i).Range("a65536").End(xlUp).Offset(1, 0) '注意这个要从 (1,0)开始追加数据！否则最后会发现会覆盖上次取数的一行数据！！
     Else
      MsgBox "工作簿'" & dirname & "'下的工作表'" & Workbooks(dirname).Sheets(i).Name & "'顺序与当前汇总表不同，请检查"
     End If


    ElseIf Workbooks(dirname).Sheets(i).Name = "资产负债表" Then  '资产负债表的修正

    'Dim a As Integer

    For a = 6 To 37
     If a <> 19 Then
       Sheets(i).Range("b" & a) = Sheets(i).Range("b" & a) + Workbooks(dirname).Sheets(i).Range("b" & a) '  期末余额
       Sheets(i).Range("c" & a) = Sheets(i).Range("c" & a) + Workbooks(dirname).Sheets(i).Range("c" & a) '  年初余额
      End If
    Next

    For a = 6 To 38
      If a <> 19 And a <> 28 And a <> 29 And a <> 37 Then
       Sheets(i).Range("g" & a) = Sheets(i).Range("g" & a) + Workbooks(dirname).Sheets(i).Range("g" & a) '  期末余额
       Sheets(i).Range("h" & a) = Sheets(i).Range("h" & a) + Workbooks(dirname).Sheets(i).Range("h" & a) '  年初余额
      End If
    Next


    ElseIf Workbooks(dirname).Sheets(i).Name = "利润表" Then '利润表的修正

    For a = 6 To 26
     If a <> 15 And a <> 19 And a <> 21 Then
       Sheets(i).Range("c" & a) = Sheets(i).Range("c" & a) + Workbooks(dirname).Sheets(i).Range("c" & a) '  本月
       Sheets(i).Range("d" & a) = Sheets(i).Range("d" & a) + Workbooks(dirname).Sheets(i).Range("d" & a) '  累计
      End If
    Next




   End If
  End With

Next

            Workbooks(dirname).Close False
        End If


        dirname = Dir
    Loop

       MsgBox "恭喜全部合并成功！", 64 + 0, "温馨提示"

End Sub

项目开发中常用JS表单取值方法

dbmaster@163.com(zilong) — Tue,12 Aug 2008 09:50:04 +0800

项目开发中常用JS表单取值方法

一.常用表单基本取值方法(form1为表单名称,TextBox1为控件ID,以文本框为例,html控件与web服务器控件是一样的)
        1.form1.TextBox1.value
        2.var txt = document.all.TextBox1;
          txt.value
        3.var txt = document.all["TextBox1"];
          txt.value
        4.document.getElementById("TextBox1");

二.
1.html复选框(name相同)
表单： sss
       aaa
       bbb

实现功能：遍历html复选框，得到所选中项
   var oChks = document.all.chk;
   for(var i=0; i   {
        if(oChks[i].checked)
    alert(oChks[i].value);
   }

2.html单选框(name相同)
表单： 123
       456
实现功能：遍历html复选框，得到所选中项
代码同html复选框

3.html下拉列表框
表单：
    1
    2

实现功能：
   3.1得到所选中项的text和value值(选择一项)
    var selDrp = document.all.Select1;
    alert(selDrp.options[selDrp.selectedIndex].text);
    alert(selDrp.options[selDrp.selectedIndex].value);
   3.2得到所选中项的text和value值(选择多项)
    for(var j=0;j    {
          if(selDrp.options[j].selected)
          {
     alert(selDrp.options[j].value);
          }
    }
4.DropDownList控件与ListBox控件
实现功能：得到所选中项的text和value值
代码同html下拉列表框

5.CheckBoxList控件
实现功能：得到所选中项的text
代码：
        var chklist = document.all("CheckBoxList1");
        var i = 0;
        for(i=0;i        {
   var name = "CheckBoxList1_" + i;
   var tmpChecked = document.all[name].checked;
                if(tmpChecked)
                {
    alert(document.all[name].parentElement.innerText);
                 　
                 }
        }

JS弹出div和关闭

dbmaster@163.com(zilong) — Tue,12 Aug 2008 09:46:20 +0800

JS弹出div和关闭

//--弹出div
var parameter;
var type;
function alert_div(type,parameter)
{
//获得鼠标当前X,Y坐标
var x,y;
if(!document.all)
{
  x=pageX;
  y=pageY;
}else{
  x=document.body.scrollLeft+event.clientX; //鼠标X轴的值
  y=document.body.scrollTop+event.clientY; //鼠标Y轴的值
}

//window.scrollTo(100,500);//竖向滚动条位置

var sH = document.body.scrollHeight; //窗口的高度
var sW = document.body.scrollWidth; //窗口的宽度

var width=260 , height=90; //设置div的大小

if((x + width) >= sW) //当鼠标点击时的x坐标的值加上div的宽度大于窗口的宽度
{
  x = x - width;
}

var left=x , top=y ; //设置div的位置

var str="";
// 整个div的大小和位子
str+="";
//--begin灰色top
str+="";
// 灰色div的设置
str+=" 温馨提示";
// 灰色div右侧的按钮
//str+=" 0";
str+=" r";
str+="";
//--end
//--begin白色div
str+="";
// 白色div中的信息
str+="请输入密码：  ";
str+="";
//--end
str+="";
//document.write(str);
document.body.insertAdjacentHTML("afterBegin",str);

}
//--关闭div
function hide()
{
document.getElementById( "div1").style.display = "none";
}

C#中常用到的JS

dbmaster@163.com(zilong) — Tue,12 Aug 2008 09:43:57 +0800

1.按钮前后台事件
OnClientClick="alert('客房端验证，阻止向服务器端提交');return false;" />

2.注册相关事件：onblur,onclick,onchange
this.TextBox1.Attributes.Add("onchange",
"alert('数据被改动，现检查输入是否符合规则');");

3.注册相关属性：
this.TextBox1.Attributes.Add("readOnly", "true");

4.引入JS文件
前台HTML页面：


    function fn_Name()
    {
        alert("JS");
    }

后台cs页面：
this.RegisterClientScriptBlock("jsFile",
"");

5.点击按钮时相关栏位非空判断
    function checkEmpty(txtObj,msgShow)
    {
        if(txtObj.value == "")
        {
            alert(msgShow);
            return false;
        }
    }

OnClientClick="return checkEmpty(TextBox1,'TextBox1 不能为空')" />

6.
//通过ChcekBox的是否点选
//来控制其相对应的TextBox 是否可输入
function chkTextBox(chkObj,txtObj)
{
    if(chkObj.checked==true)
    {
        txtObj.value = "";
        txtObj.readOnly = false;
        txtObj.focus();
    }

    if(chkObj.checked == false)
    {
        txtObj.value = "";
        txtObj.readOnly = true;
    }
}

7
//传值到模态窗口并得到传回的值
var EnCodeQueryName = escape(Name);
var strPara = "'dialogWidth: 400px;dialogHeight: 400px;dialogLeft: 300px;dialogTop: 200px;toolbar: no;menubar: no;resizable: yes;location: no;status: no;scrollbars= no'";
var ReturnInfo = window.showModalDialog("QryName.aspx?&Name="+EnCodeQueryName +"&QueryID="+QueryType+"",'',strPara);
   if(ReturnInfo !=null)
      {
            var arrayReturnInfo = ReturnInfo .split("@");
            document.all.drpID.value = arrayReturnInfo[1];
            document.all.txtName.value= arrayReturnInfo[2];
        }

8
//弹出JS的确认对话框
//并根据确认结果触发后台相关操作
if(confirm('确认如何吗?'))
{
  document.all.hidbtn_Submit.click();
}
else
{
  document.all.hidbtn_Cancel.click();
}

HTML页面相关代码：
          style="display:none;"
      onserverclick="hidbtn_Submit_ServerClick"
      runat="server" />
9
//添加页面对快捷键的响应
//如按F2时进行新增按钮的操作等

        #region 添加页面对快捷键的响应

        string strJS_ShortKey = " ";
        strJS_ShortKey += " document.onkeydown=shortKeyDown; ";
        strJS_ShortKey += " function shortKeyDown()  ";
        strJS_ShortKey += " { ";
        // 新增
        if (this.ButtonCtl1.ImgBtn_AddFamily.Visible)
        {
            string btnInsertCID = this.ButtonCtl1.ImgBtn_Insert.ClientID.Trim();
            //F2 - 113
            strJS_ShortKey += " if(event.keyCode=='113') ";
            strJS_ShortKey += "  { ";
            strJS_ShortKey += "    document.all('" + btnInsertCID + "').click();";
            strJS_ShortKey += "    event.keyCode= 0; ";
            strJS_ShortKey += "    event.returnValue = false; ";
            strJS_ShortKey += "    return false; ";
            strJS_ShortKey += "  } ";
        }
        // 修改
        if (this.ButtonCtl1.ImgBtn_Edit.Visible)
        {
            string btnEditCID = this.ButtonCtl1.ImgBtn_Edit.ClientID.Trim();
            //F3 - 114
            strJS_ShortKey += " if(event.keyCode=='114') ";
            strJS_ShortKey += "  { ";
            strJS_ShortKey += "    document.all('" + btnEditCID + "').click();";
            strJS_ShortKey += "    event.keyCode= 0; ";
            strJS_ShortKey += "    event.returnValue = false; ";
            strJS_ShortKey += "    return false; ";
            strJS_ShortKey += "  } ";
        }

        strJS_ShortKey += " } ";
        //注册事件
        Page.RegisterStartupScript("shortKey", strJS_ShortKey);
        #endregion

10
//弹出的提示分行显示
alert('aaa \r\n bbb \r\n ccc');
如果是在后台.cs文件中注册
则需要
string strAlertContent = "aaa"+" \\r\\n ";
strAlertContent += "bbb" +" \\r\\n ";

11
//实现效果
//点击GridView上的某一行时
//行首列处的RadioButton处于选中状态
//同时保存相关值在隐藏栏位

//用查询得的数据集进行绑定
if (dt.Rows.Count > 0)
{
    //绑定
    this.gv_InfoFromSendModule.DataSource = dt;
    this.gv_InfoFromSendModule.DataBind();
    //确定按钮显示
    this.btn_OK.Visible = true;
    this.txthid_RowCount.Text = dt.Rows.Count.ToString();
}

//GridView的RowDataBound
protected void gv_InfoFromSendModule_RowDataBound(object sender, GridViewRowEventArgs e)
{
   if (e.Row.RowIndex < 0)
      return;
   e.Row.Attributes.Add("onclick", "radButton('" + e.Row.RowIndex.ToString() + "','" + e.Row.Cells[1].Text.Trim() + "');");
   //RadioButton rad = (RadioButton)e.Row.Cells[0].FindControl("rad_Select");
   //rad.Attributes.Add("onclick", "radButton('"+e.Row.RowIndex.ToString()+"','"+ e.Row.Cells[1].Text.Trim()+"');");
}

//行上所绑定的JS
function radButton(rowIndex,rowGUID)
{
    //gv_InfoFromSendModule$ctl02$rad_Select
    var rowCount = parseInt(document.all.txthid_RowCount.value)+2;

    for(var i=2;i    {
        var tmpName;
        if(i<10)
        {
            tmpName = "gv_InfoFromSendModule$ctl0"+i+"$rad_Select";
        }
        else
        {
            tmpName = "gv_InfoFromSendModule$ctl"+i+"$rad_Select";
        }
        //取得对应的Radio对象
        var tmpRadio = document.getElementById(tmpName);
        //当前选中其他取消选中
        if((i-2) == rowIndex)
        {
            tmpRadio.checked = true;
        }
        else
        {
            tmpRadio.checked = false;
        }
    }
    document.all.txthid_GUID.value = rowGUID;
}

//读取第一行的Name字段
var xmlDom = new ActiveXObject("Microsoft.XMLDOM");
xmlDom.loadXML(result);
var rowNum = 0 ;
rowNum = xmlDom.documentElement.childNodes.length;
//如果查出资料
if(rowNum>0)
{
var firstRow = xmlDom.documentElement.childNodes[0];
alert(firstRow.selectSingleNode("Name").text);
}
或者
var varName = xmlDom.selectSingleNode("NewDataSet/Table1/Name").text;

if ((event.keyCode>=65)&&(event.keyCode<=90))
{
document.all.Text1.value="";
document.all.Text1.focus();
//将65转换为a
document.all.Text1.value=String.fromCharCode(event.keyCode).toLowerCase();
}

keyCode
event.shiftKey
event.altKey
event.ctrlKey
事件返回值
event.returnValue
鼠标位置
event.x
event.y
窗体活动元素
document.activeElement
绑定事件
document.captureEvents(Event.KEYDOWN);
访问窗体元素
document.all("txt").focus();
document.all("txt").select();
窗体命令
document.execCommand
窗体COOKIE
document.cookie
菜单事件
document.oncontextmenu
创建元素
document.createElement("SPAN");
根据鼠标获得元素：
document.elementFromPoint(event.x,event.y).tagName=="TD
document.elementFromPoint(event.x,event.y).appendChild(ms)
窗体图片
document.images[索引]
窗体事件绑定
document.onmousedown=scrollwindow;
元素
document.窗体.elements[索引]
对象绑定事件
document.all.xxx.detachEvent('onclick',a);
插件数目
navigator.plugins
取变量类型
typeof($js_libpath) == "undefined"
下拉框
下拉框.options[索引]
下拉框.options.length
查找对象
document.getElementsByName("r1");
document.getElementById(id);
定时
timer=setInterval('scrollwindow()',delay);
clearInterval(timer);
UNCODE编码
escape() ,unescape
父对象
obj.parentElement(dhtml)
obj.parentNode(dom)
交换表的行
TableID.moveRow(2,1)
替换CSS
document.all.csss.href = "a.css";
并排显示
display:inline
隐藏焦点
hidefocus=true
根据宽度换行
style="word-break:break-all"
自动刷新

简单邮件

快速转到位置
obj.scrollIntoView(true)
锚

anchors
网页传递参数
location.search();
可编辑
obj.contenteditable=true
执行菜单命令
obj.execCommand
双字节字符
/[^\x00-\xff]/
汉字
/[\u4e00-\u9fa5]/
让英文字符串超出表格宽度自动换行
word-wrap: break-word; word-break: break-all;
透明背景

获得style内容
obj.style.cssText
HTML标签
document.documentElement.innerHTML
第一个style标签
document.styleSheets[0]
style标签里的第一个样式
document.styleSheets[0].rules[0]
防止点击空链接时，页面往往重置到页首端。
word
上一网页源
asp:
request.servervariables("HTTP_REFERER")
javascript:
document.referrer
释放内存
CollectGarbage();
禁止右键
document.oncontextmenu = function() { return false;}
禁止保存

禁止选取
禁止粘贴

地址栏图标

favicon.ico 名字最好不变16*16的16色,放虚拟目录根目录下
收藏栏图标

查看源码

http://www.csdn.net/'">
关闭输入法

自动全选

ENTER键可以让光标移到下一个输入框

文本框的默认值

title换行
obj.title = "123 sdfs "
获得时间所代表的微秒
var n1 = new Date("2004-10-10".replace(/-/g, "\/")).getTime()
窗口是否关闭
win.closed
checkbox扁平

获取选中内容
document.selection.createRange().duplicate().text
自动完成功能
打开该功能
关闭该功能
窗口最大化

无关闭按钮IE
window.open("aa.htm", "meizz", "fullscreen=7");
统一编码/解码
alert(decodeURIComponent(encodeURIComponent("http://你好.com?as= hehe")))
encodeURIComponent对":"、"/"、";" 和 "?"也编码
表格行指示

//各种尺寸
s  +=  "\r\n网页可见区域宽："+  document.body.clientWidth;
s  +=  "\r\n网页可见区域高："+  document.body.clientHeight;
s  +=  "\r\n网页可见区域高："+  document.body.offsetWeight  +"  (包括边线的宽)";
s  +=  "\r\n网页可见区域高："+  document.body.offsetHeight  +"  (包括边线的宽)";
s  +=  "\r\n网页正文全文宽："+  document.body.scrollWidth;
s  +=  "\r\n网页正文全文高："+  document.body.scrollHeight;
s  +=  "\r\n网页被卷去的高："+  document.body.scrollTop;
s  +=  "\r\n网页被卷去的左："+  document.body.scrollLeft;
s  +=  "\r\n网页正文部分上："+  window.screenTop;
s  +=  "\r\n网页正文部分左："+  window.screenLeft;
s  +=  "\r\n屏幕分辨率的高："+  window.screen.height;
s  +=  "\r\n屏幕分辨率的宽："+  window.screen.width;
s  +=  "\r\n屏幕可用工作区高度："+  window.screen.availHeight;
s  +=  "\r\n屏幕可用工作区宽度："+  window.screen.availWidth;

//过滤数字
=48&&event.keyCode<=57||(this.value.indexOf('.')<0?event.keyCode==46:false)" onpaste="return !clipboardData.getData('text').match(/\D/)" ondragenter="return false">

//特殊用途
http://localhost');">
http://localhost');">

http://www.google.com/', 'google')">
http://www.google.com/')">

//不缓存

//正则匹配

匹配中文字符的正则表达式： [\u4e00-\u9fa5]
匹配双字节字符(包括汉字在内)：[^\x00-\xff]
匹配空行的正则表达式：\n[\s| ]*\r
匹配HTML标记的正则表达式：/<(.*)>.*<\/\1>|<(.*) \/>/
匹配首尾空格的正则表达式：(^\s*)|(\s*$)（像vbscript那样的trim函数）
匹配Email地址的正则表达式：\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*
匹配网址URL的正则表达式：http://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?
以下是例子：
利用正则表达式限制网页表单里的文本框输入内容：
用正则表达式限制只能输入中文：onkeyup="value=value.replace(/[^\u4E00-\u9FA5]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\u4E00-\u9FA5]/g,''))"
1.用正则表达式限制只能输入全角字符： onkeyup="value=value.replace(/[^\uFF00-\uFFFF]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\uFF00-\uFFFF]/g,''))"
2.用正则表达式限制只能输入数字：onkeyup="value=value.replace(/[^\d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))"
3.用正则表达式限制只能输入数字和英文：onkeyup="value=value.replace(/[\W]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))"
//消除图像工具栏

or

//无提示关闭

function Close()
{
var ua=navigator.userAgent
var ie=navigator.appName=="Microsoft Internet Explorer"?true:false
if(ie)
{
      var IEversion=parseFloat(ua.substring(ua.indexOf("MSIE ")+5,ua.indexOf(";",ua.indexOf("MSIE "))))
  if(IEversion< 5.5)
  {
   var str  = ''
       str += '';
       document.body.insertAdjacentHTML("beforeEnd", str);
       document.all.noTipClose.Click();
  }
      else
  {
       window.opener =null;
       window.close();
      }
   }
else
{
  window.close()
   }
}
//取得控件得绝对位置(1)


function getoffset(e)
{
var t=e.offsetTop;
var l=e.offsetLeft;
while(e=e.offsetParent)
{
  t+=e.offsetTop;
  l+=e.offsetLeft;
}
var rec = new Array(1);
rec[0]  = t;
rec[1] = l;
return rec
}

//获得控件的绝对位置(2)
orect = obj.getBoundingClientRect();
orect.left
orect.
//最小化,最大化,关闭










//光标停在文字最后

function cc()
{
var e = event.srcElement;
var r =e.createTextRange();
r.moveStart('character',e.value.length);
r.collapse(true);
r.select();
}

//页面进入和退出的特效

进入页面
推出页面
这个是页面被载入和调出时的一些特效。duration表示特效的持续时间，以秒为单位。transition表示使
用哪种特效，取值为1-23:
　　0 矩形缩小
　　1 矩形扩大
　　2 圆形缩小
　　3 圆形扩大
　　4 下到上刷新
　　5 上到下刷新
　　6 左到右刷新
　　7 右到左刷新
　　8 竖百叶窗
　　9 横百叶窗
　　10 错位横百叶窗
　　11 错位竖百叶窗
　　12 点扩散
　　13 左右到中间刷新
　　14 中间到左右刷新
　　15 中间到上下
　　16 上下到中间
　　17 右下到左上
　　18 右上到左下
　　19 左上到右下
　　20 左下到右上
　　21 横条
　　22 竖条
　　23
//网页是否被检索

　　其中属性值有以下一些:
　　属性值为"all": 文件将被检索，且页上链接可被查询；
　　属性值为"none": 文件不被检索，而且不查询页上的链接；
　　属性值为"index": 文件将被检索；
　　属性值为"follow": 查询页上的链接；
　　属性值为"noindex": 文件不检索，但可被查询链接；
　　属性值为"nofollow":

//打印分页

page1

page2

//设置打印

  classid="clsid:1663ed61-23eb-11d2-b92f-008048fdd814"
  codebase="http://www.meadroid.com/scriptx/ScriptX.cab#Version=5,60,0,360"
>



function window.onload()
{
   // -- advanced features
   factory.printing.SetMarginMeasure(2) // measure margins in inches
   factory.printing.SetPageRange(false, 1, 3) // need pages from 1 to 3
   factory.printing.printer = "HP DeskJet 870C"
   factory.printing.copies = 2
   factory.printing.collate = true
   factory.printing.paperSize = "A4"
   factory.printing.paperSource = "Manual feed"
   // -- basic features
   factory.printing.header = "居左显示&b居中显示&b居右显示页码，第&p页/共&P页"
   factory.printing.footer = "（自定义页脚）"
   factory.printing.portrait = false
   factory.printing.leftMargin = 0.75
   factory.printing.topMargin = 1.5
   factory.printing.rightMargin = 0.75
   factory.printing.bottomMargin = 1.5
}
function Print(frame) {
  factory.printing.Print(true, frame) // print with prompt
}

http://www.meadroid.com/scriptx/docs/printdoc.htm?static"  target=_blank>具体使用手册，更多信息，点这里

//自带的打印预览
WebBrowser.ExecWB(1,1) 打开
Web.ExecWB(2,1) 关闭现在所有的IE窗口，并打开一个新窗口
Web.ExecWB(4,1) 保存网页
Web.ExecWB(6,1) 打印
Web.ExecWB(7,1) 打印预览
Web.ExecWB(8,1) 打印页面设置
Web.ExecWB(10,1) 查看页面属性
Web.ExecWB(15,1) 好像是撤销，有待确认
Web.ExecWB(17,1) 全选
Web.ExecWB(22,1) 刷新
Web.ExecWB(45,1) 关闭窗体无提示

.Noprint{display:none;}
.PageNext{page-break-after: always;}

//去掉打印时的页眉页脚


var HKEY_Root,HKEY_Path,HKEY_Key;
HKEY_Root="HKEY_CURRENT_USER";
HKEY_Path="\\Software\\Microsoft\\Internet Explorer\\PageSetup\\";
//设置网页打印的页眉页脚为空
function PageSetup_Null()
{
try
{
         var Wsh=new ActiveXObject("WScript.Shell");
  HKEY_Key="header";
  Wsh.RegWrite(HKEY_Root+HKEY_Path+HKEY_Key,"");
  HKEY_Key="footer";
  Wsh.RegWrite(HKEY_Root+HKEY_Path+HKEY_Key,"");
}
catch(e){}
}
//设置网页打印的页眉页脚为默认值
function  PageSetup_Default()
{
try
{
  var Wsh=new ActiveXObject("WScript.Shell");
  HKEY_Key="header";
  Wsh.RegWrite(HKEY_Root+HKEY_Path+HKEY_Key,"&w&b页码,&p/&P");
  HKEY_Key="footer";
  Wsh.RegWrite(HKEY_Root+HKEY_Path+HKEY_Key,"&u&b&d");
}
catch(e){}
}

//浏览器验证

function checkBrowser()
{
   this.ver=navigator.appVersion
   this.dom=document.getElementById?1:0
   this.ie6=(this.ver.indexOf("MSIE 6")>-1 && this.dom)?1:0;
   this.ie5=(this.ver.indexOf("MSIE 5")>-1 && this.dom)?1:0;
   this.ie4=(document.all && !this.dom)?1:0;
   this.ns5=(this.dom && parseInt(this.ver) >= 5) ?1:0;
   this.ns4=(document.layers && !this.dom)?1:0;
   this.mac=(this.ver.indexOf('Mac') > -1) ?1:0;
   this.ope=(navigator.userAgent.indexOf('Opera')>-1);
   this.ie=(this.ie6 || this.ie5 || this.ie4)
   this.ns=(this.ns4 || this.ns5)
   this.bw=(this.ie6 || this.ie5 || this.ie4 || this.ns5 || this.ns4 || this.mac || this.ope)
   this.nbw=(!this.bw)
   return this;
}
//计算内容宽和高

function  test(obj)
{
       var  range  =  obj.createTextRange();
       alert("内容区宽度:  "  +  range.boundingWidth
                                                 +  "px\r\n内容区高度:  "  +  range.boundingHeight  +  "px");

}


sdf

//无模式的提示框
function modelessAlert(Msg)
{
   window.showModelessDialog("javascript:alert(\""+escape(Msg)+"\");window.close();","","status:no;resizable:no;help:no;dialogHeight:height:30px;dialogHeight:40px;");
}

//屏蔽按键



  屏蔽鼠标右键、Ctrl+N、Shift+F10、Alt+F4、F11、F5刷新、退格键

//可编辑Select

                11111111
                333333



//设置光标位置

function getCaret(textbox)
{
var control = document.activeElement;
textbox.focus();
var rang = document.selection.createRange();
  rang.setEndPoint("StartToStart",textbox.createTextRange())
control.focus();
return rang.text.length;
}
function setCaret(textbox,pos)
{
try
{
  var r =textbox.createTextRange();
   r.moveStart('character',pos);
   r.collapse(true);
   r.select();
}
catch(e)
{}
}
function selectLength(textbox,start,len)
{
try
{
  var r =textbox.createTextRange();

  r.moveEnd('character',len-(textbox.value.length-start));
  r.moveStart('character',start);

  r.select();
}
catch(e)
{//alert(e.description)}
}
function insertAtCaret(textbox,text)
{
textbox.focus();
document.selection.createRange().text = text;
}
//页内查找

function findInPage(str)
{
var txt, i, found,n = 0;
if (str == "")
{
  return false;
}
txt = document.body.createTextRange();
for (i = 0; i <= n && (found = txt.findText(str)) != false; i++)
{
  txt.moveStart("character", 1);
  txt.moveEnd("textedit");
}
if (found)
{
  txt.moveStart("character", -1);
  txt.findText(str);
  txt.select();
  txt.scrollIntoView();
  n++;
}
else
{
  if (n > 0)
  {
   n = 0;
   findInPage(str);
  }
  else
  {
   alert(str + "...            您要找的文字不存在。\n \n请试着输入页面中的关键字再次查找！");
  }
}
return false;
}
//书
http://www.itpub.net/attachment.php?s=&postid=1894598
http://www.wrclub.net/down/listdown.aspx?id=1341
//操作EXECL

function jStartExcel() {
var xls = new ActiveXObject ( "Excel.Application" );
xls.visible = true;
var newBook = xls.Workbooks.Add;
newBook.Worksheets.Add;
newBook.Worksheets(1).Activate;
xls.ActiveWorkBook.ActiveSheet.PageSetup.Orientation = 2;
xls.ActiveWorkBook.ActiveSheet.PageSetup.PaperSize = 5;
newBook.Worksheets(1).Columns("A").columnwidth=50;
newBook.Worksheets(1).Columns("A").WrapText = true;
newBook.Worksheets(1).Columns("B").columnwidth=50;
newBook.Worksheets(1).Columns("B").WrapText = true;
newBook.Worksheets(1).Range("A1:B1000").NumberFormat = "0";
newBook.Worksheets(1).Range("A1:B1000").HorizontalAlignment = -4131;
newBook.Worksheets(1).Cells(1,1).Interior.ColorIndex="15";
newBook.Worksheets(1).Cells(1,1).value="First Column, First Cell";
newBook.Worksheets(1).Cells(2,1).value="First Column, Second Cell";
newBook.Worksheets(1).Cells(1,2).value="Second Column, First Cell";
newBook.Worksheets(1).Cells(2,2).value="Second Column, Second Cell";
newBook.Worksheets(1).Name="My First WorkSheet";
}

//自定义提示条

tip

//***********默认设置定义.*********************
tPopWait=50;//停留tWait豪秒后显示提示。
tPopShow=5000;//显示tShow豪秒后关闭提示
showPopStep=20;
popOpacity=99;
//***************内部变量定义*****************
sPop=null;
curShow=null;
tFadeOut=null;
tFadeIn=null;
tFadeWaiting=null;
document.write("");
document.write(".cPopText {  background-color: #F8F8F5;color:#000000; border: 1px #000000 solid;font-color: font-size: 12px; padding-right: 4px; padding-left: 4px; height: 20px; padding-top: 2px; padding-bottom: 2px; filter: Alpha(Opacity=0)}");
document.write("");
document.write("");
function showPopupText(){
var o=event.srcElement;
MouseX=event.x;
MouseY=event.y;
if(o.alt!=null && o.alt!=""){o.dypop=o.alt;o.alt=""};
        if(o.title!=null && o.title!=""){o.dypop=o.title;o.title=""};
if(o.dypop!=sPop) {
sPop=o.dypop;
clearTimeout(curShow);
clearTimeout(tFadeOut);
clearTimeout(tFadeIn);
clearTimeout(tFadeWaiting);
if(sPop==null || sPop=="") {
dypopLayer.innerHTML="";
dypopLayer.style.filter="Alpha()";
dypopLayer.filters.Alpha.opacity=0;
}
else {
if(o.dyclass!=null) popStyle=o.dyclass
else popStyle="cPopText";
curShow=setTimeout("showIt()",tPopWait);
}
}
}
function showIt(){
dypopLayer.className=popStyle;
dypopLayer.innerHTML=sPop;
popWidth=dypopLayer.clientWidth;
popHeight=dypopLayer.clientHeight;
if(MouseX+12+popWidth>document.body.clientWidth) popLeftAdjust=-popWidth-24
else popLeftAdjust=0;
if(MouseY+12+popHeight>document.body.clientHeight) popTopAdjust=-popHeight-24
else popTopAdjust=0;
dypopLayer.style.left=MouseX+12+document.body.scrollLeft+popLeftAdjust;
dypopLayer.style.top=MouseY+12+document.body.scrollTop+popTopAdjust;
dypopLayer.style.filter="Alpha(Opacity=0)";
fadeOut();
}
function fadeOut(){
if(dypopLayer.filters.Alpha.opacitydypopLayer.filters.Alpha.opacity+=showPopStep;
tFadeOut=setTimeout("fadeOut()",1);
}
else {
dypopLayer.filters.Alpha.opacity=popOpacity;
tFadeWaiting=setTimeout("fadeIn()",tPopShow);
}
}
function fadeIn(){
if(dypopLayer.filters.Alpha.opacity>0) {
dypopLayer.filters.Alpha.opacity-=1;
tFadeIn=setTimeout("fadeIn()",1);
}
}
document.onmouseover=showPopupText;

//插入文字
document.onclick =function(){
var oSource = window.event.srcElement;
if(oSource.tagName!="DIV")
return false;
var sel = document.selection;
if (sel!=null) {
var rng = sel.createRange();
if (rng!=null)
rng.pasteHTML("插入文字");
}
}
//netscapte下操作xml
doc = new ActiveXObject("Msxml2.DOMDocument");
doc = new ActiveXObject("Microsoft.XMLDOM")
->>
doc = (new DOMParser()).parseFromString(sXML,'text/xml')

//判断键值

var ie  =navigator.appName=="Microsoft Internet Explorer"?true:false;

function keyDown(e)
{
if(!ie)
{
  var nkey=e.which;
  var iekey='现在是ns浏览器';
  var realkey=String.fromCharCode(e.which);
}
if(ie)
{
  var iekey=event.keyCode;
  var nkey='现在是ie浏览器';
  var realkey=String.fromCharCode(event.keyCode);
  if(event.keyCode==32){realkey='\' 空格\''}
  if(event.keyCode==13){realkey='\' 回车\''}
  if(event.keyCode==27){realkey='\' Esc\''}
  if(event.keyCode==16){realkey='\' Shift\''}
  if(event.keyCode==17){realkey='\' Ctrl\''}
  if(event.keyCode==18){realkey='\' Alt\''}
}
alert('ns浏览器中键值:'+nkey+'\n'+'ie浏览器中键值:'+iekey+'\n'+'实际键为'+realkey);
}
document.onkeydown = keyDown;

//Javascript Document.

请按任意一个键。。。。

//禁止FSO

1.注销组件
regsvr32 /u scrrun.dll
2.修改PROGID
HKEY_CLASSES_ROOT\Scripting.FileSystemObject
Scripting.FileSystemObject
3.对于使用object的用户，修改HKEY_CLASSES_ROOT\Scripting.
//省略号
overflow: hidden; text-overflow:ellipsis">
就是比如有一行文字，很长，表格内一行显示不下.

//检测media play版本

//图象按比例

//细线Select

//Import

function Import() {
for( var i=0; i  var file = arguments[i];
  if ( file.match(/\.js$/i))
   document.write('');
  else
   document.write('@import \"' + file + '\" ;');
}
};
//js枚举

function getComputerName()
{
var objWMIService = GetObject("Winmgmts:root\cimv2");
for(e = new Enumerator(objWMIService) ; !e.atEnd() ; e.moveNext())
{
    var getComputer = e.item();
    return getComputer.Name;
}
}

//条件编译

/*@cc_on @*/
/*@if (@_win32 && @_jscript_version>5)
function window.confirm(str)
{
    execScript("n = msgbox('"+ str +"', 257)", "vbscript");
    return(n == 1);
}
@end @*/

//取得innerText

//mergeAttributes 复制所有读/写标签属性到指定元素。

ID="oDiv"
ATTRIBUTE1="true"
ATTRIBUTE2="true"
onclick="alert('click');"
onmouseover="this.style.color='#0000FF';"
onmouseout="this.style.color='#000000';"
>
This is a sample DIV element.

This is another sample DIV element.

TYPE="button"
VALUE="Merge Attributes"
onclick="fnMerge()"
>

  回复  引用  查看

#7楼 [楼主] 2007-09-12 11:20 freeliver54
//字串替换
function replace(str,oldstr,newstr)
{
var i=0;
var r1 = str.replace(oldstr,newstr);
var r2;
while(i<5)
{
if(r1.indexOf(oldstr)== -1)
{
i++;
}
else
{
r2 = r1.replace(oldstr,newstr);
r1 = r2;
}
}
return r1;
}

GirdView的imagebutton模版列调用js函数并传入参数
OnClientClick='<%# "return IsDelete("+Eval("UserId").ToString()+");" %>'

JS调用Session
var userid=parseInt(<%=Session["UserId"].ToString() %>);

跳转其他页面前先弹出相关提示
string strURL = "AUser.aspx?UserId=" + this.UserId + "&PUserName=" + System.Web.HttpUtility.UrlEncode(this.lbl_Title.Text);
Response.Write("");

JS中得到C#后台服务器Session的值

fn_JSGetSession();
function fn_JSGetSession()
{
    //先判断其是否存在
    //if((<%=Session["UserID"] %>+"")=="")
    if(String(<%=Session["UserID"] %>)=="")
    {
        alert("不存在该Session值");
        return;
    }
    else
    {
//弹出其值
        alert(<%=Session["UserID"] %>);
    }
}

哀悼逝者一句话网站变成灰色

dbmaster@163.com(zilong) — Tue,20 May 2008 10:38:17 +0800

今天一直到21日为全国哀悼日，有很多网站界面都变成了黑白色，从而纪念那些在地震中死去的逝者。对于普通的站长来说，对于灾难并不能多做些什么，但可以做到将自己的网站也变成黑白色，从而缅怀那些逝者。
　　
　　如果用传统的方法将网站变成黑白色非常的麻烦，需要更换页面的文件，并且要对图片进行更改。但如果自己的网站支持CSS的话，一切变得很简单。只要是符合w3标准的网页，在CSS文件的最前面加上一行代码就可以了，这段代码使用的是CSS滤镜，将网页中的色彩部分过滤掉。

html { filter:progid:DXImageTransform.Microsoft.BasicImage(grayscale=1); }（不换行）

　　加上代码之后，再次刷新网页就会发现页面已经变成黑白的了（配图）。还在等什么，赶快给自己的网站加上一行代码，变成黑白色，一起来缅怀在地震中去世的人。

再给大家一个简单的解决办法在首页的body中加上
style="FILTER: alphaopacity=80 gray"

ＣＳＳ让图片变灰色：
http://www.dbsun.com/images/logo.gif" style="filter:progid:DXImageTransform.Microsoft.BasicImage(grayScale=1)">
或
http://www.dbsun.com/images/logo.gif" style="filter:gray">

有一些站长的网站可能使用这个css 不能生效，是因为网站没有使用最新的网页标准协议
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
http://www.w3.org/1999/xhtml">
请将网页最头部的替换为以上代码。
有一些网站FLASH动画的颜色不能被CSS滤镜控制，可以在FLASH代码的和之间插入：

最简单的把页面变成灰色的代码是在head 之间加

html {
FILTER: gray
}