如何遍历页面中的所有单行输入框对象

来源:互联网 发布:snip for windows 编辑:程序博客网 时间:2024/05/02 17:40
js脚本:

function TextClear()
{
var mm = document.getElementsByTagName("input").length ;
for(var i=0;i<mm;i++)
{
var dd = document.getElementsByTagName("input").item(i);
if(dd.type == "text")
{
dd.value="";
}
}
}
</script>


vbscript脚本:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>

<BODY>
<FORM METHOD=POST ACTION="" name="Form1">
<INPUT TYPE="text" NAME="a" value="sdfsf">
<INPUT TYPE="text" NAME="a1" value="sdfsf">
<INPUT TYPE="text" NAME="a2" value="sdfsf">
<INPUT TYPE="text" NAME="a3" value="sdfsf">
<INPUT TYPE="text" NAME="a4" value="sdfsf">
<INPUT TYPE="text" NAME="a5" value="sdfsf">
<SELECT NAME="cc"></SELECT>
<INPUT TYPE="button" value=button name=button1 onclick="allcheck_click()">
</FORM>
</BODY>
</HTML>
<SCRIPT LANGUAGE="vbScript">
<!--
function allcheck_click()
  For Each Obj In Form1
    //alert(Obj.type)
    if Obj.type = "text" then
      set myTextBOx = Obj
      myTextBOx.value = Empty
    end if
  next
end function
//-->
</SCRIPT>