dim frmtmp
set frmtmp=document.form1
if (frmtmp.textfield.value="")or( frmtmp.textfield2.value="")or(frmtmp.textfield3.value="")or(frmtmp.textfield5.value="")or(frmtmp.textfield6.value="")or(frmtmp.textfield7.value="") then
msgbox "带*的不能为空!"
else
frmtmp.submit
end if
能不能把三四两句用什么办法精简一下
请各位高手帮帮忙~~~~

这些textfield应该可以做成控件数组，也就是所有文本框的name都等于textfield
简化后就可以写
Dim frmtmp
Set frmtmp=document.form1
Dim Null
Dim i
Null="F"
For i=0 To UBound(frmtmp.textfield)-1
IF frmtmp.textfield(i).value="" Then
Null="T"
End IF
Next
IF Null="T" Then
Msgbox "带*的不能为空!"
Else
frmtmp.submit
End IF

哦~~~
懂了,谢谢咯~~~~

???
又不懂了
我都照做了 把文本框都叫一个名了
怎么不行了呢?

没有什么好的办法

Dim frmtmp
Set frmtmp=document.form1
Dim Null
Dim i
Null="F"
For i=0 To frmtmp.textfield.length-1
IF frmtmp.textfield(i).value="" Then
Null="T"
End IF
Next
IF Null="T" Then
Msgbox "带*的不能为空!"
Else
frmtmp.submit
End IF
刚才写错了，这样写就可以循环了。

还是不行~~
你的思路我懂
可是不知道哪里有问题
还是不行
再帮帮忙吧~~~~~~~

还不行？什么问题，有没有错误提示(比如如果有FrontPage软件网页在预览模式中就可以对代码进行调试，有错误就会弹出错误窗口写有错误信息。)

没有错误,
就是空白页面

不是空白页面
就是没有反应