<%
'程序名称：飞扬网站管理系统[YCMS] 
'程序作者：激情飞扬 
'作者邮箱：bgh_edu@126.com
'作者 Q Q：99686532
'作者电话：0515-8842543
'官方主页：http://www.51fy.cn
'官方论坛：http://www.51fy.cn/bbs
%>
<!--#include file="inc/set.asp"-->
<%
If Request.QueryString("action")="" then
response.redirect"index.asp"
elseIf Request.QueryString("action")="skin" then
Response.Cookies(yecao)("MyDiySkin")=request.querystring("skin")
response.Cookies(yecao).expires=date()+365
response.redirect Request.ServerVariables("HTTP_REFERER")
end if
dim text
text=Encode(Request.QueryString("text"))
If Request.QueryString("action")="error" then
response.write"<html><title>出错信息</title>"& vbCrLf
response.write"<body topmargin=80 bgcolor=#eeeeee>" & vbCrLf
response.write "<TABLE cellSpacing=0 cellPadding=0  border=0 align=center>"& vbCrLf
response.write "<TR><TD vAlign=bottom align=middle><TABLE cellSpacing=1 cellPadding=0 bgColor=#e1e1e1 border=0>"& vbCrLf
response.write "<TR><TD bgColor=#ffffff><TABLE cellSpacing=1 cellPadding=0 bgColor=#d7d7d7 border=0>"& vbCrLf
response.write "<TR><TD bgColor=#ffffff><TABLE cellSpacing=1 cellPadding=0 bgColor=#969696 border=0>"& vbCrLf
response.write "<TR><TD bgColor=#ffffff><TABLE cellSpacing=0 cellPadding=1 width=""100%"" border=0>"& vbCrLf
response.write "<TR><TD align=center style=padding:4px;font-size:9pt;lin-height:150%;width:280;height:60>"& vbCrLf
response.write "<font style=""color:#969696;cursor:hand"">"&text&"</font>" & vbCrLf
response.write "</TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE>" & vbCrLf
response.write "</body></html>"& vbCrLf
response.end
ElseIf Request.QueryString("action")="stop" then
response.write"<html><title>系统暂停服务</title>"& vbCrLf
response.write"<body topmargin=80 bgcolor=#eeeeee>" & vbCrLf
response.write "<TABLE cellSpacing=0 cellPadding=0  border=0 align=center>"& vbCrLf
response.write "<TR><TD vAlign=bottom align=middle><TABLE cellSpacing=1 cellPadding=0 bgColor=#e1e1e1 border=0>"& vbCrLf
response.write "<TR><TD bgColor=#ffffff><TABLE cellSpacing=1 cellPadding=0 bgColor=#d7d7d7 border=0>"& vbCrLf
response.write "<TR><TD bgColor=#ffffff><TABLE cellSpacing=1 cellPadding=0 bgColor=#969696 border=0>"& vbCrLf
response.write "<TR><TD bgColor=#ffffff><TABLE cellSpacing=0 cellPadding=1 width=""100%"" border=0>"& vbCrLf
response.write "<TR><TD align=center style=padding:4px;font-size:9pt;lin-height:150%;width:280;height:60>"& vbCrLf
response.write "<font style=""color:#969696;cursor:hand"" onclick=window.open('bbs/');>"&text&"</font>" & vbCrLf
response.write "</TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE>" & vbCrLf
response.write "</body></html>"& vbCrLf
response.end
ElseIf Request.QueryString("action")="success" then
response.write"<html><title>操作成功</title>"& vbCrLf
response.write"<body topmargin=80 bgcolor=#eeeeee>" & vbCrLf
response.write "<TABLE cellSpacing=0 cellPadding=0  border=0 align=center>"& vbCrLf
response.write "<TR><TD vAlign=bottom align=middle><TABLE cellSpacing=1 cellPadding=0 bgColor=#e1e1e1 border=0>"& vbCrLf
response.write "<TR><TD bgColor=#ffffff><TABLE cellSpacing=1 cellPadding=0 bgColor=#d7d7d7 border=0>"& vbCrLf
response.write "<TR><TD bgColor=#ffffff><TABLE cellSpacing=1 cellPadding=0 bgColor=#969696 border=0>"& vbCrLf
response.write "<TR><TD bgColor=#ffffff><TABLE cellSpacing=0 cellPadding=1 width=""100%"" border=0>"& vbCrLf
response.write "<TR><TD align=center style=padding:4px;font-size:9pt;lin-height:150%;width:280;height:60>"& vbCrLf
response.write "<font style=""color:#969696;cursor:hand"" onclick=window.open('bbs/');>"&text&"</font>" & vbCrLf
response.write "</TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE>" & vbCrLf
response.write "</body></html>"& vbCrLf
response.end
end if
Function Encode(content)
dim tmp
tmp=content
tmp=replace(tmp,"<","&lt;")
tmp=replace(tmp,">","&gt")
tmp=replace(tmp,"'","")
tmp=replace(tmp,"char(34)","")
Encode=tmp
End Function
%>
