admin_announceset.asp

3000首FLASH源程序

<!--#include file="function.asp"-->
<%CheckAdmins
Checked=request.form("Checked")
if Checked="" then
	errmsg="<li>请选择公告项！</li>"
	call error()
	Response.End 
end if
sql="Select isChecked from Announce 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 Announce 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_AnnounceMana.asp"
%>