admin_researchset.asp

3000首FLASH源程序

<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<%CheckAdmins
Checked=request.form("Checked")
if Checked="" then
	errmsg="<li>请选择调查项！</li>"
	call error()
	Response.End 
end if
set rs=server.createobject("adodb.recordset")
sql="Select isChecked from research where IsChecked=true"
rs.open sql,conn,1,3
if not rs.eof then
	do while not rs.eof
		rs("IsChecked")=false
	rs.movenext
	loop
end if
rs.close

sql="Select IsChecked from research where ID="&Checked
rs.open sql,conn,1,3
if not rs.EOF then
	do while not rs.EOF 
		rs("isChecked")=true
	rs.MoveNext 
	loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "admin_ResearchMana.asp"
%>