下面是源代码 if userall="yes" then '发给所有人
str="select Item1 from [dode_user] where Item11 = 1 and Item1<>'"&sender&"'"
set rs=conn.execute(str)
revicer=""
do while not rs.eof
revicer=revicer&rs("Item1")&"|"
rs.movenext
loop
dd=date
tt=time
rs.close
sql="select * from dode_news"
rs.Open sql,conn,1,3
rs.addnew
rs("Item1")=title
rs("body")=text_all
rs("ItemEditDate")=dd
rs("Item2")=sender
rs("Item3")=revicer
rs("SortID")=SortID
rs.update
id=rs("ItemID")
session("up_file_name")=""

else '发给部分人
sele_name=trim(request.form("sele_name"))
if sele_name<>"" then
revicer=revicer&sele_name '取出部门人
bumeng_count=session("bumeng_count")
b=1
do while b<=bumeng_count
bumeng_n="bumeng"&cstr(b)
bumeng_str=request.form(bumeng_n)
str="select Item1 from [dode_user] where Item11='"&sender&"' and Item1='"&bumeng_str&"'"
set rs=conn.execute(str)
do while not rs.eof
revicer=revicer&rs("Item1")&"|"
rs.movenext
loop
b=b+1
loop
'取出指定人
sele_name=trim(request.form("sele_name"))
if sele_name<>"" then
revicer=revicer&sele_name
if right(revicer,1)<>"|" then revicer=revicer&"|" end if
end if
'选定指定人
if right(revicer,1)<>"|" then revicer=revicer&"|" end if
end if
'选定指定人
see=request.querystring("see")
if see="user_all" then
user_all=session("user_all")
b=1
do while b<user_all
se_namen="se_name"&cstr(b)
se_str=request.form(se_namen)
if se_str<>"" then
revicer=revicer&se_str&"|"
end if
b=b+1
loop
end if

dd=date
tt=time
rs.close
sql="select * from dode_news"
rs.Open sql,conn,1,3
rs.addnew
rs("Item1")=title '标题
rs("body")=text_all'内容
rs("ItemEditDate")=dd'添加时间
rs("Item2")=sender'发布者
rs("Item3")=revicer'签收单位
rs("SortID")=SortID
rs.update
id=rs("ItemID")
session("up_file_name")=""
end if
rs.Close '创建签收表
我要跳过取出部门人这段，直接运行取出指定人这段代码

功能意思是，我从签个文件选取到指定签收人，然后创建签收人到表dode_news下的Item3字段 以 | 隔开，并复制Item3字段下以|隔开的签收人到dode_qdgn表里，Item3字段里的每个|隔开的签收人 复制为一条

求帮帮忙啊，

就没个人？论坛、