% 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""&_ "