www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_announceset.asp

    <%CheckAdmin2%>
<!--#include file="const.asp"-->
<%
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 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"
%>