关于网页中的编辑框(100分)

  • 主题发起人 主题发起人 thewzy
  • 开始时间 开始时间
T

thewzy

Unregistered / Unconfirmed
GUEST, unregistred user!
我想再网页上放置两个编辑框,其中一个智要求输入数字,另一个只要求输入日期,请问在jBuilder环境下如何实现?谢谢各位的参与。
 
这与Jbuilder无关,是html+javascript的问题,
就不帮你去搜索答案了。
 
你用dreamweaver作吧。
 
<SCRIPT language=JavaScript>
<!--
//判断输入数字
function isNumeric(s)
{
var i;
var c;
vardo
t;
do
t=0;
for(i=0;i<s.length&amp;&amp;s.charAt(i)==" ";i++);
if(i>=s.length)return true;
c=s.charAt(i);

if(c=="-"||c=="+")i++;
if(i>=s.length)return false;
for(;i<s.length;i++)
{
c=s.charAt(i);
if(c<'0'||c>'9')
{
if(c!='.')return false;
else
do
t++;
}
}
if(dot>1)return false
return true;

}
//输入日期
function IsDate(DateString , Dilimeter)
{
if (DateString==null) return false;
if (Dilimeter=='' || Dilimeter==null)
Dilimeter = '-';
var tempy='';
var tempm='';
var tempd='';
var tempArray;
if (DateString.length<9 || DateString.length>11)
return false;

tempArray = DateString.split(Dilimeter);
if (tempArray.length!=3)
return false;
if (tempArray[0].length==4)
{
tempy = tempArray[0];
tempm = tempArray[1];
tempd = tempArray[2];
}
else
{
tempy = tempArray[2];
tempd = tempArray[1];
tempm = tempArray[0];
}
var tDateString = tempy + '/'+tempm + '/'+tempd+' 8:0:0';

var tempDate = new Date(tDateString);

if (isNaN(tempDate))
return false;

// if (((tempDate.getUTCFullYear()).toString()==tempy) &amp;&amp;
(tempDate.getMonth()==parseInt(tempm)-1) &amp;&amp;
(tempDate.getDate()==parseInt(tempd)))

//alert(tempDate.getMonth()+"c"+tempDate.getDate());

if (((tempDate.getUTCFullYear()).toString()==tempy) &amp;&amp;
(tempDate.getMonth()==tempm-1) &amp;&amp;
(tempDate.getDate()==tempd))
{
return true;

}
else
{
return false;

}

}

//-->
</SCRIPT>
<input name=t01113 onchange="if (!isNumeric(this.value)) alert('不是数字')" size=20 value="20">
<input name=t01111 onchange="if (!IsDate(this.value,'/')) alert('日期不合法 合法格式yyyy/mm/dd')" size=20 value="2003/01/20">
 
谢谢大家,尤其要感谢7syw,我是一个初学者,每次看了您的答案我就知道怎么做了,十分感谢,如果可以,可否告诉我您的qq号,做个朋友如何?谢谢。小鱼儿:79240968
 
我没有QQ 只有MSN
 

Similar threads

D
回复
0
查看
824
DelphiTeacher的专栏
D
D
回复
0
查看
909
DelphiTeacher的专栏
D
后退
顶部