cnbbr_edittemplate.asp

. 缓存处理技术

<!-- #include file="SysConfig.asp" -->
<!-- #include file="CheckAdmin.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 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=""添加系统模板"" OnClick=""location.href='Cnbbr_AddTemplate.asp';"">&nbsp; <input name=deltrue type=button value=""返回模板列表"" OnClick=""location.href='Cnbbr_AdminTemplate.asp';""></td> "& vbcrlf
  .Write" </tr> "& vbcrlf
  .Write"</table>" & Vbcrlf

if TemplateAct=0 then

  Sql="select BBR_TemplateID,BBR_TemplateName,BBR_TemplatePath 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" <tr class=titletd> "& vbcrlf
  .Write"  <td width=50% align=center>模板名称</td>"& Vbcrlf
  .Write"  <td width=30% 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=50% align=center><input name=TemplateName type=text value="""& Rs("BBR_TemplateName") &"""></td>"& Vbcrlf
  .Write"  <td width=30% align=center><input name=TemplatePath type=text value="""& Rs("BBR_TemplatePath") &"""></td>"& Vbcrlf
  .Write"  <td width=20% align=center><input name=act type=hidden value=1><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 TemplateName,TemplatePath
  TemplateName=CheckStr(Trim(Request.Form("TemplateName")))
  TemplatePath=CheckStr(Trim(Request.Form("Templatepath")))
  if TemplateName="" then Call AlertInfo("出错了，模板名称不能为空！","",0)
  if TemplatePath="" then Call AlertInfo("出错了，模板目录不能为空！","",0)

  Sql="select BBR_TemplateID,BBR_TemplateName,BBR_TemplatePath from Cnbbr_Template where BBR_TemplateID="& Templateid
  Set Rs=Server.CreateObject("Adodb.RecordSet")
  Rs.Open Sql,conn,1,3
  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
   Dim TempSubmitValue
   TempSubmitValue=CheckStr(Trim(Request.Form("submit")))
   if TempSubmitValue="更新" then
    Rs("BBR_TemplateName")=TemplateName
    Rs("BBR_TemplatePath")=TemplatePath
    Rs.Update

    Sql="Update Cnbbr_Skins Set BBR_SkinsCssPath='"&TemplatePath&"' where BBR_TemplateID="& TemplateID
    Conn.execute(Sql)
	if Err then
	   Call AlertInfo("模板更新失败！请返回重新尝试！","",0)
	else
   	  HelpTitle="成功了！"
   	  HelpInfo="恭喜你，系统模板信息更新成功！"
   	  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
    elseif TempSubmitValue="删除" then
	Sql="Delete"& SqlDiff &"from Cnbbr_Skins Where BBR_SkinsID="& TemplateCssID &" and BBR_TemplateID="& TemplateID
	Conn.Execute(Sql)

       	Sql="delete"& SqlDiff &"Cnbbr_Skins where BBR_TemplateID="& TemplateID
    	Conn.execute(Sql)

	if Err then
	   Call AlertInfo("模板更新失败！请返回重新尝试！","",0)
	else
   	  HelpTitle="成功了！"
   	  HelpInfo="系统模板信息删除成功！"
   	  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
%>