一个遍历字符串的问题

[xulovewei]

请教如何判断在用户输入自己的邮箱后判断有没有@
谢谢！！！！

[zqfleaf]

strmail="[e-mail]"
for i = 1 to len(strmial)
if mid(strmail,i,1) = "@" then
exit for
end if
next
if i <= len(strmail) then
msgbox "有"
else
msgbox "没有"
end if

[iStringTheory]

<script>
function IndexDemo(str2){
var str1
str1=document.all.txtMail.value //用户输入email地址
var s = str1.indexOf(str2);
if(s==-1)
alert('没有找到@');
else
alert('找到@！');
return(s);
}
</script>

<input type="text" id="txtMail" onchange="IndexDemo('@')">

[huibozhang]

pos=instrrev(str,"@",-1)
返回false 就是没有了 返回数字就是在字符串中的位置