这个代码能不能改简单点啊?? - ASP技术论坛

问题点数：0 回复次数：10

这个代码能不能改简单点啊??

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
能不能把三四两句用什么办法精简一下
请各位高手帮帮忙~~~~

搜索更多相关主题的帖子: 代码　

第 2 楼

得分:0

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

欢迎光临博智皮具！www.

第 3 楼

得分:0

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

欢迎光临博智皮具！www.

第 4 楼

得分:0

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

欢迎光临博智皮具！www.

第 5 楼

得分:0

没有错误,
就是空白页面

欢迎光临博智皮具！www.

第 6 楼

得分:0

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

欢迎光临博智皮具！www.

第 7 楼

得分:0

不是,我没有放在.asp文件里啊
那不是客户端的脚本么
放在.htm网页里的<head>里啊

欢迎光临博智皮具！www.

第 8 楼

得分:0

不好意思
我刚才说错了
不是空白的
是有文本框的
但是我按了按钮它没反应
<html>
<head>
<script language=vbscript event="onclick" for="B1">
<!--
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
-->
</script>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>姓名</title>
</head>

<body>

</form>

</body>

</html>

欢迎光临博智皮具！www.

第 9 楼

得分:0

嘿!
你真厉害
可以了!
谢谢~~~~

欢迎光临博智皮具！www.

第 10 楼

得分:0

错误是提示了
可是表单的内容不能提交了~~~~~

欢迎光临博智皮具！www.