| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 903 人关注过本帖
标题:这个代码能不能改简单点啊??
只看楼主 加入收藏
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
以下是引用白永浩在2006-3-24 16:27:00的发言:
没有错误,
就是空白页面

空白页?也就是说你的网页是.asp的网页?如果真是这样,那引起错误的就不是这段代码了,有可能是别的了。

2006-03-24 16:34
白永浩
Rank: 1
来 自:浙江温州
等 级:新手上路
帖 子:101
专家分:0
注 册:2006-3-23
收藏
得分:0 
不是,我没有放在.asp文件里啊
那不是客户端的脚本么
放在.htm网页里的<head>里啊

欢迎光临博智皮具!www.
2006-03-24 16:45
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
以下是引用白永浩在2006-3-24 16:45:00的发言:
不是,我没有放在.asp文件里啊
那不是客户端的脚本么
放在.htm网页里的<head>里啊

网页上有文本框怎么可能空白页,把那个网页的代码贴出来看看。

2006-03-24 17:06
白永浩
Rank: 1
来 自:浙江温州
等 级:新手上路
帖 子:101
专家分:0
注 册:2006-3-23
收藏
得分: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 name="form1" method="POST" action="111.asp">

<p>姓名:<input type="text" name="textfield" size="20"></p>

<p>性别:<input type="text" name="textfield" size="20"></p>

<p>公司名称:<input type="text" name="textfield" size="20"></p>

<p><input type="button" value="按钮" name="B1"><input type="reset" value="全部重写" name="B2"></p>


</form>

</body>

</html>


欢迎光临博智皮具!www.
2006-03-24 17:26
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
回复:(白永浩)这个代码能不能改简单点啊??
<script language=vbscript >
<!--
Function B1_Click()
Dim isNull
Dim i
isNull="F"
For i=0 To document.form1.textfield.length-1

IF document.form1.textfield(i).value="" Then
isNull="T"
End IF
Next
IF isNull="T" Then
Msgbox "带*的不能为空!"
Else
'frmtmp.submit
End IF
End Function
-->
</script>

<form name="form1" method="POST" action="111.asp">

<p>姓名:<input type="text" name="textfield" size="20"></p>

<p>性别:<input type="text" name="textfield" size="20"></p>

<p>公司名称:<input type="text" name="textfield" size="20"></p>

<p><input type="button" value="按钮" name="B1" OnClick="B1_Click()
" ><input type="reset" value="全部重写" name="B2"></p>


</form>

这样写试试。

[此贴子已经被作者于2006-3-24 17:48:23编辑过]

2006-03-24 17:37
白永浩
Rank: 1
来 自:浙江温州
等 级:新手上路
帖 子:101
专家分:0
注 册:2006-3-23
收藏
得分:0 

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


欢迎光临博智皮具!www.
2006-03-24 18:20
白永浩
Rank: 1
来 自:浙江温州
等 级:新手上路
帖 子:101
专家分:0
注 册:2006-3-23
收藏
得分:0 

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

欢迎光临博智皮具!www.
2006-03-24 18:26
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
得分:0 

<html>
<head>
<script language=vbscript>
<!--
Function Form_Sub(ArrayStr)
'ArrayStr = 要检测的元素组成的字符串
Dim str
str = split(ArrayStr,",")
for i = 0 to UBound(str)
if document.all(str(i)).value="" Then
Msgbox "带*的不能为空!"
exit for
end if
Next
End Function
//-->
</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 name="form1" method="POST" action="111.asp">
<p>姓名:<input type="text" name="textfield1" size="20"></p>
<p>性别:<input type="text" name="textfield2" size="20"></p>
<p>公司名称:<input type="text" name="textfield3" size="20"></p>
<p><input type="button" value="按钮" name="B1" OnClick="Form_Sub('textfield1,textfield2')"><input type="reset" value="全部重写" name="B2"></p>
</form>

</body>

</html>


专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2006-03-24 19:55
白永浩
Rank: 1
来 自:浙江温州
等 级:新手上路
帖 子:101
专家分:0
注 册:2006-3-23
收藏
得分:0 
谢谢版主~~~
谢谢yms123~~~~~
其实你们的代码都是对的
是我搞错了
罪过!罪过^^^^
我应该把按钮改成"提交"的
input type="submit" value="按钮" name="B1" OnClick="B1_Click()

欢迎光临博智皮具!www.
2006-03-24 20:36
快速回复:这个代码能不能改简单点啊??
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.050122 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved