admin_template.asp

依蓝旅游网站管理系统Elan2008.SP2

TemplateConn.Close()
Set TemplateConn = Nothing

ElseIf ImportStep = 3 Then

Dim TemplateID, TargetChannelID, arr
TemplateID = EL_Common.ELRequest("TemplateID", 1)
TemplateData = EL_Common.ELRequest("TemplateData", 1)
TargetChannelID = EL_Common.ELRequest("TargetChannelID", 1)

Set TemplateConn = Server.CreateObject("ADODB.Connection")
TemplateConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(TemplateData)
If Err Then
   Err.Clear
   EL_Common.ShowErrorMsg("打开模板数据表错误，无法完成模板导入操作，请返回上一步检查数据表路径是否正确")
   TemplateConn.Close()
   Set TemplateConn = Nothing
   Exit Sub
End If
Set rsTemplate = TemplateConn.Execute("SELECT TemplateName,TemplateType,Content,ChannelModule FROM EL_Template WHERE TemplateID IN("& TemplateID &")")
If Err Then
   Err.Clear
   EL_Common.ShowErrorMsg("模板数据表结构错误，无法完成模板导入操作")
   rsTemplate.Close()
   Set rsTemplate = Nothing
   TemplateConn.Close()
   Set TemplateConn = Nothing
   Exit Sub
End If

Dim l, t
arr = Split(TargetChannelID, ",")
l = Ubound(arr)
Do While Not rsTemplate.EOF
   t = ""
   For i = 0 To l
      t = EL_Common.ELClng(arr(i))
	  If t > 0 Then
         ChannelModule = Conn.Execute("SELECT ChannelModule FROM EL_Channel WHERE ChannelID="& t)(0)
      Else
         ChannelModule = t
      End If
	  If rsTemplate("ChannelModule") = ChannelModule Then	     
		 Conn.Execute("INSERT INTO EL_Template(ChannelID,TemplateName,TemplateType,Content) VALUES("& t &",'"& Replace(rsTemplate("TemplateName"), "'", "''") &"',"& rsTemplate("TemplateType") &",'"& Replace(rsTemplate("Content"), "'", "''") &"')")
	  End If
   Next
   rsTemplate.MoveNext
Loop


rsTemplate.Close()
Set rsTemplate = Nothing
TemplateConn.Close()
Set TemplateConn = Nothing

EL_Common.ShowScriptError()
Response.Redirect "Admin_Template.asp?ChannelID="& EL_Channel.ChannelID &"&TempType="& TempType &"&TemplateType="& TemplateType &"&Action=Import&ImportStep=4"

ElseIf ImportStep = 4 Then
 ComeURL = "Admin_Template.asp?ChannelID="& EL_Channel.ChannelID &"&TempType="& TempType &"&TemplateType="& TemplateType
 EL_Common.ShowSuccessMsg("模板导入成功")

End If


EL_Common.ShowScriptError()
End Sub


Sub ModifyTemplate()
On Error Resume Next
Dim TemplateCmd, rsTemplate, TemplateID
Dim arr, i, ArrContent, TempChannelID
arr = Split(Templates, "|")

TemplateID = EL_Common.ELRequest("TemplateID", 2)

If TempType = -2 Then
   TempChannelID = -2
Else
   TempChannelID = EL_Channel.ChannelID
End If

Call EL_Common.InitCommonCmd(TemplateCmd, rsTemplate, "EL_Template", "TemplateName, TemplateType, Content, Defaulted", "ChannelID="& TempChannelID &" AND TemplateID="& TemplateID)
rsTemplate.Close()
If TemplateCmd(0) <> 1 Then
   EL_Common.ShowErrorMsg("指定模板不存在")
   Set rsTemplate = Nothing
   Set TemplateCmd = Nothing
   Exit Sub
End If
rsTemplate.Open
ArrContent = rsTemplate("Content")
ArrContent = EL_Common.ELSplit(ArrContent, "{$$$Template$$$}")

%>
<script language="javascript">
function Check(frm){
  if(frm.TemplateName.value.trim()==""){
     alert("请输入模板名称");
	 frm.TemplateName.focus();
	 return false;
  }
  if(frm.Content.value.trim()==""){
     alert("请输入模板内容");
	 frm.Content.focus();
	 return false;
  }
  
  SubmitOnce(frm);
  return;  
}
</script>
<form name="myform" action="Admin_Template.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" class="top_25"><strong>修改模板</strong></td>
  </tr>
  <tr>
    <td width="16%" class="td_ItemName"><strong>模板类型</strong></td>
    <td width="84%" class="td_25">
	<select name="tTemplateType" id="tTemplateType" disabled="disabled">
	<%
	  For i = 0 To UBound(arr)
	     If arr(i) <> "@" Then
	        Dim Temp
		    Temp = Split(arr(i), "$")
		    If rsTemplate("TemplateType") = EL_Common.ELClng(Temp(0)) Then
		       Response.Write "<option value='"& Temp(0) &"' selected>"& Temp(1) &"</option>"
		    Else
		       Response.Write "<option value='"& Temp(0) &"'>"& Temp(1) &"</option>"
		    End If
		 End If
	  Next	
	%>
    </select></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>模板名称</strong></td>
    <td class="td_25"><input name="TemplateName" type="text" id="TemplateName" value="<%=EL_Common.ServerHTMLEncode(rsTemplate("TemplateName"))%>" size="40"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>模板内容<% If TemplateType = 2 Then %><span id="bigClass">（大类）</span><% End If %></strong><br>
      HTML代码</td>
    <td class="td_25"><textarea name="Content" cols="110" rows="25" id="Content"><%=EL_Common.ServerHTMLEncode(ArrContent(0))%></textarea></td>
  </tr>
  <% If TemplateType = 2 Then %>
  <tr id="tr_Small">
    <td class="td_ItemName"><strong>模板内容<span id="smallClass">（小类）</span></strong><br>
HTML代码</td>
    <td class="td_25"><textarea name="Content_Small" cols="110" rows="25" id="Content_Small"><%=EL_Common.ServerHTMLEncode(ArrContent(1))%></textarea></td>
  </tr>
  <% End If %>
  <tr>
    <td class="td_ItemName"><strong>是否为默认模板</strong></td>
    <td class="td_25"><input name="Defaulted" type="radio" class="nomargin" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsTemplate("Defaulted"))%>>
      是
        <input name="Defaulted" type="radio" class="nomargin" value="<%=EL_False%>" <%=EL_Common.SetObjectChecked("False", rsTemplate("Defaulted"))%>>
      否</td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="submit" name="Submit" value="保存修改">
      <input type="button" name="Submit2" value="返回上页" onClick="history.back()">
      <input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
      <input name="Action" type="hidden" id="Action" value="SaveModify">
      <input name="TemplateID" type="hidden" id="TemplateID" value="<%=TemplateID%>">
      <input name="TemplateType" type="hidden" id="TemplateType" value="<%=rsTemplate("TemplateType")%>">
      <input name="TempType" type="hidden" id="TempType" value="<%=TempType%>"></td>
  </tr>
</table>
</form>
<%
rsTemplate.Close()
Set rsTemplate = Nothing
Set TemplateCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub ManageTemplate()
On Error Resume Next
Dim TemplateCmd, rsTemplate, RowCount
Dim arr, i, TempChannelID
arr = Split(Templates, "|")

If TempType < 0 Then
   TempChannelID = TempType
Else
   TempChannelID = EL_Channel.ChannelID
End If

Call EL_Common.InitCommonCmd(TemplateCmd, rsTemplate, "EL_Template", "TemplateID, TemplateName, Defaulted", "ChannelID="& TempChannelID &" AND TemplateType="& TemplateType)
rsTemplate.Close()
RowCount = TemplateCmd(0)
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td class="top_25">
	<%	  
	  Response.Write "| "
	  For i = 0 To Ubound(arr)
	     If arr(i) = "@" Then
		    Response.Write "</tr><tr><td class='top_25'>| "
		 Else
	        Dim Temp
		    Temp = Split(arr(i), "$")
		    If TemplateType = EL_Common.ELClng(Temp(0)) Then
	           Response.Write "<a href='Admin_Template.asp?ChannelID="& EL_Channel.ChannelID &"&TempType="& TempType &"&TemplateType="& Temp(0) &"' class=white><span class=redtext>"& Temp(1) &"</span></a> | "
		    Else
		       Response.Write "<a href='Admin_Template.asp?ChannelID="& EL_Channel.ChannelID &"&TempType="& TempType &"&TemplateType="& Temp(0) &"' class=white>"& Temp(1) &"</a> | "
		    End If
		 End If
	  Next
	%>
	</td>
  </tr>
</table>
<br>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="13%" align="center" class="top_25"><strong>模板ID</strong></td>
    <td width="40%" align="center" class="top_25"><strong>模板名称</strong></td>
    <td width="15%" align="center" class="top_25"><strong>是否默认</strong></td>
    <td width="32%" align="center" class="top_25"><strong>相关操作</strong></td>
  </tr>
  <%
    If RowCount = 0 Then
	   Response.Write "<tr><td class=td_25 colspan=4>没有任何模板数据，<a href='Admin_Template.asp?ChannelID="& EL_Channel.ChannelID &"&TempType="& TempType &"&TemplateType="& TemplateType &"&Action=Add' style='Color:blue'>点击添加模板</a></td></tr>"
	Else 
	   rsTemplate.Open()
	   For i=1 To RowCount
  %>
  <tr class="td_25" onMouseOut="this.className='td_25'" onMouseOver="this.className='MouseOver_25'">
    <td align="center"><%=rsTemplate(0)%></td>
    <td align="center"><%=rsTemplate(1)%></td>
    <td align="center"><%=EL_Common.ShowBoolean(rsTemplate(2).value, "<span class=bluetext>是</span>", "<span class=graytext>否</span>")%></td>
    <td align="center">
	<%
	  Response.Write "<a href='Admin_Template.asp?ChannelID="& EL_Channel.ChannelID &"&TempType="& TempType &"&TemplateType="& TemplateType &"&Action=Modify&TemplateID="& rsTemplate(0) &"'>修改</a> | "
	  If rsTemplate(2).value = True Then
	     Response.Write "<span class=graytext>删除</span> | "
		 Response.Write "<span class=graytext>设为默认</span>"
	  Else
	     Response.Write "<a href='Admin_Template.asp?ChannelID="& EL_Channel.ChannelID &"&TempType="& TempType &"&TemplateType="& TemplateType &"&Action=Delete&TemplateID="& rsTemplate(0) &"' onClick=""return confirm('本次删除后将不能恢复，确认要删除此模板吗')"">删除</a> | "
		 Response.Write "<a href='Admin_Template.asp?ChannelID="& EL_Channel.ChannelID &"&TempType="& TempType &"&TemplateType="& TemplateType &"&Action=SetDefaulted&TemplateID="& rsTemplate(0) &"'>设为默认</a>"
	  End If
	%>
	</td>
  </tr>
  <%
         If i<RowCount Then rsTemplate.MoveNext
	   Next
	   rsTemplate.Close()
    End If
  %>
</table>
<%
Set rsTemplate = Nothing
Set TemplateCmd = Nothing
EL_Common.ShowScriptError()
End Sub


Sub AddTemplate()
On Error Resume Next
Dim arr, i
arr = Split(Templates, "|")
%>
<script language="javascript">
function onTempalteTypeChange(value){
  if(value == "2"){
     getObject("tr_Small").style.display = ""; 
	 getObject("bigClass").style.display = "";
  }else{
     getObject("tr_Small").style.display = "none"; 
	 getObject("bigClass").style.display = "none"
  }
}
function Check(frm){
  if(frm.TemplateName.value.trim()==""){
     alert("请输入模板名称");
	 frm.TemplateName.focus();
	 return false;
  }
  if(frm.Content.value.trim()==""){
     alert("请输入模板内容");
	 frm.Content.focus();
	 return false;
  }
  
  SubmitOnce(frm);
  return;  
}
</script>
<form name="myform" action="Admin_Template.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" class="top_25"><strong>添加模板</strong></td>
  </tr>
  <tr>
    <td width="16%" class="td_ItemName"><strong>模板类型</strong></td>
    <td width="84%" class="td_25">
	<select name="TemplateType" id="TemplateType" onChange="onTempalteTypeChange(this.value)">
	<%
	  For i = 0 To UBound(arr)
	     If arr(i) <> "@" Then
		    Dim Temp
		    Temp = Split(arr(i), "$")
		    If TemplateType = EL_Common.ELClng(Temp(0)) Then
		       Response.Write "<option value='"& Temp(0) &"' selected>"& Temp(1) &"</option>"
		    Else
		       Response.Write "<option value='"& Temp(0) &"'>"& Temp(1) &"</option>"
		    End If
		 End If
	  Next
	%>
    </select></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>模板名称</strong></td>
    <td class="td_25"><input name="TemplateName" type="text" id="TemplateName" size="40"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>模板内容<span id="bigClass">（大类）</span></strong><br>
      HTML代码</td>
    <td class="td_25"><textarea name="Content" cols="110" rows="25" id="Content"></textarea></td>
  </tr>
  <tr id="tr_Small" style="display:none;">
    <td class="td_ItemName"><strong>模板内容<span id="smallClass">（小类）</span></strong><br>
HTML代码</td>
    <td class="td_25"><textarea name="Content_Small" cols="110" rows="25" id="Content_Small"></textarea></td>
  </tr>
  <script>onTempalteTypeChange('<%=TemplateType%>');</script>
  <tr>
    <td class="td_ItemName"><strong>是否为默认模板</strong></td>
    <td class="td_25"><input name="Defaulted" type="radio" class="nomargin" value="<%=EL_True%>">
      是
        <input name="Defaulted" type="radio" class="nomargin" value="<%=EL_False%>" checked>
      否</td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="submit" name="Submit" value="添加模板">
      <input type="button" name="Submit2" value="返回上页" onClick="history.back()">
      <input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
      <input name="Action" type="hidden" id="Action" value="SaveNewTemplate">
      <input name="TempType" type="hidden" id="TempType" value="<%=TempType%>"></td>
  </tr>
</table>
</form>
<%
End Sub
%>
</body>
</html>