cnbbr_admintemplatecss.asp

. 缓存处理技术

<!-- #include file="SysConfig.asp" -->
<!-- #include file="CheckAdmin.asp" -->
<!-- #include file="../Inc/DataUpdate_Application.asp" -->
<script src="js/CheckAll.js"></script>
<script src="js/DelTrue.js"></script>
<%
Dim TemplateID:TemplateID=CheckStr(Trim(Rst("Tid")))
if not isNum(TemplateID) then Call AlertInfo("对不起，没有找到你要修改的模板！","",0)

Dim TemplateCssID:TemplateCssID=CheckStr(Trim(Rst("Cid")))
if not isNum(TemplateCssID) then TemplateCssID=0

Dim TemplateAct:TemplateAct=CheckStr(Trim(Request.Form("Act")))
if not isNum(TemplateAct) then TemplateAct=0

With ReSponse
  .Write"<table width=98% border=0 align=center cellpadding=0 cellspacing=0>"& vbcrlf
  .Write" <tr> "& vbcrlf
  .Write"  <td colspan=2 width=100% align=center height=2 class=menutdbg_1></td> "& vbcrlf
  .Write" </tr> "& vbcrlf
  .Write" <tr height=32> "& vbcrlf
  .Write"  <td width=100% colspan=2 background=""../Skins/"& SKINS_FOLDER &"/GrayBg.gif"">&nbsp;<img src=""../Skins/"& Skins_Folder &"/Go.gif"" border=""0""><a href=""help.asp"" class=menuColor_1><b>后台管理</b></a>&gt;&gt;&gt; <a href=""Cnbbr_AdminTemplate.asp"" class=menuColor_1><b>系统模板管理</b></a> </td>"& vbcrlf
  .Write"  </tr>"& vbcrlf
  .Write"</table>" & Vbcrlf

  .Write"<table width=98% border=0 align=center cellpadding=0 cellspacing=0>"& vbcrlf
  .Write" <tr> "& vbcrlf
  .Write"  <td width=100% class=td><input name=deltrue type=button value=""添加模板CSS"" OnClick=""location.href='Cnbbr_AddTemplateCss.asp?Tid="& TemplateID &"';"">&nbsp; <input name=deltrue type=button value=""返回模板列表"" OnClick=""location.href='Cnbbr_AdminTemplate.asp';""></td> "& vbcrlf
  .Write" </tr> "& vbcrlf
  .Write"</table>" & Vbcrlf

if TemplateCssID=0 then

  Sql="select Cnbbr_Skins.BBR_SkinsID,Cnbbr_Skins.BBR_TemplateID,Cnbbr_Skins.BBR_SkinsCssName,Cnbbr_Skins.BBR_SkinsCssPath,Cnbbr_Skins.BBR_SkinsCssUrl,Cnbbr_Template.BBR_TemplateName,Cnbbr_Template.BBR_TemplatePath from Cnbbr_Skins left join Cnbbr_Template on Cnbbr_Skins.BBR_TemplateID=Cnbbr_Template.BBR_TemplateID where Cnbbr_Skins.BBR_TemplateID="& Templateid
  Set Rs=Conn.Execute(Sql)
  if Rs.Eof or Rs.Bof then
   HelpTitle="出错了！"
   HelpInfo="对不起，没有找到任何的系统模板Css，请先添加！"
   HelpList="<Ul>" & Vbcrlf
   HelpList=HelpList & "<LI><a href=""Cnbbr_AddTemplateCss.asp?Tid="& TemplateID &""">添加系统模板Css</a></LI>" & Vbcrlf
   HelpList=HelpList & "<LI><a href=""javascript: history.back(-1);"">返回上页</a></LI>" & Vbcrlf
   HelpList=HelpList & "</Ul>" & Vbcrlf
   Cnbbr_Helper HelpTitle,HelpInfo,HelpList,368
  else
  .Write"<table width=98% border=0 align=center cellpadding=0 cellspacing=1 class=tablebg>"& vbcrlf

  .Write" <tr class=titletd> "& vbcrlf
  .Write"  <td width=30% align=center>模板Css名称</td>"& Vbcrlf
  .Write"  <td width=30% align=center>CSS文件地址</td>"& Vbcrlf
  .Write"  <td width=10% align=center>所属模板</td>"& Vbcrlf
  .Write"  <td width=10% align=center>模板目录</td>"& Vbcrlf
  .Write"  <td width=20% align=center>操作</td>"& Vbcrlf
  .Write" </tr> "& vbcrlf

  Do While not Rs.Eof
  .Write"<form name=searchform method=post action="""">"& Vbcrlf
  .Write" <tr class=td> "& vbcrlf
  .Write"  <td width=30% align=center><input name=CssName type=text value="""& Rs("BBR_SkinsCssName") &"""></td>"& Vbcrlf
  .Write"  <td width=30% align=center><input name=CssUrl type=text value="""& Rs("BBR_SkinsCssUrl") &"""></td>"& Vbcrlf
  .Write"  <td width=10% align=center>"& Rs("BBR_TemplateName") &"</td>"& Vbcrlf
  .Write"  <td width=10% align=center>"& Rs("BBR_TemplatePath") &"</td>"& Vbcrlf
  .Write"  <td width=20% align=center><input name=act type=hidden value=1><input name=Cid type=hidden value="& Rs("BBR_SkinsID") &"><input name=submit type=submit value=""更新""> &nbsp; <input name=submit type=submit value=""删除""></td>"& Vbcrlf
  .Write" </tr> "& vbcrlf
  .Write"</form>"& Vbcrlf
  Rs.MoveNext
  Loop

  .Write"</table>" & Vbcrlf
  end if

else
  Call CheckAdminFlag(TempAdminFlag,3)
  Dim CssName,CssUrl
  CssName=CheckStr(Trim(Request.Form("CssName")))
  CssUrl=CheckStr(Trim(Request.Form("CssUrl")))
  if CssName="" then Call AlertInfo("出错了，模板CSS的名称不能为空！","",0)
  if CssUrl="" then Call AlertInfo("出错了，模板CSS的文件地址不能为空！","",0)

  Sql="select Cnbbr_Skins.BBR_SkinsID,Cnbbr_Skins.BBR_TemplateID,Cnbbr_Skins.BBR_SkinsCssName,Cnbbr_Skins.BBR_SkinsCssPath,Cnbbr_Skins.BBR_SkinsCssUrl,Cnbbr_Template.BBR_TemplateName,Cnbbr_Template.BBR_TemplatePath from Cnbbr_Skins left join Cnbbr_Template on Cnbbr_Skins.BBR_TemplateID=Cnbbr_Template.BBR_TemplateID where Cnbbr_Skins.BBR_TemplateID="& Templateid &" and Cnbbr_Skins.BBR_SkinsID="& TemplateCssid
  Set Rs=Server.CreateObject("Adodb.RecordSet")
  Rs.Open Sql,conn,1,3
  if Rs.Eof or Rs.Bof then
   HelpTitle="出错了！"
   HelpInfo="对不起，没有找到任何的系统模板Css，请先添加！"
   HelpList="<Ul>" & Vbcrlf
   HelpList=HelpList & "<LI><a href=""Cnbbr_AddTemplateCss.asp?Tid="& TemplateID &""">添加系统模板Css</a></LI>" & Vbcrlf
   HelpList=HelpList & "<LI><a href=""javascript: history.back(-1);"">返回上页</a></LI>" & Vbcrlf
   HelpList=HelpList & "</Ul>" & Vbcrlf
   Cnbbr_Helper HelpTitle,HelpInfo,HelpList,368
  else
   Dim TempSubmitValue
   TempSubmitValue=CheckStr(Trim(Request.Form("submit")))
   if TempSubmitValue="更新" then
    Rs("BBR_SkinsCssName")=CssName
    Rs("BBR_SkinsCssUrl")=CssUrl
    Rs.Update
	if Err then
	   Call AlertInfo("模板CSS更新失败！请返回重新尝试！","",0)
	else

   	  Application.Lock
   	  Application("SYS_BBRSkins")=BBR_SysSkinsContent()
   	  Application.UnLock

   	  HelpTitle="成功了！"
   	  HelpInfo="恭喜你，系统模板CSS信息更新成功！"
   	  HelpList="<Ul>" & Vbcrlf
   	  HelpList=HelpList & "<LI><a href=""Cnbbr_AdminTemplateCss.asp?Tid="& TemplateID &""">查看更新后的模板CSS</a></LI>" & Vbcrlf
   	  HelpList=HelpList & "<LI><a href=""Cnbbr_AddTemplate.asp"">添加系统模板</a></LI>" & Vbcrlf
   	  HelpList=HelpList & "<LI><a href=""Cnbbr_AdminTemplate.asp"">查看所有系统模板</a></LI>" & Vbcrlf
   	  HelpList=HelpList & "<LI><a href=""javascript: history.back(-1);"">返回上页</a></LI>" & Vbcrlf
   	  HelpList=HelpList & "</Ul>" & Vbcrlf
   	  Cnbbr_Helper HelpTitle,HelpInfo,HelpList,368
	end if
    elseif TempSubmitValue="删除" then
	Sql="Delete"& SqlDiff &"from Cnbbr_Skins Where BBR_SkinsID="& TemplateCssID &" and BBR_TemplateID="& TemplateID
	Conn.Execute(Sql)
	if Err then
	   Call AlertInfo("模板CSS更新失败！请返回重新尝试！","",0)
	else

   	  Application.Lock
   	  Application("SYS_BBRSkins")=BBR_SysSkinsContent()
   	  Application.UnLock

   	  HelpTitle="成功了！"
   	  HelpInfo="系统模板CSS信息删除成功！"
   	  HelpList="<Ul>" & Vbcrlf
   	  HelpList=HelpList & "<LI><a href=""Cnbbr_AdminTemplate.asp"">查看所有系统模板</a></LI>" & Vbcrlf
   	  HelpList=HelpList & "<LI><a href=""javascript: history.back(-1);"">返回上页</a></LI>" & Vbcrlf
   	  HelpList=HelpList & "</Ul>" & Vbcrlf
   	  Cnbbr_Helper HelpTitle,HelpInfo,HelpList,368
	end if
    else
     Call AlertInfo("对不起，你的操作方式有误，请重新尝试！","",0)
    end if
  end if
  
end if
End With

%>