<!--
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;
}
function only_num_input(input,isint)
{
var keycode=event.keyCode;
//alert(keycode);
if( (keycode>=48 && keycode <=57)||(keycode>=96 && keycode <=105))
{
return;
}
if(keycode==8 || keycode==46 || keycode==36 || keycode==35 || keycode==9)
{
return;
}
if(isint==1)
{
event.returnValue=false;
return;
}
if(keycode==110 || keycode==190)
{
if(!fucCheckNum(input.value))
event.returnValue=false;
return;
}
event.returnValue=false;
}
/*
function isnum(str)
{
for(var i=0;i<str.length;i++)
{
if(str.charAt(i)<"0" || str.charAt(i)>"9")
return 0;
}
return 1;
}*/
//如果要判断整数用VBStript的VarType 函数
//函数名:fucCheckNUM_Int
//功能介绍:检查是否为整数
//参数说明:要检查的数字
//返回值:1为是整数,0为不是整数或者不是数字
function fucCheckNum_Int(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( i==0 && NUM.charAt(0)=='-')
continue;
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是错误的
function chknbr(num,opt1,opt2)
{
var i=num.length;
var status;
status=0;
if((opt2!=1) && (num.charAt(0)=='-'))
return 0;
if(num.charAt(i-1)=='.')
return 0;
for(j=0;j<i;j++)
{
if(num.charAt(j)=='.')
status++;
if(status>1)
return 0;
if(num.charAt(j)<'0' || num.charAt(j)>'9')
{
if(i>1)
{
if(((opt1==0) || (num.charAt(j)!='.')) && (j!=0))
return 0;
}
else
{
return 0;
}
}
}
return 1;
}
//功能说明:检察字符串里是否是合法的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 CutRepeatStr(sString,strSep)
{
var strTmp,i,j,k,count,newStr;
var tmp= new Array();
strTmp=sString.split(strSep);
j=0;
for(i=0;i<strTmp.length;i++)
{
if(i==0)
{
tmp[0]=Trim(strTmp[0]);
j++;
}
else
{
count=0;
for(k=0;k<tmp.length;k++)
{
newStr=Trim(strTmp[i]);
if(tmp[k]==newStr)
{
count=1;
break;
}
}
if(count==0)
{
tmp[j]=newStr;
j++;
}
}
}
SortNum(tmp);
strTmp="";
strTmp=tmp.join(strSep);
//alert(strTmp);
return strTmp;
}
function SortNum(strTmp)
{
var i,j,minnum;
for(i=0;i<strTmp.length;i++)
{
for(j=i+1;j<strTmp.length;j++)
{
if( parseInt(strTmp[i],10) > parseInt(strTmp[j],10) )
{
minnum=strTmp[j];
strTmp[j]=strTmp[i];
strTmp[i]=minnum;
}
}
}
}
<!-- 删除选中邮件 -->
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=请先选择要删除的IP地址!','','');
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
%>