<% Dim Action Action=lcase(Request.querystring("Action")) Select case Action case "save" SaveCC() case else main() End select Footer() Sub SaveCC() Dim I,S Head() For i=0 to 4 S=S&Replace(Request.form("cc"&i),",","")&"," Next S=S&",0,0,0,0,0" MNBoard.execute("update [i_Config] set CC='"&S&"'") S="更改CC视频设置!" MNBoard.netLog"操作后台_"&S Suc"修改成功",S,"Admin_CC.asp" MNBoard.Cache.Clean("Info") End SUB Sub main() %> <% Dim S,CC,i Set Rs=MNBoard.execute("Select CC From [i_config]") CC=split(Rs(0),",") Rs.Close Response.Write"
" Response.Write"
CC视频管理
" DIVTR"您在CC视频联盟的数字ID:","如果您还没到CC视频联盟注册过,请点这里注册","",30,1 DIVTR"视频展区listid:","请登陆CC视频联盟在控制面版里的“视频展区”获得","",30,2 for i=1 to 16 S=S& "" Next DIVTR"选择按钮样式:","","",30,1 showstyle DIVTR"是否开放上传CC视频:","",GetRadio("cc0","是",CC(0),1)&GetRadio("cc0","否",CC(0),0),25,2 DIVTR"是否显示展区:","",GetRadio("cc1","是",CC(1),1)&GetRadio("cc1","否",CC(1),0),25,1 Response.Write"
"&_ "
"&_ "
视频管理
"&_ "
用户名:   "&_ "密码:   忘记密码
" End Sub Sub showstyle %>
<%END sub%>