我写的Javascript/VBScript函数，

最新推荐文章于 2021-05-30 20:07:17 发布

lzid2008

最新推荐文章于 2021-05-30 20:07:17 发布

阅读量1.1k

点赞数

文章标签： function 框架电话 javascript vbscript email

本文链接：https://blog.csdn.net/lzid2008/article/details/1222200

版权

<!--

function selectByVal(sel,val)
{
for(var i=0;i<sel.options.length; i++)
{
  if (sel.options(i).value == val)
  {
   sel.options(i).selected = true;
  }
}
}

function changeDoc(sel,val,txt)
{
var a=sel.value;
var b;
txt.value = "";
var c=val.split("*");
for(b=0;b<c.length;b++)
{
  var d=c[b].split("$");
  if (d[0]==a)
  {
   txt.value = d[1];
  }
}
}

function changeDpt(sel,val,ind)
{
var a=sel.options.length;
var b;
var oOption;

for(b=0;b< a;b++)
{
sel.options.remove(0);
}

oOption = document.createElement("OPTION");
sel.options.add(oOption);
oOption.innerText = "All";
oOption.value = "";
var c=val.split("*");
for(b=0;b<c.length;b++)
{
  var d=c[b].split("$");
  if (d[2]==ind)
  {
   oOption = document.createElement("OPTION");
   sel.options.add(oOption);
   oOption.innerText = d[0];
   oOption.value = d[1];
  }
}
}

//函数名:dateComp
//作者：William
//修改日期：2005-5-25
//功能说明：比较两个日期的大小
//说明：此函数不包含日期合法性的验证，调用时请先验证日期的合法性,日期格式接受"YYYY-MM-DD"
//参数说明：dateA - 欲比较的日期,dateB - 欲比较的日期
//返回值：-1:dateA<dateB,0:dateA=dateB,1:dateA>dateB
function dateComp(dateA,dateB)
{
var numA;
var numB;

for (var i=0; i<3; i++)
{
  numA=parseInt(dateA.split("-")[i]);
  numB=parseInt(dateB.split("-")[i]);
  if (numA > numB)
  {
   return 1;
  }
  else if (numA < numB)
  {
   return -1;
  }
}
return 0;
}
//函数名:chkEmail
//作者：William
//修改日期：2005-5-13
//功能说明：检查输入框的输入是否为密码
//说明：无
//参数说明：T - 欲检查的输入框
//返回值：无
function chkPWD(T)
{
T.value = Trim(T.value);
if(T.value)
{
  if(!fucPWDchk(T.value))
  {
   alert("输入的密码包含非法字符，请重新输入！");
   T.focus();
  }
}
}
//函数名:chkEmail
//作者：William
//修改日期：2005-5-13
//功能说明：检查输入框的输入是否为电子邮件
//说明：无
//参数说明：T - 欲检查的输入框
//返回值：无
function chkEmail(T)
{
T.value = Trim(T.value);
if(T.value)
{
  if(!fucCheckemail(T.value))
  {
   alert("输入的EMail不合法，请重新输入！");
   T.focus();
  }
}
}

//函数名:chkTEL
//作者：William
//修改日期：2005-5-13
//功能说明：检查输入框的输入是否为电话号码
//说明：无
//参数说明：T - 欲检查的输入框
//返回值：无
function chkTEL(T)
{
T.value = Trim(T.value);
if(T.value)
{
  if(!fucCheckTel(T.value))
  {
   alert("输入的电话号码中包含非法字符，请重新输入！");
   T.focus();
  }
  if(T.value.length<7 || T.value.length>30)
  {
   alert("输入的电话号码长度非法，请重新输入！");
   T.focus();
  }
}
}

//函数名:chkMobile
//作者：William
//修改日期：2005-5-13
//功能说明：输入框的输入是否是手机号码
//说明：无
//参数说明：N - 欲检查的输入框
//返回值：无
function chkMobile(N)
{
N.value = Trim(N.value);
if(N.value)
{
  if(!fucCheckTel(N.value))
  {
   alert("输入的手机号码包含非法字符，请重新输入！");
   N.focus();
  }
  else if(N.value.length<8 || N.value.length>20)
  {
   alert("输入的手机号码长度非法，请重新输入！");
   N.focus();
  }
}
}

//函数名:chkPostCode
//作者：William
//修改日期：2005-5-13
//功能说明：输入框的输入是否是邮政编码
//说明：无
//参数说明：N - 欲检查的输入框
//返回值：无
function chkPostCode(N)
{
N.value = Trim(N.value);
if(N.value)
{
  if(!fucCheckNum(N.value))
  {
   alert("输入的邮政编码包含非法字符，请重新输入！");
   N.focus();
  }
  else if(N.value.length<6 || N.value.length>6)
  {
   alert("输入的邮政编码长度非法，请重新输入！");
   N.focus();
  }
}
}

//函数名:chkNum
//作者：William
//修改日期：2005-5-13
//功能说明：检查数字输入框的输入是否合法
//说明：无
//参数说明：N - 欲检查的输入框
//返回值：无
function chkNum(N)
{
N.value = Trim(N.value);
if(N.value)
{
  if(!fucCheckNum(N.value))
  {
   alert("输入不为整数，请重新输入！");
   N.focus();
  }
}
}

//函数名:chkFloat
//作者：William
//修改日期：2005-5-13
//功能说明：检查浮点数输入框的输入是否合法
//说明：无
//参数说明：M - 欲检查的输入框
//返回值：无
function chkFloat(M)
{

M.value = Trim(M.value);
if(M.value)
{//检查是否正确
  if(!fucCheckFloat(M.value))
  {
   alert("输入数字包含非法的字符，请重新输入！");
   M.focus();
  }
}
}

//函数名:chkMoney
//作者：William
//修改日期：2005-5-13
//功能说明：检查金额输入框的输入是否合法
//说明：无
//参数说明：M - 欲检查的输入框
//返回值：无
function chkMoney(M)
{

M.value = Trim(M.value);
if(M.value)
{//检查是否正确
  if(!fucCheckFloat(M.value))
  {
   alert("输入金额包含非法的字符，请重新输入！");
   M.focus();
  }
}
}

//函数名:chkMoneyM
//作者：William
//修改日期：2005-5-13
//功能说明：检查金额输入框的输入是否合法
//说明：允许有负的金额
//参数说明：M - 欲检查的输入框
//返回值：无
function chkMoneyM(M)
{

M.value = Trim(M.value);
if(M.value)
{//检查是否正确
  if(!fucCheckFloatM(M.value))
  {
   alert("输入金额包含非法的字符，请重新输入！");
   M.focus();
  }
}
}

//函数名:page_check
//作者：William
//修改日期：2005-5-11
//功能说明：检查页码输入框中的输入是否合法
//说明：页面的页码输入的name应为page，行数输入的name应为PageSizes。
//参数说明：a - 要检查的form
//返回值：true为合法，false为不合法
function page_check(a)
{//验证转页的条件
a.page.value = Trim(a.page .value);
if(!a.page.value)
{//检查是否有输入
  alert("请输入要转到的页数！");
  a.page.focus();
  return false;
}
else
{
  if(!fucCheckNum(a.page.value))
   {//检查是否是数字
    alert("页数必须是数字！");
       a.page.value = "";
       a.page.focus();
       return false;
   }
}
a.PageSizes.value = Trim(a.PageSizes.value);
if(!a.PageSizes.value)
{//检查是否有输入
  alert("请输入每页应显示的行数！");
  a.PageSizes.focus();
  return false;
}
else
{
  if(!fucCheckNum(a.PageSizes.value))
   {//检查是否是数字
    alert("行数必须是数字！");
       a.PageSizes.value = "";
       a.PageSizes.focus();
       return false;
   }
}
return true;
}

//函数名:go_page
//作者：William
//修改日期：2005-5-11
//功能说明：跳转到页面
//说明：提交跳转的Form的name应为"myform"。
//参数说明：无
//返回值：无
function go_page(pge)
{//如果验证条件成立，则转到相应的页面
var a=document.myform;
if(page_check(a))
{
  var page=a.page.value;
  var PageSizes=a.PageSizes.value;
  var strAction=a.action;
  var strTemp=strAction.split("?");
  if (pge==null)
  {
   strAction = strTemp[0] + "?page=" + page + "&PageSizes=" + PageSizes;
  }
  else
  {
   strAction = strTemp[0] + "?page=" + pge + "&PageSizes=" + PageSizes;
  }
  if (strTemp[1])
  {
   strAction = strAction + "&" + strTemp[1];
  }
  window.open(strAction,"MainFR");
}
}

//函数名:selectall
//作者：William
//修改日期：2005-5-11
//功能说明：全部选中选择框
//说明：form的name应为"myform"，欲选择的选择框的name应为"selectnumber"。
//参数说明：v - 被单击的选择框
//返回值说明：无
function selectall(v)
{
for (var i = 0; i < document.forms["myform"].elements.length; i++)
{
  if (document.forms["myform"].elements[i].name=="selectnumber")
  {
   document.forms["myform"].elements[i].checked = v.checked;
  }
}
}

//函数名:isselected
//作者：William
//修改日期：2005-5-11
//功能说明：检查选择框是否有被选中
//说明：form的name应为"myform"，欲选择的选择框的name应为"selectnumber"。
//参数说明：无
//返回值说明：true - 有被选中的。false - 没有选中的。
function isselected()
{
for (var i = 0; i < document.forms["myform"].elements.length; i++)
{
  if (document.forms["myform"].elements[i].name=="selectnumber")
  {
   if (document.forms["myform"].elements[i].checked)
   {
    return true;
   }
  }
}
return false;
}

//函数名:fucCheckFloatM
//作者：William
//修改日期：2005-5-11
//功能说明：检查是否为浮点数
//说明：允许有负数。
//参数说明：NUM - 要检查的数字
//返回值：1为是浮点数，0为不是浮点数
function fucCheckFloatM(NUM)
{
var i,j,strTemp;
strTemp="0123456789.";
if(NUM.length==0)
  return 0;
for(i=0;i<NUM.length;i++)
{
  if( i==0 && NUM.charAt(0)=='-')
  continue;
  j=strTemp.indexOf(NUM.charAt(i));

  if(j==-1)
   return 0;
}
if(NUM.split(".").length>2)
{
  return 0;
}
return 1;
}

//函数名:fucCheckFloat
//作者：William
//修改日期：2005-5-11
//功能说明：检查是否为浮点数（）
//说明：不允许有负数。
//参数说明：NUM - 要检查的数字
//返回值：1为是浮点数，0为不是浮点数
function fucCheckFloat(NUM)
{
var i,j,strTemp;
strTemp="0123456789.";
if(NUM.length==0)
  return 0;
for(i=0;i<NUM.length;i++)
{
  j=strTemp.indexOf(NUM.charAt(i));
  if(j==-1)
   return 0;
}
if(NUM.split(".").length>2)
{
  return 0;
}
return 1;
}

//函数名:fucCheckNUM
//作者：William
//修改日期：2005-5-11
//功能说明：检查是否为非负整数
//说明：无
//参数说明：NUM - 要检查的数字
//返回值：1为是正整数，0为不是非负整数
function fucCheckNum(NUM)
{
var i,j,strTemp;
strTemp="0123456789";
if(NUM.length==0)
  return 0;
for(i=0;i<NUM.length;i++)
{
  j=strTemp.indexOf(NUM.charAt(i));
  if(j==-1)
   return 0;
}
return 1;
}

//函数名:chkdate
//作者：William
//修改日期：2005-5-11
//功能说明：检查是否为日期
//说明：无
//参数说明：str - 要检查的字符串
//返回值：0为不是日期 1为是日期
function chkdate(str) {
var strNum,i;
strNum="-0123456789";

for(i=0;i<str.length;i++)
{
  j=strNum.indexOf(str.charAt(i));
  if(j==-1)
   return 0;
}
str=str.replace(//s+/g,"");
if(str.search(/^/d{4}-/d{1,2}-/d{1,2}$/)==0){
  var y=parseInt(str.split("-")[0]);
  var m=parseInt(str.split("-")[1]);
  var d=parseInt(str.split("-")[2]);
  switch(m){
  case 1:
  case 3:
  case 5:
  case 7:
  case 8:
  case 10:
  case 12:
   if(d>31 || d <1){
    return 0;
   }else{
    return 1;
   }
  break;
  case 2:
   if(d<1 || ((y%400==0 || (y%4==0 && y%100!=0)) && d>29) || ((y%4!=0 || (y%100==0 && y%400!=0)) && d>28))
   {
    return 0;
   }else{
    return 1;
   }
   break;
  case 4:
  case 6:
  case 9:
  case 11:
   if(d>30 || d<1){
    return 0;
   }else{
   return 1;
   }
   break;
   default:
   return 0;
  }
}else{
  return 0;
}
}
//函数名：chktime
//作者：张敏
//功能介绍：检查是否为时间
//参数说明：要检查的字符串 textObj
//返回值：0：不是时间 1：是时间

function chktime(str)
{
var strNum,i;
strNum=":0123456789";

for(i=0;i<str.length;i++)
{
  j=strNum.indexOf(str.charAt(i));
  if(j==-1)
   return 0;
}
str=str.replace(//s+/g,"");
if(str.search(/^/d{1,2}:/d{1,2}:/d{1,2}$/)==0)
{
  var y=parseInt(str.split(":")[0]);
  var m=parseInt(str.split(":")[1]);
  var d=parseInt(str.split(":")[2]);
  if(y>23||y<0||m>61||m<0||d>61||d<0)
  {
   return 0;
  }
  else
  {
   return 1;
  }
}
else
{
  return 0;
}
}

//函数名:fucCheckTEL
//作者：William
//修改日期：2005-5-11
//功能说明：检查是否为电话号码
//说明：无
//参数说明：TEL - 要检查的字符串
//返回值：1为是电话号码，0为不是电话号码
function fucCheckTel(TEL)
{
var i,j,strTemp;
strTemp="0123456789-()#";
for(i=0;i<TEL.length;i++)
{
  j=strTemp.indexOf(TEL.charAt(i));
  if(j==-1)
   return 0;
}
return 1;
}

//函数名：fucCheckLength
//功能介绍：检查字符串的长度
//参数说明：要检查的字符串
//返回值：长度值
function fucCheckLength(strTemp)
{
var i,sum;
sum=0;
for(i=0;i<strTemp.length;i++)
{
  if((strTemp.charCodeAt(i)>=0) && (strTemp.charCodeAt(i)<=255))
   sum=sum+1;
  else
   sum=sum+2;
}
return sum;
}

//函数名：fucPWDchk
//功能介绍：检查是否含有非数字或字母
//参数说明：要检查的字符串
//返回值：0：含有 1：全部为数字或字母

function fucPWDchk(str)
{
var strSource="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
var ch;
var i;
var temp;
for(i=0;i<=(str.length-1);i++)
{
  ch=str.charAt(i);
  temp=strSource.indexOf(ch);
  if(temp==-1)
   return 0;
}
if(strSource.indexOf(ch)==-1)
  return 0;
else
  return 1;
}

//opt1 小数 opt2 负数
//当opt2为1时检查num是否是负数
//当opt1为1时检查num是否是小数
//返回1是正确的，0是错误的

//功能说明：检察字符串里是否是合法的email地址
//参数说明：要检察的字符串地址
//返回值说明：0：非法的email格式，1：正确的email地址
function fucCheckemail(a)
{
var temp1, temp2, str_leng;
str_leng = a.length;
temp1 = a.indexOf('@');
temp2 = a.indexOf('.');
//alert("中国" + temp1 + "中国" + temp2 + "中国" + str_leng + "中国");
if((temp1 > 0) && (temp2 <= (str_leng - 2)) && ((temp2-temp1) >= 2))
{
return 1;
}
return 0;
}

//功能说明：检察字符串里是否有空格
//参数说明：要检察的字符串
//返回值说明：0：全是空格，1：没有空格，2：有空格
function chkspc(a)
{
var i=a.length;
var j=0;
var k=0;
while (k<i)
{
  if(a.charAt(k) != " ")
   j = j+1;
  k =k+1;
}
if(j==0)
  return 0;
if(i!=j)
  return 2;
else
  return 1;
}

function TrimLeft(sString)
{
var sStr,i,iStart,sResult = "";

sStr = sString.split("");
iStart = -1 ;
for (i = 0 ; i < sStr.length ; i++)
{
  if (sStr[i] != " ")
  {
   iStart = i;
   break;
  }
}
if (iStart == -1) { return "" ;}    //表示sString中的所有字符均是空格,则返回空串
else { return sString.substring(iStart) ;}
}

function TrimRight(sString)
{
var sStr,i,sResult = "",sTemp = "" ;

// if (sString.length == 0) { return "" ;} // 参数sString是空串

sStr = sString.split("");
for (i = sStr.length - 1 ; i >= 0 ; i --) // 将字符串进行倒序
{
sResult = sResult + sStr[i];
}
sTemp = TrimLeft(sResult) ; // 进行字符串前空格截除

if (sTemp == "") { return "" ; }

sStr = sTemp.split("");
sResult = "" ;
for (i = sStr.length - 1 ; i >= 0 ; i--) // 将经处理后的字符串再进行倒序
{
sResult = sResult + sStr[i];
}
return sResult ;
}

function Trim(sString)
{
/*
var strTmp ;
strTmp = TrimLeft(sString);
strTmp = TrimRight(strTmp) ;
return strTmp ;
*/
var newStr;
if(sString)
newStr=sString.replace(/(^/s*)|(/s*$)/g, "");
else
newStr="";
//alert(newStr);

return newStr;
}

function TrimJS(sString)
{//去掉两边的空格
var strTmp ;
strTmp = TrimLeft(sString);
strTmp = TrimRight(strTmp) ;
return strTmp ;
}

function clickdelete(){
if (!isselected()) return;
document.forms["listmsgs"].elements["action"].value="del";
document.forms["listmsgs"].submit();
}

function clickdelete_ip(){
if (!isselected())
{
window.open ('msg.asp?msg=请先选择要删除的ＩＰ地址！','','');
return;
}
document.forms["listmsgs"].elements["action"].value="alarm";
document.forms["listmsgs"].submit();
}

//函数名：check_time
//功能介绍：检查日期是否为大于比较的日期
//参数说明：check_time要检查的时间，flag_time比较的日期，这两个参数必须是：“yyyy-mm-dd hh:mm:ss”或“yyyy-mm-dd”格式的
//check_flag=年:判断到年,=月:判断到月,=日:判断到日,,=时:判断到小时,=分:判断到分,=秒:判断到秒
//如果check_flag的值都不等于以上各值,那么效果等同于秒
//返回值：-1：小于比较的时间, 0：等于比较的时间,1：大于比较的日期
function check_time(check_time ,flag_time,check_flag)
{
var check_year ,check_month ,check_day ,check_hour ,check_minute ,check_second;
var flag_year ,flag_month ,flag_day ,flag_hour ,flag_minute ,flag_second;
check_year = parseInt(check_time.substring(0,check_time.indexOf("-")),10);
check_month=parseInt(check_time.substring((check_time.indexOf("-")+1),check_time.lastIndexOf("-")),10);

if(check_time.lastIndexOf(":") == check_time.indexOf(":"))    //if(parseInt(check_time.length) <= 10)
{//“yyyy-mm-dd”格式的
  check_day = parseInt(check_time.substring((check_time.lastIndexOf("-")+1),check_time.length ),10);
  check_hour = 0;
  check_minute = 0;
  check_second = 0;
}
else
{//“yyyy-mm-dd hh:mm:ss”式的
  check_day = parseInt(check_time.substring((check_time.lastIndexOf("-")+1),check_time.indexOf(" ")),10);
  check_hour = parseInt(check_time.substring((check_time.lastIndexOf(" ")+1),check_time.indexOf(":")),10);
  check_minute = parseInt(check_time.substring((check_time.indexOf(":")+1),check_time.lastIndexOf(":")),10);
  check_second = parseInt(check_time.substring((check_time.lastIndexOf(":")+1),check_time.length ),10);
}
flag_year = parseInt(flag_time.substring(0,flag_time.indexOf("-")),10);
flag_month = parseInt(flag_time.substring((flag_time.indexOf("-")+1),flag_time.lastIndexOf("-")),10);
if(flag_time.lastIndexOf(":") == flag_time.indexOf(":"))    //if(parseInt(flag_time.length) <= 10)
{//“yyyy-mm-dd”格式的
  flag_day = parseInt(flag_time.substring((flag_time.lastIndexOf("-")+1),flag_time.length ),10);
  flag_hour = 0;
  flag_minute = 0;
  flag_second = 0;
}
else
{//“yyyy-mm-dd hh:mm:ss”格式的
  flag_day = parseInt(flag_time.substring((flag_time.lastIndexOf("-")+1),flag_time.indexOf(" ")),10);
  flag_hour = parseInt(flag_time.substring((flag_time.lastIndexOf(" ")+1),flag_time.indexOf(":")),10);
  flag_minute = parseInt(flag_time.substring((flag_time.indexOf(":")+1),flag_time.lastIndexOf(":")),10);
  flag_second = parseInt(flag_time.substring((flag_time.lastIndexOf(":")+1),flag_time.length ),10);
}
//alert("check_month=" + parseInt(check_month) + "check_day=" + parseInt(check_day) + "赌东道=" + parseInt("05"));
//alert("年=" + check_year + "月=" + check_month + "日=" + check_day + "时=" + check_hour + "分=" + check_minute + "秒=" + check_second);
//alert("年1=" + flag_year + "月1=" + flag_month + "日1=" + flag_day + "时1=" + flag_hour + "分1=" + flag_minute + "秒1=" + flag_second);
if(check_year < flag_year)
{
  return -1;
}
else
{
  if(check_year == flag_year)
  {
   if(check_flag == "年")
    return 0;
   else
   {
    if(check_month < flag_month)
    {
     return -1;
    }
    else
    {
     if(check_month == flag_month)
     {
      if(check_flag == "月")
       return 0;
      if(check_day < flag_day)
      {
       return -1;
      }
      else
      {
       if(check_day == flag_day)
       {
        if(check_flag == "日")
         return 0;
        if(check_hour < flag_hour)
        {
         return -1;
        }
        else
        {
         if(check_hour == flag_hour)
         {
          if(check_flag == "时")
           return 0;
          if(check_minute < flag_minute)
          {
           return -1;
          }
          else
          {
           if(check_minute == check_minute)
           {
            if(check_flag == "分")
             return 0;
            if(check_second < flag_second)
            {
             return -1;
            }
            else
             if(check_second == flag_second)
              return 0;
           }
          }
         }
        }
       }
      }
     }
    }
   }
  }
}
return 1;
}

-->

//=============================================================

//判断字符串中是否包含一些数据 function isCharsInBag (s, bag) {
var i;
for (i = 0; i < s.length; i++) {
var c = s.charAt(i);
if (bag.indexOf(c) == -1) return false;
}
return true;
} function checktext()
{//测试用

if (!isCharsInBag(document.all.agefrom.value,"1234567890.")){
alert("请输入正确的年龄！");
document.all.agefrom.focus();
return false;
}

//====================================VB

'函数名:MakeDate
'作者：william
'修改日期：2005-5-11
'功能说明：将日期数据转换成标准的"YYYY-MM-DD"的格式
'说明：。
'参数说明：dtm - 欲转换的日期
'返回值说明："YYYY-MM-DD"格式的日期
function MakeDate(dtm)
dim y,m,d
if dtm <> "" then
  y=year(dtm)
  m=month(dtm)
  d=day(dtm)
  MakeDate=y & "-" & m & "-" & d
end if
end function

'函数名:MakeMoney
'作者：william
'修改日期：2005-5-11
'功能说明：将数字转换成标准的"####.##"货币格式
'说明：
'参数说明：money - 欲转换的数字字符串
'返回值说明："####.##"格式的数字
function MakeMoney(money)
dim curr
if isnull(money) then
  MakeMoney = ""
else
  curr = FormatNumber(money,2,-1)
  MakeMoney = curr
end if
end function

'函数名:buildDocWord
'作者：william
'修改日期：2005-9-26
'功能说明：调用Word打印表格数据
'用法: 将<table> 的Id设为 "data"
'<input type="button" name="out_word" onClick="vbscript:buildDoc" value="导出检测跟踪表Word">
Sub buildDocWord
set table = document.all.data
  row = table.rows.length
  column = table.rows(1).cells.length

Set myDocument = CreateObject("Word.Document")

//myDocument.Application.Documents.Add theTemplate, False
myDocument.Application.Visible=True

Dim theArray(20,10000)
Dim i,j
for i=0 to row-1
  for j=0 to column-1
  theArray(j+1,i+1) = table.rows(i).cells(j).innerTEXT
  next
next
myDocument.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("测量设备动态管理跟踪表") //显示表格标题

myDocument.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")
Set rngPara = myDocument.Application.ActiveDocument.Paragraphs(1).Range
With rngPara
  .Bold = True
  .ParagraphFormat.Alignment = 1
  .Font.Name = "隶书"
  .Font.Size = 18
End With

Set rngCurrent = myDocument.Application.ActiveDocument.Paragraphs(3).Range
Set tabCurrent = myDocument.Application.ActiveDocument.Tables.Add(rngCurrent,row,column)
for i = 1 to column
  myDocument.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAfter theArray(i,1)
  myDocument.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1
next
For i =1 to column
  For j = 2 to row
   myDocument.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.InsertAfter theArray(i,j)
   myDocument.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.ParagraphFormat.alignment=1
  Next
Next

End Sub

'函数名:Refresh
'作者：william
'修改日期：2005-5-12
'功能说明：刷新指定窗口（框架）的页面
'说明：此函数暂时适用于双层框架的嵌套中的跳转，其他的情况没有测试。
'参数说明：frm - 欲刷新页面的框架
'返回值说明：无
function Refresh(frm)
response.write("<script language=""javascript"">")
response.write("window.parent.frames(""" & frm & """).location.assign(window.parent.frames(""" & frm & """).location.href);")
response.write("</script>")
end function

'函数名:RefreshParent
'作者：张敏AND姚磊
'修改日期：2005-7-13 23:59:59
'功能说明：刷新指定窗口（框架）的页面
'说明：此函数暂时适用于多层框架的嵌套中的跳转（加Parent）。
'参数说明：strParentFrmName - 欲刷新页面的框架
' intParentCount - 欲刷新页面所跳转的层数
'返回值说明：无
sub RefreshParent(strParentFrmName,intParentCount)
dim strParent
dim intCount
dim i
intCount = intParentCount
for i=1 to intCount
strParent = strParent & "parent."
next
response.write("<script language=""javascript"">")
response.write("window."+strParent+"frames(""" & strParentFrmName & """).location.assign(window."+strParent+"frames(""" & strParentFrmName & """).location.href);")
response.write("</script>")
end sub

'函数名:MakeTime
'作者：william
'修改日期：2005-5-12
'功能说明：将时间数据转换成标准的"HH:MM:SS"的格式
'说明：。
'参数说明：dtmt - 欲转换的时间
'返回值说明：符合"HH:MM:SS"格式的时间字符串
function MakeTime(dtmt)
dim h,mi,s
if dtmt <> "" then
  h=hour(dtmt)
  if h<10 then
   h="0" & cstr(h)
  end if
  mi=minute(dtmt)
  if mi<10 then
   mi="0" & cstr(mi)
  end if
  s=second(dtmt)
  if s<10 then
   s="0" & cstr(s)
  end if
  MakeTime=h & ":" & mi & ":" & s
end if
end function

'函数名:SetNull
'作者：林子栋
'修改日期：2005-5-11
'功能说明：将空值替换成非空的值
'说明：
'参数说明：NullVal - 欲转换的数字字符串
'返回值说明："####.##"格式的数字
function SetNull(NullVal,NewVal)
if isnull(NullVal) then
SetNull = NewVal
else
SetNull = NullVal
end if
end function

'函数名:SetEmptyStr
'作者：林子栋
'修改日期：2005-5-11
'功能说明：将空值替换成非空的值
'说明：
'参数说明：oldStr - 欲转换的数字字符串
'返回值说明：
function SetEmptyStr(oldStr,NewVal)
if oldStr = "" then
SetEmptyStr = NewVal
else
SetEmptyStr = oldStr
end if
end function
%>

lzid2008

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
我写的Javascript/VBScript函数，

function selectByVal(sel,val){ for(var i=0;i { if (sel.options(i).value == val) { sel.options(i).selected = true; } }}function changeDoc(sel,val,txt){ var a=sel.value; var b; txt.value = "";
复制链接

扫一扫