怎么就没有人能回答这个问题啊

yes1111 2003-02-08 04:43:52

<%@ LANGUAGE = VBScript %>






<%

'写HTML抬头格式

Response.Write(Stringhead+Stringbody)

call showmsg(1,"选择下一环节处理人","","")

%>

<%=Request("flowid")%>

<%

FlowID=Request("FlowID")

sFlow=""

Set rsu=Server.CreateObject("ADODB.RecordSet")

'找出与之关联的流程
rsu.open "select AssociateFlowID from FlowAssociate where FlowID=" & FlowID,Connect,1,1

if rsu.RecordCount>0 then
while not rsu.EOF
sFlow=sFlow & "," & rsu("AssociateFlowID")
rsu.MoveNext
wend
end if

rsu.close

'找出各关联流程的主要处理人

sFlow=replace(sFlow,",,",",0,")

if Mid(sFlow,len(sFlow),1)="," then sFlow=Mid(sFlow,1,len(sFlow)-1)
if Mid(sFlow,1,1)="," then sFlow=Mid(sFlow,2,len(sFlow)-1)

' Response.write "SFlow:" & sFlow

rsu.open "select Flow0 from BDFlow where fid in (" & sFlow & ")",connect,1,1

gsopr=""

if rsu.RecordCount>0 then
while not rsu.EOF
opr=split(rsu("Flow0"),Chr(5))
if Ubound(opr)>=2 then
gsopr=gsopr & "," & opr(2)
' response.write opr(2) & ":opr(2)</p>"
end if

rsu.MoveNext
wend
end if

rsu.close

sgsopr=replace(gsopr,",","','")
sgsopr="'" & sgsopr & "'"

'以用户名称替换群组名称

' Response.write "select QZMC,QZYM from QZXX where QZMC in (" & sgsopr & ")"

rsu.open "select QZMC,QZYM from QZXX where QZMC in (" & sgsopr & ")",connect,1,1

sUser=""
sGroup=""

if rsu.RecordCount>0 then
while not rsu.EOF
sUser=sUser & "," & rsu("QZYM")
sGroup=sGroup & "," & rsu("QZMC")
rsu.MoveNext
wend
end if

rsu.close

spsGroup=split(sGroup,",")

For i=0 to Ubound(spsGroup)
gsopr=replace(gsopr,spsGroup(i),"")
Next

sUser=sUser & "," & gsopr

spsUser=split(sUser,",")

Response.write "<table align=center border=0 width=50% cellPadding=5 cellSpacing=1 bgColor='0066CC'>"

Response.write "<tr bgcolor=#EEF7FF><td height=70 align=center >"

For i=0 to Ubound(spsUser)
if len(trim(spsUser(i)))>0 then
if i=0 then
Response.write "<input name=resm id=resm type=checkbox value=" & spsUser(i) & " onclick=' SaveApply() ' >"& spsUser(i)
else
Response.write "<input name=resm id=resm type=checkbox value=" & spsUser(i) & " onclick='SaveApply() ' >" & spsUser(i)
end if
end if
Next

Response.write "</td></tr><tr bgcolor=#DFDFDF><td align=center ><input align=center type='submit' value='确定' >"

Response.write "</td></tr></table>"

%>

</html>

<Script language="Javascript">
function SaveApply(){
window.opener.form1.action="Apply.asp?SystemID=<%=MYSystemID%>&page=01&ttlnum=<%=ttlnum%>&flowid=<%=Request("flowid")%>&resm="+resm.value;
window.opener.form1.target="_self"; if (window.opener.submitform()==true)
window.opener.form1.submit();

//window.opener.SaveApply();
window.close();
}
</script>
如何把checkbox中的这个参数value=" & spsUser(i) & "传递到函数saveapply中的resm变量中我这样不行
各位请帮帮忙

...全文