cnbbr_addtemplatecss.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>
<%
Call CheckAdminFlag(TempAdminFlag,2)

Dim TemplateID:TemplateID=CheckStr(Trim(Rst("Tid")))
if not isNum(TemplateID) then Call AlertInfo("对不起，没有找到你要修改的模板！","",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> &gt;&gt;&gt; <a href=""Cnbbr_AddTemplateCss.asp"" class=menuColor_1><b>添加系统模板CSS</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='Admin_AddTemplateCss.asp?Tid="& TemplateID &"';""> &nbsp; <input name=deltrue type=button value=""返回模板CSS列表"" OnClick=""location.href='Cnbbr_AdminTemplateCss.asp?Tid="& TemplateID &"';""></td> "& vbcrlf
  .Write" </tr> "& vbcrlf
  .Write"</table>" & Vbcrlf

if Templateact=0 then

  Sql="select * from CNbbr_Template where BBR_templateID="& Templateid
  Set Rs=Conn.Execute(Sql)
  if Rs.Eof or Rs.Bof then
   HelpTitle="出错了！"
   HelpInfo="对不起，没有找到任何的系统模板，请先添加！"
   HelpList="<Ul>" & Vbcrlf
   HelpList=HelpList & "<LI><a href=""Cnbbr_AddTemplate.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
  else
  .Write"<table width=98% border=0 align=center cellpadding=0 cellspacing=1 class=tablebg>"& vbcrlf
  .Write"<form name=searchform method=post action="""">"& 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=20% align=center>所属模板</td>"& Vbcrlf
  .Write"  <td width=17% align=center>操作</td>"& Vbcrlf
  .Write" </tr> "& vbcrlf
  .Write" <tr class=td> "& vbcrlf
  .Write"  <td width=30% align=center><input name=CssName type=text value=""""></td>"& Vbcrlf
  .Write"  <td width=30% align=center><input name=CssUrl type=text value=""""></td>"& Vbcrlf
  .Write"  <td width=20% align=center>"& Vbcrlf
  .Write"  <Select name=TemplateID2>"& Vbcrlf
  Do While not Rs.Eof
     .Write"<option value="&Rs("BBR_TemplateID")&">"& Rs("BBR_TemplateName") &"</option>"& Vbcrlf
  Rs.MoveNext
  Loop
  .Write"  </select>"& Vbcrlf
  .Write"</td>"& Vbcrlf
  .Write"  <td width=17% align=center><input name=act type=hidden value=1><input name=Tid type=hidden value="& TemplateID &"><input name=submit type=submit value=""添加""></td>"& Vbcrlf
  .Write" </tr> "& vbcrlf
  .Write"</form>"& Vbcrlf
  .Write"</table>" & Vbcrlf
  end if

else
  Dim CssName,CssUrl,CssPath,TemplateID2
  CssName=CheckStr(Trim(Request.Form("CssName")))
  CssUrl=CheckStr(Trim(Request.Form("CssUrl")))
  TemplateID2=CheckStr(Trim(Request.Form("TemplateID2")))
  if CssName="" then Call AlertInfo("出错了，模板CSS的名称不能为空！","",0)
  if CssUrl="" then Call AlertInfo("出错了，模板CSS的文件地址不能为空！","",0)
  if not isNum(TemplateID2) then Call AlertInfo("出错了，你选择的模板不存在！","",0)
  Dim RsTemplateID2
  Sql="Select BBR_TemplatePath from Cnbbr_Template Where BBR_TemplateID="& TemplateID2
  Set RsTemplateID2=Conn.execute(Sql)
  if RsTemplateID2.Eof or RsTemplateID2.Bof then
     Call AlertInfo("出错了，你选择的模板不存在！","",0)
  else
     CssPath="BBRSkin"
  end if
  RsTemplateID2.Close
  Set RsTemplateID2=nothing

  Sql="Insert Into Cnbbr_Skins (BBR_SkinsCssName,BBR_SkinsCssPath,BBR_SkinsCssUrl,BBR_TemplateID) values ('"& CssName &"','"& CssPath &"','"& CssUrl &"',"& TemplateID2 &")"
  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_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
  
end if
End With

%>