在线等！！！！

[lhl62301]

dim aa
aa=0
FOR EACH name IN Request.Form("rc")
aa=aa+1
NEXT
IF Cint(aa) > 10 Or CInt(aa) < 10 THEN
Response.write "<Script language=JavaScript>alert('你的选择不足10或已超过10项！')</Script>;"
Response.end
END IF
我想实现大于10或小于10时弹出提示
总是提示脚本错误
请问哪里错了？？？

[李向荣]

dim aa
aa=Request.Form("rc").Count
IF Cint(aa) > 10 Or CInt(aa) < 10 THEN
Response.write " <Script language=JavaScript >alert( '你的选择不足10或已超过10项！ ') </Script >;"
Response.end
END IF

[lhl62301]

还是不对

[李向荣]

报什么错，你最好把你要提交页面的代码也贴出来。

[hztgcl1986]

dim aa
aa=Request.Form("rc").Count
IF Cint(aa) > 10 Or CInt(aa) < 10 THEN
Response.write " <Script language=JavaScript >alert( '你的选择不足10或已超过10项！ ') </Script >;"
Response.end
END IF



各位大哥大姐们，Response.Write语句中</Script>之后，你们还加分号干啥

[littlelam]

dim  aa 
     aa=0 
     FOR EACH name IN Request.Form("rc") 
       aa=aa+1 
     NEXT 
    IF  Cint(aa)<>10 THEN
       Response.Clear 
       Response.write "<Script language=JavaScript >alert( '你的选择不足10或已超过10项！');</Script>"    
      Response.end 
    END IF 

[gray820928]

Response.write " <Script language=JavaScript >alert( '你的选择不足10或已超过10项！ '); </Script >"

[lhl62301]

提交页面
<table width="778" border="0" cellpadding="0" align="center" cellspacing="0">
<tr>
<td width="778" height="454" valign="top"><div align="center">
<script language="JavaScript" src="Cycoo_Vote.asp?top=3&id=<%=request("id")%>"></script>
</div></td>
</tr>
</table>

<!--#include file="managevote/conn.asp"-->
<%
'调用方式：<Script Language="JavaScript" SRC="manage/Cycoo_Vote.asp?top=3"></Script>
color1="#003399" '投票说明字体颜色
color2="#000000" '投票项字体颜色
color3="FF9900" '投票按钮背景颜色

dim aa
aa=0
FOR EACH name IN Request.Form("rc")
aa=aa+1
NEXT
IF Cint(aa)<>10 THEN
Response.Clear
Response.write "<Script language=JavaScript >alert( '你的选择不足10或已超过10项！');</Script>"
Response.end
END IF
Set conn=Server.CreateObject("ADODB.Connection")
conn.open ConnStr
IF Request.Form("IsSub")="YES" THEN
SS=Request.Form("SS") '投票序号
Set rs=conn.execute("Select Vote_Limit From Votelist Where ID="&SS)
Limit=Cint(rs(0))
rs.close
Vote_Ok=False
IF Limit=2 THEN
IF Request.Cookies("cycoo_vote_"&SS)="DONE" THEN
Vote_Ok=True

ELSE
Response.Cookies("cycoo_vote_"&SS) = "DONE"
Response.Cookies("cycoo_vote_"&SS).Expires = date()+1 '设置cookie的过期日
END IF
END IF

IF Vote_Ok=True THEN
Response.write "<Script language=JavaScript>alert('你今天已经投过票了\n\n请再过24小时才能投票！')</Script>;" '这里自己可以设置下面基本上都不用改了
ELSE
FOR EACH name IN Request.Form("rc")
conn.execute "Update voteanswer Set VoteResult=VoteResult+1 Where ID="&name
NEXT
Response.write "<Script language=JavaScript>alert('您已投票成功，谢谢您得参与！')</Script>;"
END IF
Response.write "<Script language=JavaScript>window.open('Cycoo_VoteView.asp?ID="&SS&"','','width=420,height=350,scrollbars=yes');window.close();</Script>"
END IF

Response.write "document.write("""
top=Cint(Request.QueryString("top"))
id=Cint(Request.QueryString("ID"))
IF top<1 THEN top=1
Set rs=conn.execute("Select Top "&top&" ID,Project,MultiSelect From VoteList Where online=True and ID="&id&" Order By ID DESC")
IF rs.eof THEN
Response.write "<font color=red>目前还没有投票项目</font>"
ELSE
Set rs2=Server.Createobject("ADODB.RecordSet")
While NOT rs.eof
Response.write "<table width=100% border=0 cellspadding=0><form method=POST action='Cycoo_Vote.asp' target=_blank><tr><td width=140><input type=hidden name=IsSub value=YES><input type=hidden name=SS value="&rs(0)&"></td></tr>"
Response.write "<tr><td align=center class=titleword colspan=4>第二届创意投资榜评选活动<br><br></td></tr>"
Response.write "<tr><td align=center colspan=4>（投票选项不得超过10个）</td></tr>"
Response.write "<tr><td align=center class=titleword colspan=4>"&rs(1)&"</td></tr>"
Response.write "<tr><td align=center colspan=4>（排名不分先后、点击查看介绍）</td></tr>"
rs2.open "Select ID,VoteContent,pic From voteanswer Where ListID="&rs(0)&" Order By ID asc",conn,1,1
i=1
While NOT rs2.eof
j=j+1
Response.write "<td><table width=150 border=0 cellspadding=0>"
Response.write "<tr><td align=center><a href=view.asp?id="&rs2(0)&" target=_blank><img src=images/"&rs2(2)&" border=0 width=140></a></td></tr>"
Response.write "<tr><td valign=top height=40 width><input type="
IF rs(2)=True THEN
Response.write "checkbox"
ELSE
Response.write "radio"
END IF
Response.write " name=rc value="&rs2(0)&"> <font color="&color2&">"&rs2(1)&"</font></td></tr></table></td>"
rs2.MoveNext
if j mod 4=0 then
response.write "</tr><tr>"
end if
i=i+1
WEND
rs2.close
Response.write "<tr><td align=center colspan=4><input type=submit value=投票 style=background-color:"&color3&">       <input type=button value=查看 style=background-color:"&color3&" onclick=javascript:window.open('Cycoo_VoteView.asp?ID="&rs(0)&"\',\'\',\'width=420,height=350,scrollbars=yes\')></td></tr>"
Response.write "</form></table><br>"
rs.MoveNext
WEND
Set rs2=nothing
END IF
Response.write """);"
rs.close
Set rs=nothing
conn.close
Set conn=nothing
%>
这是调用页面

[lhl62301]

dim aa
aa=0
FOR EACH name IN Request.Form("rc")
aa=aa+1
NEXT
IF Cint(aa)<>10 THEN
Response.Clear
Response.write "<Script language=JavaScript >alert( '你的选择不足10或已超过10项！');</Script>"
Response.end
END IF

这样写也报错啊

[fanr520]

是在IE执行《script》时错还是执行Asp时错
如果是Ａsp错可能是Request.Form("RC")不是一个数组
如果是javascript可能是要alert前加一个window.alert

[lhl62301]

执行asp

[lhl62301]

dim aa
aa=0
FOR EACH name IN Request.Form("rc")
aa=aa+1
NEXT
IF aa>10 then
Response.write "<Script language=JavaScript>alert('aaa！')</Script>;"
Response.end
END IF
这样写的话
就没有错误

[lhl62301]

IF aa >10
只有这样才不提示错误
IF aa <10
也提示错误

[lhl62301]

IF Cint(aa)>10 Or (CInt(aa)<10 and Cint(aa)>0) THEN
条件我写成这样解决了
如果aa=0我要加上aa=0的条件就不行了