admin_sitecolorset.asp

来自「庐江二中」· ASP 代码 · 共 35 行

<!--#include file="session.asp"-->
<%checkAdmin3%>
<!--#include file="conn.asp"-->
<%
checked=request.form("checked")
if checked="" then
errmsg="<li>请选择方案项！</li>"
call error()
Response.End
end if

sql="Select ischecked from SiteColor where Ischecked=1"
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 SiteColor 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_SiteColorMana.asp"
%>