admin_announceset.asp

庐江二中

<!--#include file="session.asp"-->
<%checkAdmin2%>
<!--#include file="conn.asp"-->
<%
checked=request.form("checked")
if checked="" then
errmsg="<li>至少选择一项公告！</li>"
call error()
Response.End
end if

sql="Select ischecked from Announce where Ischecked=1"
rs.open sql,conn,1,3
if not rs.eof then
do while not rs.eof
rs("Ischecked")=0
rs.movenext
loop
end if
rs.close
checked=replace(request.form("checked")," ","")
checkedNum=Split(checked,",")
HowLong=UBound(checkedNum)
for i=0 to HowLong
sql="Select Ischecked from Announce where ID="&checkedNum(i)
rs.open sql,conn,1,3
if not rs.EOF then
do while not rs.EOF
rs("Ischecked")=1
rs.update
rs.MoveNext
loop
end if
rs.close
next

sql="Select popup from Announce where popup=1"
rs.open sql,conn,1,3
if not rs.eof then
do while not rs.eof
rs("popup")=0
rs.movenext
loop
end if
rs.close
popup=replace(request.form("popup")," ","")
popupNum=Split(popup,",")
HowLong=UBound(popupNum)
for i=0 to HowLong
sql="Select popup from Announce where ID="&popupNum(i)
rs.open sql,conn,1,3
if not rs.EOF then
do while not rs.EOF
rs("popup")=1
rs.update
rs.MoveNext
loop
end if
rs.close
next

sql="Select board from Announce where board=1"
rs.open sql,conn,1,3
if not rs.eof then
do while not rs.eof
rs("board")=0
rs.movenext
loop
end if
rs.close
board=replace(request.form("board")," ","")
boardNum=Split(board,",")
HowLong=UBound(boardNum)
for i=0 to HowLong
sql="Select board from Announce where ID="&boardNum(i)
rs.open sql,conn,1,3
if not rs.EOF then
do while not rs.EOF
rs("board")=1
rs.update
rs.MoveNext
loop
end if
rs.close
next

set rs=nothing
conn.close
set conn=nothing
response.redirect "admin_AnnounceMana.asp"
%>