📄 flag.asp

📁 WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.
💻 ASP
字号:
<%@language=vbscript%>
<!--#include file="../../include/conn.asp"-->
<%if request("action")="save" then
did=request("did")
for i=0 to 16
b=request(i)
if b="" then b=0
a=a&","&b
next
a=right(replace(a," ",""),len(replace(a," ",""))-1)

set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_admin where "&WebSqlType&"_id="&did
rs.open sql,conn,1,3
rs(""&WebSqlType&"_flag")=a
rs.update
rs.close
set rs=nothing
response.redirect "flag.asp?action=ok"
elseif request("action")="ok" then
response.write"<meta http-equiv=""refresh"" content=""0;URL=administrator.asp"">"
response.end
end if
response.Write"<LINK href=""../css.css"" type=text/css rel=stylesheet>"
response.Write"<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
response.Write"<meta name=""GENERATOR"" content=""Microsoft FrontPage 4.0"">"
response.Write"<meta name=""ProgId"" content=""FrontPage.Editor.Document"">"
response.Write"</head><body><br>"
if request("action")="flag1" then
response.write"<meta http-equiv=""refresh"" content=""0;URL=flag.asp?action=flag&id="&request("id")&""">"
response.end
elseif request("action")="flag" then
id=request("id")
set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_admin where "&WebSqlType&"_id="&id
rs.open sql,conn,1,1
flag=rs(""&WebSqlType&"_flag")
rs.close
set rs=nothing
fla=split(flag,",")
fla0=fla(0)
fla1=fla(1)
fla2=fla(2)
fla3=fla(3)
fla4=fla(4)
fla5=fla(5)
fla6=fla(6)
fla7=fla(7)
fla8=fla(8)
fla9=fla(9)
fla10=fla(10)
response.Write"<table width='95%' height='156' border='0' align='center' cellpadding='5' cellspacing='1' bgcolor='#cccccc'>"
response.Write"<tr bgcolor='#efefef' align='center'><td colspan=5 height='30'><strong>操 作 状 态</strong></td></tr>"
response.Write"<form name='form1' method='post' action='flag.asp?action=save'>"
response.Write"<input name='did' type='hidden' value='"&request("id")&"'>"
response.Write"<tr bgcolor='#ffffff'><td height='30'><input type='checkbox' name='0' value='1'"
if fla0=1 then
response.Write" checked"
end if
response.Write" class=radio>网站信息管理</td><td><input type='checkbox' name='1' value='1'"
if fla1=1 then
response.Write" checked"
end if
response.Write" class=radio>会员管理</td><td><input type='checkbox' name='2' value='1'"
if fla2=1 then
response.Write" checked"
end if
response.Write" class=radio>圈子管理</td><td><input type='checkbox' name='3' value='1'"
if fla3=1 then
response.Write" checked"
end if
response.Write" class=radio>活动管理</td><td><input type='checkbox' name='4' value='1'"
if fla4=1 then
response.Write" checked"
end if
response.Write" class=radio>话题管理</td></tr><tr bgcolor='#ffffff'>"
response.Write"<td height='30'><input name='5' type='checkbox' class=radio id='5' value='1'"
if fla5=1 then
response.Write" checked"
end if
response.Write">招贴管理</td><td><input name='6' type='checkbox' class=radio id='6' value='1'"
if fla6=1 then
response.Write" checked"
end if
response.Write">博客管理</td><td><input name='7' type='checkbox' class=radio id='7' value='1'"
if fla7=1 then
response.Write" checked"
end if
response.Write">相册管理</td><td><input name='8' type='checkbox' class=radio id='8' value='1'"
if fla8=1 then
response.Write" checked"
end if
response.Write">评论管理</td><td height='30'><input name='9' type='checkbox' class=radio id='9' value='1'"
if fla9=1 then
response.Write" checked"
end if
response.Write">管理员管理</td></tr><tr bgcolor='#ffffff'>"
response.Write"<td height='30'><input name='10' type='checkbox' class=radio id='10' value='1'"
if fla10=1 then
response.Write" checked"
end if
response.Write">密码设置</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td height='30'>&nbsp;</td></tr>"
response.Write"<tr bgcolor='#ffffff'><td height=30 align=center colspan=5><input type='submit' name='Submit' value=' 确 认 修 改 ' class=input1></td></tr>"
response.Write"</form></table>"
else
response.Write"<table width='95%' height='0' border='0' align='center' cellpadding='0' cellspacing='1' bgcolor='#cccccc'>"
response.Write"<tr bgcolor='#efefef'> <td width='26%' align='right'><strong>权限操作</strong>&nbsp;</td>"
response.Write"<td width='37%' height='30' align='left'>&nbsp;<strong>用户名</strong></td></tr>"
set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_admin order by "&WebSqlType&"_id desc"
rs.open sql,conn,1,1
do while not rs.eof
response.Write"<tr bgcolor='#ffffff'> <td align='right'><input type='radio' title='点击操作' class=radio "
response.Write"onClick=""javascript:window.open('flag.asp?action=flag1&id="&rs(""&WebSqlType&"_id")&"','_self')"">&nbsp;</td>"
response.Write"<td height='30' align='left'>&nbsp;"&rs(""&WebSqlType&"_nick")&"</td></tr>"
rs.movenext
loop
rs.close
set rs=nothing
response.Write"</table>"
end if
response.Write"</body></html>"
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -