为空或不是对象问题,求救 if(eval("document.myform.active" + cardno + "[0]").checked) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var memo=eval("document.myform.memo" + cardno + ".value");==>var memo = document.myform.elements["memo" + cardno]; //不要动不动就用 evalif(typeof memo!="undefined") alert(memo.value); 和eval无关,是取下拉框对象的方法错误,不能使用document.form.selectname[i]方式来取得下拉框选项对象。而是使用document.form.selectname.options[i]来取得下拉框选项对象,因此需要做如下更改:if(eval("document.myform.active" + cardno + "[0].checked")) ==》if(eval("document.myform.active" + cardno + ".options[0].checked"))注意,没有检查其他地方是否还有问题,但是“错误document.myform.active23456788.0 为空或不是对象”肯定是这个原因引起的。 都不行啊,我的全部代码是这样的:<!--#include file="Connections/connpa.asp" --><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><%operatorname = Session("operatorname")If operatorname = null or operatorname = "" Then Response.Redirect("reenter.asp")End If %><STYLE>body,td,.p1,.p2,.formfont{font-family:arial}.f16{font-size:16px}.f14{FONT-SIZE:14px}.f10{font-size:10.5pt}.c{COLOR:#666666}a.c:visited{color:#660066}.p1{LINE-HEIGHT:120%;margin-left:-12pt}.p2{width=100%;LINE-HEIGHT:120%;margin-left:-12pt}.formfont{font-size:16px}TD{FONT-SIZE:9pt;LINE-HEIGHT:18px}.t{COLOR:#0000cc;TEXT-DECORATION:none}A.t:hover{TEXT-DECORATION:underline}.fy{word-spacing:4px;FONT-SIZE:9pt}</STYLE><html><script language="javascript">function checkval(cardno){ operator=document.myform.operator.value; if(operator=='') { alert("操作员还没有登录!"); window.location="login.asp"; } else { if(eval("document.myform.active" + cardno + "[0].checked")) var active="Y"; else var active="N"; var linked=eval("document.myform.linked" + cardno + ".value"); var reason=eval("document.myform.reason" + cardno + ".value"); var memo=eval("document.myform.memo" + cardno + ".value"); window.navigate("result2.asp?cardno="+cardno+"&linked="+linked+"&active="+active+"&reason="+reason+"&memo="+memo+"&operator="+operator); } }</script><head><title>未激活卡催打信息</title></head><body><% set rs=server.createobject("adodb.recordset") sql="select * from unactived_test_info where occupant='" & operatorname & "' ORDER BY opendate, cardno" rs.PageSize = 20 '这里设定每页显示的记录数 rs.CursorLocation = 3 rs.Open sql,con,0,2,1 '这里执行你查询SQL并获得结果记录集 pre = true last = true page = trim(Request.QueryString("page")) if len(page) = 0 then intpage = 1 pre = false else if cint(page) =< 1 then intpage = 1 pre = false else if cint(page) >= rs.PageCount then intpage = rs.PageCount last = false else intpage = cint(page) end if end if end if if not rs.eof then rs.AbsolutePage = intpage end if if rs.RecordCount>0 then response.write "<center><form name='myform' action='' method=post><input type='hidden' name='operator' value='"&operatorname&"'>" response.write "<font size='4'>有 " &rs.RecordCount& " 条记录待处理</font><font size='2'> (操作员:" &operatorname& ")</font>" response.write "<table width=100% border=0 cellspacing='0'>" response.write "<tr><td align=center width='20%'><b>卡号</b></td>" response.write "<td align=center width='10%'><b>姓名</b></td>" response.write "<td align=center width='10%'><b>发卡日期</b></td>" response.write "<td align=center width='10%'><b>接通</b></td>" response.write "<td align=center width='10%'><b>激活</b></td>" response.write "<td align=center width='15%'><b>原因</b></td>" response.write "<td align=center width='20%'><b>备注</b></td>" response.write "<td align=center width='5%'> </td>" response.write "</tr>" for i=1 to rs.PageSize if rs.EOF or rs.BOF then exit for if i Mod 2 =1 then cellcolor="#D2E9FF" else cellcolor="#FFFFFF" end if%> <tr> <td align=center width="20%" bgcolor="<%=cellcolor%>"><font size="2"><%=rs("cardno")%></font></td> <td align=center width="10%" bgcolor="<%=cellcolor%>"><%=rs("name")%></td> <td align=center width="10%" bgcolor="<%=cellcolor%>"><%=left(rs("opendate"),8)%></td> <td align=center width="10%" bgcolor="<%=cellcolor%>"> <select name="linked<%=rs("cardno")%>"> <option value="***" selected>===</option> <option value="Y" >是</option> <option value="N" >否</option> <option value="C" >待联系</option> </select> </td> <td align=center width="10%" bgcolor="<%=cellcolor%>"><input type="radio" value="Y" name="active<%=rs("cardno")%>">是<input type="radio" value="N" checked name="active<%=rs("cardno")%>">否</td> <td align=center width="15%" bgcolor="<%=cellcolor%>"> <select name="reason<%=rs("cardno")%>"> <option value="***" selected>===</option> <option value="A1" >A1卡片/密函未达</option> <option value="A2" >A2用卡环境不理想</option> <option value="A3" >A3还款不方便</option> <option value="B1" >B1对卡种、额度不满</option> <option value="B2" >B2年费异议</option> <option value="B3" >B3积分活动久未推出</option> <option value="B4" >B4开卡礼活动限制多</option> <option value="B5" >B5特惠商户少</option> <option value="B6" >B6暂无购买需求</option> <option value="B7" >B7不清楚确认收妥手续办理及用途</option> <option value="C1" >C1喜欢用现金、储蓄卡支付</option> <option value="C2" >C2使用他行信用卡更便利(请备注便利点)</option> <option value="C3" >C3有两张以上兴业信用卡且已用一张</option> </select> </td> <td align=center width="20%" bgcolor="<%=cellcolor%>"><input type=text name="memo<%=rs("cardno")%>" value="" size="20" maxlength="100"></td> <td align=center width="5%" bgcolor="<%=cellcolor%>"><a href="javascript:checkval(<%=rs("cardno")%>);">确定</a></td> </tr><% rs.movenext next response.write "</table></center>" response.write "</form>"%> <CENTER> <table width="90%" border="0" cellpadding="0" cellspacing="0" borderColorLight=#808080 borderColorDark=#ffffff> <tr><% if rs.PageCount > 0 then%> <td width="13%" align="left"><b>当前页<%=intpage%>/<%=rs.PageCount%> 共<%=rs.RecordCount%>条记录</b></td><% else%> <td width="41%" align="left"><b>当前页0/0</b></td><% end if%> <td width="46%" align="right"><b><a href="view_undeal_info.asp?page=1">首页</a>| <%if pre then%> <a href="personal_deal_info.asp?page=<%=intpage -1%>">上页</a>| <%end if%><%if last then%> <a href="personal_deal_info.asp?page=<%=intpage +1%>">下页</a> |<%end if%> <a href="personal_deal_info.asp?page=<%=rs.PageCount%>">尾页</a>|转到第 <select name="sel_page" onchange="javascript:location=this.options[this.selectedIndex].value;"> <% for i = 1 to rs.PageCount if i = intpage then%> <option value="personal_deal_info.asp?page=<%=i%>" selected><%=i%></option> <%else%> <option value="personal_deal_info.asp?page=<%=i%>"><%=i%></option> <% end if next %> </select>页</b> </td> </tr> </table> </CENTER> <% else response.write "没有记录!" end if %> </body></html> 关于JS失去焦点和点击事件的问题 帮忙看下FF下不能移动 怎么让鼠标拖动div层! EXT items点击事件 动态添加option的困惑? 急急急!!!,获取鼠标点击的字符串,在线等 在一个INPUT中有默认的value值,当鼠标单机时清空value值,应该怎么写? 怎么在页面上单击鼠标时根据鼠标指针样式来判断执行不同代码?(有例子请进) 页面style继承问题,在线等 如何在新建一个窗口的时候禁用它右上角的关闭按钮?请帮忙 用JAVASCRIPT判断当前页面刷新还是关闭 为空或不是对象再次求救
==>
var memo = document.myform.elements["memo" + cardno]; //不要动不动就用 eval
if(typeof memo!="undefined") alert(memo.value);
if(eval("document.myform.active" + cardno + "[0].checked")) ==》
if(eval("document.myform.active" + cardno + ".options[0].checked"))
注意,没有检查其他地方是否还有问题,但是“错误document.myform.active23456788.0 为空或不是对象”肯定是这个原因引起的。
<!--#include file="Connections/connpa.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
operatorname = Session("operatorname")
If operatorname = null or operatorname = "" Then
Response.Redirect("reenter.asp")
End If
%>
<STYLE>
body,td,.p1,.p2,.formfont{font-family:arial}
.f16{font-size:16px}
.f14{FONT-SIZE:14px}
.f10{font-size:10.5pt}
.c{COLOR:#666666}
a.c:visited{color:#660066}
.p1{LINE-HEIGHT:120%;margin-left:-12pt}
.p2{width=100%;LINE-HEIGHT:120%;margin-left:-12pt}
.formfont{font-size:16px}
TD{FONT-SIZE:9pt;LINE-HEIGHT:18px}
.t{COLOR:#0000cc;TEXT-DECORATION:none}
A.t:hover{TEXT-DECORATION:underline}
.fy{word-spacing:4px;FONT-SIZE:9pt}
</STYLE><html>
<script language="javascript">
function checkval(cardno)
{
operator=document.myform.operator.value;
if(operator=='')
{
alert("操作员还没有登录!");
window.location="login.asp";
}
else
{
if(eval("document.myform.active" + cardno + "[0].checked"))
var active="Y";
else var active="N";
var linked=eval("document.myform.linked" + cardno + ".value");
var reason=eval("document.myform.reason" + cardno + ".value");
var memo=eval("document.myform.memo" + cardno + ".value");
window.navigate("result2.asp?cardno="+cardno+"&linked="+linked+"&active="+active+"&reason="+reason+"&memo="+memo+"&operator="+operator);
}
}
</script>
<head>
<title>未激活卡催打信息</title>
</head>
<body>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from unactived_test_info where occupant='" & operatorname & "' ORDER BY opendate, cardno"
rs.PageSize = 20 '这里设定每页显示的记录数
rs.CursorLocation = 3
rs.Open sql,con,0,2,1 '这里执行你查询SQL并获得结果记录集
pre = true
last = true
page = trim(Request.QueryString("page"))
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
if rs.RecordCount>0 then
response.write "<center><form name='myform' action='' method=post><input type='hidden' name='operator' value='"&operatorname&"'>"
response.write "<font size='4'>有 " &rs.RecordCount& " 条记录待处理</font><font size='2'> (操作员:" &operatorname& ")</font>"
response.write "<table width=100% border=0 cellspacing='0'>"
response.write "<tr><td align=center width='20%'><b>卡号</b></td>"
response.write "<td align=center width='10%'><b>姓名</b></td>"
response.write "<td align=center width='10%'><b>发卡日期</b></td>"
response.write "<td align=center width='10%'><b>接通</b></td>"
response.write "<td align=center width='10%'><b>激活</b></td>"
response.write "<td align=center width='15%'><b>原因</b></td>"
response.write "<td align=center width='20%'><b>备注</b></td>"
response.write "<td align=center width='5%'> </td>"
response.write "</tr>" for i=1 to rs.PageSize
if rs.EOF or rs.BOF then exit for
if i Mod 2 =1 then
cellcolor="#D2E9FF"
else cellcolor="#FFFFFF"
end if%>
<tr>
<td align=center width="20%" bgcolor="<%=cellcolor%>"><font size="2"><%=rs("cardno")%></font></td>
<td align=center width="10%" bgcolor="<%=cellcolor%>"><%=rs("name")%></td>
<td align=center width="10%" bgcolor="<%=cellcolor%>"><%=left(rs("opendate"),8)%></td>
<td align=center width="10%" bgcolor="<%=cellcolor%>">
<select name="linked<%=rs("cardno")%>">
<option value="***" selected>===</option>
<option value="Y" >是</option>
<option value="N" >否</option>
<option value="C" >待联系</option>
</select>
</td>
<td align=center width="10%" bgcolor="<%=cellcolor%>"><input type="radio" value="Y" name="active<%=rs("cardno")%>">是<input type="radio" value="N" checked name="active<%=rs("cardno")%>">否</td>
<td align=center width="15%" bgcolor="<%=cellcolor%>">
<select name="reason<%=rs("cardno")%>">
<option value="***" selected>===</option>
<option value="A1" >A1卡片/密函未达</option>
<option value="A2" >A2用卡环境不理想</option>
<option value="A3" >A3还款不方便</option>
<option value="B1" >B1对卡种、额度不满</option>
<option value="B2" >B2年费异议</option>
<option value="B3" >B3积分活动久未推出</option>
<option value="B4" >B4开卡礼活动限制多</option>
<option value="B5" >B5特惠商户少</option>
<option value="B6" >B6暂无购买需求</option>
<option value="B7" >B7不清楚确认收妥手续办理及用途</option>
<option value="C1" >C1喜欢用现金、储蓄卡支付</option>
<option value="C2" >C2使用他行信用卡更便利(请备注便利点)</option>
<option value="C3" >C3有两张以上兴业信用卡且已用一张</option>
</select>
</td>
<td align=center width="20%" bgcolor="<%=cellcolor%>"><input type=text name="memo<%=rs("cardno")%>" value="" size="20" maxlength="100"></td>
<td align=center width="5%" bgcolor="<%=cellcolor%>"><a href="javascript:checkval(<%=rs("cardno")%>);">确定</a></td>
</tr>
<%
rs.movenext
next response.write "</table></center>"
response.write "</form>"
%>
<CENTER>
<table width="90%" border="0" cellpadding="0" cellspacing="0" borderColorLight=#808080 borderColorDark=#ffffff>
<tr>
<%
if rs.PageCount > 0 then
%>
<td width="13%" align="left"><b>当前页<%=intpage%>/<%=rs.PageCount%> 共<%=rs.RecordCount%>条记录</b></td>
<%
else
%>
<td width="41%" align="left"><b>当前页0/0</b></td>
<%
end if
%>
<td width="46%" align="right"><b><a href="view_undeal_info.asp?page=1">首页</a>|
<%if pre then%>
<a href="personal_deal_info.asp?page=<%=intpage -1%>">上页</a>| <%end if%>
<%if last then%>
<a href="personal_deal_info.asp?page=<%=intpage +1%>">下页</a> |<%end if%>
<a href="personal_deal_info.asp?page=<%=rs.PageCount%>">尾页</a>|转到第
<select name="sel_page" onchange="javascript:location=this.options[this.selectedIndex].value;">
<%
for i = 1 to rs.PageCount
if i = intpage then%>
<option value="personal_deal_info.asp?page=<%=i%>" selected><%=i%></option>
<%else%>
<option value="personal_deal_info.asp?page=<%=i%>"><%=i%></option>
<%
end if
next
%>
</select>页</b>
</td>
</tr>
</table>
</CENTER>
<%
else
response.write "没有记录!"
end if
%>
</body>
</html>