急..循环问题
dim str,j
j=1
str=request("send")
new_value=Split(str, ",", -1, 1)'Split函数
for i=0 to UBound(new_value) 'UBound函数 (自己了解下用法,主要用到这两个函数,和一个FOR循环)
temp_value=trim(new_value(i))
set rs=server.CreateObject("adodb.recordset")
rs.open "select a.contactman_mobile,b.group_id from contactman_info a join contactman_group b on a.contactman_id=b.contactman_id and group_id in (select group_id from group_info where group_name='"&temp_value&"'and userautoid='"&session("id")&"')",conn,3,2
While Not rs.EOF
set rs1=server.CreateObject("adodb.recordset")
sql1="insert into sendsms(send_content,UserAutoID,send_telno) values('"& content &"','"&session("id") &"','"&rs("contactman_mobile") &"')"
rs1.open sql1,conn,3,2
rs.movenext
wend
j=j+1
next
response.Write"<script lanaguage='javascript'>{window.alert('发送成功!');history.go(-1)}</script>"
response.End
%>
我这个只能插入最后一层for 循环得到的值,请高手帮忙.....
插入的是for到最后一个值的时,执行的操作