怎么出现这样得问题呢？？？

badfly 2004-01-12 09:26:13

出现运行期错误
是否纠正该错误
document.frmsearchworkplan不是对象

这是怎么回事
我上网得时候也会碰到类似得错误
这次是我自己做的网站出现了这样得错误
下面是我得部分源码
<script language="javascript">
function checkform()
{
document.frmsearchworkplan.update=1;
document.frmsearchworkplan.action="test.asp"
document.frmsearchworkplan.submit;
document.all('imgName').value=this.name
}
</script>

...全文

25 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

badfly 2004-01-15

打赏
举报

有人么？
帮我看看

badfly 2004-01-13

打赏
举报

可以查询了
可是修改好象不行了

deleteall8 2004-01-13

打赏
举报

我懂你的意思了，你是想知道是由“查询数据”提交的，还是“修改数据”提交的吧。
那就直接这样写
frmsearchworkplan.imgName.value=this.name

接受页
if trim(request.form("imgName"))=cmdchaxun then
...
else
...
end if

badfly 2004-01-13

打赏
举报

这句是判断点击的哪个input
我是从这个帖子看的
http://expert.csdn.net/Expert/topic/2552/2552336.xml?temp=6.817263E-02
：）

deleteall8 2004-01-13

打赏
举报

document.all('imgName').value=this.name
你这句话起什么作用
你这样写
frmsearchworkplan.imgName.value=某个值

badfly 2004-01-13

打赏
举报

出现了别的错误
是不是document.all('imgName').value=this.name这条语句要改呢？
现在第一次点击查询的时候出现以前的错误
点击修改的时候没法没有反应
我想是应该修改document.all('imgName').value=this.name
怎么改呢？

deleteall8 2004-01-13

打赏
举报

函数你这样写：
<script language="javascript">

</script>

badfly 2004-01-13

打赏
举报

我添加名字了
可是还是有错误
是对象不支持此属性或方法

deleteall8 2004-01-12

打赏
举报

把整个页面的代码贴出来

badfly 2004-01-12

打赏
举报

还是不行啊
还是那个问题

deleteall8 2004-01-12

打赏
举报

deleteall8 2004-01-12

打赏
举报

deleteall8 2004-01-12

打赏
举报

<form method="POST" action="">
你的form没写名字啊!
<form method="POST" name="frmsearchworkplan" action="">

badfly 2004-01-12

打赏
举报

<script language="javascript">

</script>

<form method="POST" action=""><p>
<input type="hidden" name="update" value=0>
<%
sdate=request.form("yearselect")+"-"+request.form("monthselect")+"-"+request.form("dayselect")
if request("imgname")<>"cmdxiugai" then
''定义conn连接
dim conn
Set conn=Server.CreateObject("ADODB.connection")
conn.open "Provider=SQLOLEDB;User ID=wzh;PASSWORD=wzh;SERVER=(local);DataBase=jy"
''定义rs连接
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from 动物数据 where 地市='山东省' and 日期='"+sdate+"'"
rs.open sql,conn,1,1
if not rs.eof then
for i = 0 to rs.fields.count - 1%>
<%response.write rs.fields(i).name%>:
<input type="text" name="txt<%=i%>" value=<%=rs.fields(i)%>><br>
<%next
rs.close
set rs=nothing
else%>
<%
response.write "您所查询的数据不存在！"%><br><br>
<%
end if
%>
<%else
dim conn2
Set conn2=Server.CreateObject("ADODB.connection")
conn2.open "Provider=SQLOLEDB;User ID=wzh;PASSWORD=wzh;SERVER=(local);DataBase=jy"
set rs=Server.CreateObject("ADODB.Recordset")
sql="update 动物数据 set 检疫数='"&request.form("txt2")&"' where 地市='山东省' and 日期='"+sdate+"'"'不正确
conn2.execute sql
set rs=nothing
set conn2=nothing
response.write request.form("txt2")
response.write sdate
Response.write "<script>alert ('修改成功！')</script>"
end if%>
<%if request("update")=1 then%>
<select size="1" name="yearselect">
<option selected><%=request("yearselect")%></option>
</select>年<select size="1" name="monthselect">
<option selected><%=request("monthselect")%></option>
</select>月<select size="1" name="dayselect">
<option selected><%=request("dayselect")%></option>
</select>日
<%else%>
<select size="1" name="yearselect">
<option selected><%=year(date())%></option>
<option><%=year(date())-1%></option>
</select>年<select size="1" name="monthselect">
<%for i=1 to 12%>
<option selected value=<%=i%>><%=i%></option>
<%next%>
</select>月<select size="1" name="dayselect">
<%for i=1 to 31%>
<option selected value=<%=i%>><%=i%></option>
<%next%>
</select>日
<%end if%><input type="submit" value="查询数据" name="cmdchaxun" onclick="checkform()">
<input type="submit" name="cmdxiugai" value="修改数据" onclick="checkform()">
<input type=hidden name=imgName id=imgName>
</form>