⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_template.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 

If ChannelModule = "" Then
   ChannelModule = 9999
Else
   ChannelModule = EL_Common.ELClng(ChannelModule)
End If

If ExportStep = 0 Then

If ChannelModule = 9999 Then
   TableName = "EL_Template"
   FieldName = "TemplateID, TemplateName"
   SqlCondition = "1=1 ORDER BY ChannelID"
ElseIf ChannelModule <= 0 Then
   TableName = "EL_Template"
   FieldName = "TemplateID, TemplateName"
   SqlCondition = "ChannelID="& ChannelModule
Else
   TableName = "EL_Template, EL_Channel"
   FieldName = "EL_Template.TemplateID, EL_Template.TemplateName"
   SqlCondition = "EL_Template.ChannelID=EL_Channel.ChannelID AND EL_Channel.ChannelModule="& ChannelModule
End If

Call EL_Common.InitCommonCmd(TemplateCmd, rsTemplate, TableName, FieldName, SqlCondition)
rsTemplate.Close()
RowCount = TemplateCmd(0)
%>
<script language="javascript">
function CheckAll(){
   var o = getObject("TemplateID");
   for(var i=0;i<o.options.length;i++){
      o.options[i].selected = true;
   }
}
function Check(frm){
   if(frm.TemplateID.value.trim() == "" || frm.TemplateID.selectedIndex == -1){
      alert("请选择需要导出的模板");
	  frm.TemplateID.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="25%" class="td_ItemName"><strong>选择要导出的模板</strong></td>
    <td width="75%" class="td_25">
      <select name="ChannelModule" id="ChannelModule" onChange="getObject('ExportStep').value=0;getObject('myform').submit()">
	    <option value="9999" <%=EL_Common.SetObjectSelected(9999, ChannelModule)%>>所有模板</option>
        <option value="0" <%=EL_Common.SetObjectSelected(0, ChannelModule)%>>通用模块</option>
        <option value="1" <%=EL_Common.SetObjectSelected(1, ChannelModule)%>>文章模块</option>
        <option value="2" <%=EL_Common.SetObjectSelected(2, ChannelModule)%>>酒店模块</option>
        <option value="3" <%=EL_Common.SetObjectSelected(3, ChannelModule)%>>度假模块</option>
        <option value="4" <%=EL_Common.SetObjectSelected(4, ChannelModule)%>>机票模块</option>
        <option value="5" <%=EL_Common.SetObjectSelected(5, ChannelModule)%>>景点模块</option>
        <option value="6" <%=EL_Common.SetObjectSelected(6, ChannelModule)%>>图片模块</option>
		<option value="7" <%=EL_Common.SetObjectSelected(7, ChannelModule)%>>商城模块</option>
		<option value="8" <%=EL_Common.SetObjectSelected(8, ChannelModule)%>>租车模块</option>
        <option value="9" <%=EL_Common.SetObjectSelected(9, ChannelModule)%>>论坛模块</option>
		<option value="-2" <%=EL_Common.SetObjectSelected(-2, ChannelModule)%>>会员模块</option>
      </select>
    [<span id="ck"><a href="javascript:CheckAll()">全选</a></span>]<br>
	<select name="TemplateID" size="10" multiple id="TemplateID" style="height:250px; width:250px;">
    <%
	  If RowCount = 0 Then
	     Response.Write "<option value=''>没有可以导出的模板</option>"
		 Disabled = "disabled"
	  Else
	     rsTemplate.Open()
		 For i=1 To RowCount
		    Response.Write "<option value='"& rsTemplate(0) &"'>"& rsTemplate(1) &"</option>"
			If i<RowCount Then rsTemplate.MoveNext
		 Next
		 rsTemplate.Close()
	  End If
	%>
    </select></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>目标数据表</strong></td>
    <td class="td_25"><input name="TemplateData" type="text" id="TemplateData" value="<%=InstallDir%>EL_Template.mdb" size="30">
      <input name="IsClear" type="checkbox" class="nomargin" id="IsClear" value="1" checked>
先清空目标数据表</td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input name="Submit" type="submit" id="Submit" value=" 导 出 " <%=Disabled%>>
      <input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
      <input name="TempType" type="hidden" id="TempType" value="<%=TempType%>">
      <input name="TemplateType" type="hidden" id="TemplateType" value="<%=TemplateType%>">
      <input name="Action" type="hidden" id="Action" value="Export">
      <input name="ExportStep" type="hidden" id="ExportStep" value="2"></td>
  </tr>
</table>
</form>
<%
Set rsTemplate = Nothing
Set TemplateCmd = Nothing


ElseIf ExportStep = 2 Then

Dim TemplateData, TemplateID, IsClear, TemplateConn
TemplateID = EL_Common.ELRequest("TemplateID", 1)
IsClear = EL_Common.ELRequest("IsClear", 2)
TemplateData = EL_Common.ELRequest("TemplateData", 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 TemplateID,TemplateName,TemplateType,Content,ChannelModule FROM EL_Template WHERE 1=2")
If Err Then
   Err.Clear
   EL_Common.ShowErrorMsg("模板数据表结构错误，无法完成模板导出操作")
   rsTemplate.Close()
   Set rsTemplate = Nothing
   TemplateConn.Close()
   Set TemplateConn = Nothing
   Exit Sub
End If
rsTemplate.Close()
Set rsTemplate = Nothing

If IsClear = 1 Then '清空
   TemplateConn.Execute("DELETE FROM EL_Template")
End If

Call EL_Common.InitCommonCmd(TemplateCmd, rsTemplate, "EL_Template", "ChannelID,TemplateName,TemplateType,Content", "TemplateID In ("& TemplateID &")")
rsTemplate.Close()
RowCount = TemplateCmd(0)
rsTemplate.Open()
For i = 1 To RowCount
   ChannelModule = rsTemplate("ChannelID")
   If ChannelModule > 0 Then
      ChannelModule = Conn.Execute("SELECT ChannelModule FROM EL_Channel WHERE ChannelID="& rsTemplate("ChannelID"))(0)
   End If
   TemplateConn.Execute("INSERT INTO EL_Template(TemplateName,TemplateType,Content,ChannelModule) VALUES('"& Replace(rsTemplate("TemplateName"), "'", "''") &"',"& rsTemplate("TemplateType") &",'"& Replace(rsTemplate("Content"), "'", "''") &"',"& ChannelModule &")")
   If i<RowCount Then rsTemplate.MoveNext
Next
rsTemplate.Close()
Set rsTemplate = Nothing
Set TemplateCmd = Nothing
TemplateConn.Close()
Set TemplateConn = Nothing

EL_Common.ShowScriptError()

Response.Redirect "Admin_Template.asp?ChannelID="& EL_Channel.ChannelID &"&TempType="& TempType &"&TemplateType="& TemplateType &"&Action=Export&ExportStep=3"

ElseIf ExportStep = 3 Then

EL_Common.ShowSuccessMsg("模板导出成功")

End If

EL_Common.ShowScriptError()
End Sub

Sub ImportTemplate()
On Error Resume Next
Dim TemplateConn, rsTemplate, TemplateData
Dim TemplateCmd, RowCount, i, ImportStep, ChannelModule, Disabled

ImportStep = EL_Common.ELRequest("ImportStep", 2)
ChannelModule = EL_Common.ELRequest("ChannelModule", 1)

If ChannelModule = "" Then
   ChannelModule = 9999
Else
   ChannelModule = EL_Common.ELClng(ChannelModule)
End If 

If ImportStep = 0 Then
%>	
<form name="myform" action="Admin_Template.asp" method="post">
<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_50"><input name="TemplateData" type="text" id="TemplateData" value="<%=InstallDir%>EL_Template.mdb" size="35"></td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="submit" name="Submit3" value=" 下一步 ">
      <input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
      <input name="TempType" type="hidden" id="TempType" value="<%=TempType%>">
      <input name="TemplateType" type="hidden" id="TemplateType" value="<%=TemplateType%>">
      <input name="Action" type="hidden" id="Action" value="Import">
      <input name="ImportStep" type="hidden" id="ImportStep" value="2"></td>
  </tr>
</table>
</form>
<%
ElseIf ImportStep = 2 Then

TemplateData = EL_Common.ELRequest("TemplateData", 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

If ChannelModule = 9999 Then
   Set rsTemplate = TemplateConn.Execute("SELECT TemplateID,TemplateName FROM EL_Template")
Else
   Set rsTemplate = TemplateConn.Execute("SELECT TemplateID,TemplateName FROM EL_Template WHERE ChannelModule="& ChannelModule)
End If
If Err Then
   Err.Clear
   EL_Common.ShowErrorMsg("模板数据表结构错误，无法完成模板导入操作")
   rsTemplate.Close()
   Set rsTemplate = Nothing
   TemplateConn.Close()
   Set TemplateConn = Nothing
   Exit Sub
End If

%>
<script language="javascript">
function Check(frm){
  if(frm.TemplateID.value.trim()=="" || frm.TemplateID.selectedIndex == -1){
     alert("请选择要导入的模板");
	 frm.TemplateID.focus();
	 return false;
  }
  
  if(frm.TargetChannelID.value.trim()=="" || frm.TargetChannelID.selectedIndex == -1){
     alert("请选择模板导入目标");
	 frm.TargetChannelID.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="3" class="top_25"><strong>模板导入：第二步</strong></td>
  </tr>
  <tr>
    <td width="45%" align="center" class="td_ItemName"><strong>选择需要导入的模板</strong></td>
    <td width="9%" align="center" class="td_25"></td>
    <td width="46%" align="center" class="td_ItemName"><strong>模板导入目标</strong></td>
  </tr>
  <tr>
    <td align="center" class="td_ItemName">
	<select name="ChannelModule" id="ChannelModule" onChange="getObject('ImportStep').value=2;getObject('myform').submit()">
	  <option value="" <%=EL_Common.SetObjectSelected(9999, ChannelModule)%>>所有模板</option>
	  <option value="0" <%=EL_Common.SetObjectSelected(0, ChannelModule)%>>通用模块</option>
	  <option value="1" <%=EL_Common.SetObjectSelected(1, ChannelModule)%>>文章模块</option>
	  <option value="2" <%=EL_Common.SetObjectSelected(2, ChannelModule)%>>酒店模块</option>
	  <option value="3" <%=EL_Common.SetObjectSelected(3, ChannelModule)%>>度假模块</option>
	  <option value="4" <%=EL_Common.SetObjectSelected(4, ChannelModule)%>>机票模块</option>
	  <option value="5" <%=EL_Common.SetObjectSelected(5, ChannelModule)%>>景点模块</option>
	  <option value="6" <%=EL_Common.SetObjectSelected(6, ChannelModule)%>>图片模块</option>
	  <option value="7" <%=EL_Common.SetObjectSelected(7, ChannelModule)%>>商城模块</option>
	  <option value="8" <%=EL_Common.SetObjectSelected(8, ChannelModule)%>>租车模块</option>
	  <option value="9" <%=EL_Common.SetObjectSelected(9, ChannelModule)%>>论坛模块</option>
	  <option value="-2" <%=EL_Common.SetObjectSelected(-2, ChannelModule)%>>会员模块</option>	  
    </select>
	</td>
    <td align="center" class="td_25"></td>
    <td align="center" class="td_ItemName">&nbsp;</td>
  </tr>
  <tr>
    <td align="center" class="td_ItemName">
	<select name="TemplateID" size="20" multiple id="TemplateID" style="width:300px; height:300px;">
	<%
	   If rsTemplate.EOF And rsTemplate.BOF Then
	      Response.Write "<option value=''>没有要导入的模板</option>"
		  Disabled = "disabled"
	   Else
	      Disabled = ""
	      Do While Not rsTemplate.EOF
		     Response.Write "<option value='"& rsTemplate(0) &"'>"& rsTemplate(1) &"</option>"
			 rsTemplate.MoveNext
		  Loop		  
	   End If
	   rsTemplate.Close()
	   Set rsTemplate = Nothing
	%>
    </select>    </td>
    <td align="center" class="td_25"><strong>导入到 &gt;&gt;</strong></td>
    <td align="center" class="td_ItemName">
	<select name="TargetChannelID" size="20" multiple id="TargetChannelID" style="width:300px; height:300px;">
	<%
	  Select Case ChannelModule	    
		Case 9999:
		   Response.Write "<option value='0'>网站通用模块</option>"
		   Response.Write "<option value='-2'>网站会员模板</option>"  
		   Call EL_Common.InitCommonCmd(TemplateCmd, rsTemplate, "EL_Channel", "ChannelID, ChannelName", "1=1")
		   rsTemplate.Close()
		   RowCount = TemplateCmd(0)
		   rsTemplate.Open()
		   For i=1 To RowCount
		      Response.Write "<option value='"& rsTemplate(0) &"'>"& rsTemplate(1) &"</option>"
		      If i<RowCount Then rsTemplate.MoveNext
		   Next
		   rsTemplate.Close()
		   Set rsTemplate = Nothing
		   Set TemplateCmd = Nothing
		Case 0:
		   Response.Write "<option value='0'>网站通用模块</option>"
		Case -2:
		   Response.Write "<option value='-2'>网站会员模块</option>"
		Case Else:
	       Call EL_Common.InitCommonCmd(TemplateCmd, rsTemplate, "EL_Channel", "ChannelID, ChannelName", "ChannelModule="& ChannelModule)
		   rsTemplate.Close()
		   RowCount = TemplateCmd(0)
		   rsTemplate.Open()
		   For i=1 To RowCount
		      Response.Write "<option value='"& rsTemplate(0) &"'>"& rsTemplate(1) &"</option>"
		      If i<RowCount Then rsTemplate.MoveNext
		   Next
		   rsTemplate.Close()
		   Set rsTemplate = Nothing
		   Set TemplateCmd = Nothing
	  End Select
	%>
    </select>
	</td>
  </tr>
  <tr>
    <td colspan="3" align="center" class="td_50"><input type="button" name="Submit5" value=" 上一步 " onClick="history.back()">
      <input type="submit" name="Submit4" value="执行导入" <%=Disabled%>>
      <input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
      <input name="TempType" type="hidden" id="TempType" value="<%=TempType%>">
      <input name="TemplateType" type="hidden" id="TemplateType" value="<%=TemplateType%>">
      <input name="Action" type="hidden" id="Action" value="Import">
      <input name="ImportStep" type="hidden" id="ImportStep" value="3">
      <input name="TemplateData" type="hidden" id="TemplateData" value="<%=TemplateData%>"></td>
    </tr>
</table>
</form>
<%
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -