cnbbr_addtemplate.asp

. 缓存处理技术

<!-- #include file="SysConfig.asp" -->
<!-- #include file="CheckAdmin.asp" -->
<script src="js/CheckAll.js"></script>
<script src="js/DelTrue.js"></script>
<%
Call CheckAdminFlag(TempAdminFlag,2)

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

  .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

  .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=""""></td>"& Vbcrlf
  .Write"  <td width=30% align=center><input name=TemplatePath type=text value=""""></td>"& Vbcrlf
  .Write"  <td width=20% align=center><input name=act type=hidden value=1><input name=submit type=submit value=""添加""></td>"& Vbcrlf
  .Write" </tr> "& vbcrlf
  .Write"</form>"& Vbcrlf

  .Write"</table>" & Vbcrlf

else
  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="insert into Cnbbr_Template (BBR_TemplateName,BBR_TemplatePath) values ('"& TemplateName &"','"& TemplatePath &"')"
  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

end if
End With
%>