📄 admin_label.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
      </select>      </td>
      <td valign="top" class="td_25">&nbsp;</td>
      <td class="td_25">
	  <select name="SubField" size="1" multiple id="SubField" style="width:200px; height:150px;" onChange="PushToSQL()">
	  </select>	  </td>
    </tr>
    <tr>
      <td class="td_ItemName"><strong>SQL语句预览</strong></td>
      <td colspan="3" class="td_25"><textarea name="TSQL" cols="100" rows="5" id="TSQL" style="width:95%" readonly="readonly"></textarea></td>
    </tr>

    <tr>
      <td class="td_ItemName"><strong>参数列表</strong><br>
      每行一个参数</td>
      <td colspan="3" class="td_25"><table width="100%" border="0" cellspacing="1" cellpadding="0">
          <tr>
            <td width="30%"><textarea name="Parameters" cols="40" rows="5" id="Parameters" style="margin-right:5px;" onChange="PushParameter()" onKeyup="PushParameter()"></textarea></td>
            <td width="70%"><div id="ParametersList"></div></td>
          </tr>
        </table></td>
    </tr>
    <tr>
      <td class="td_ItemName"><strong>其他约束条件</strong></td>
      <td colspan="3" class="td_25"><textarea name="Where" cols="100" rows="3" id="Where" style="width:95%" onChange="PushToSQL()" onKeyUp="PushToSQL()"></textarea></td>
    </tr>
    <tr>
      <td class="td_ItemName"><strong>字段集合</strong><br>
        <span class="redText">字段</span> -&gt; <span class="BlueText">标签</span></td>
      <td colspan="3" class="td_25"><div id="LabelList"></div></td>
    </tr>
    <tr>
      <td class="td_ItemName"><strong>标签内容</strong></td>
      <td colspan="3" class="td_25"><textarea name="Content" rows="15" id="Content" style="width:95%"><div>[Loop]==循环内容==[/Loop]</div>
      </textarea></td>
    </tr>
    <tr>
      <td class="td_ItemName">&nbsp;</td>
      <td colspan="3" class="td_50"><input type="submit" name="Submit3" value="添加标签">
      <input name="Action" type="hidden" id="Action" value="Save">
      <input name="LabelType" type="hidden" id="LabelType" value="<%=LabelType%>"></td>
    </tr>
  </table>
</form>
<script>PushToSQL()</script>
<%
EL_Common.ShowScriptError()
End Sub

Sub ModifyStaticLabel()
On Error Resume Next
Dim LabelCmd, rsLabel
Dim LabelID

LabelID = EL_Common.ELRequest("LabelID", 2)
Call EL_Common.InitCommonCmd(LabelCmd, rsLabel, "EL_Label", "*", "LabelID="& LabelID &" And LabelType="& LabelType)
rsLabel.Close()
If LabelCmd(0) <> 1 Then
   EL_Common.ShowErrorMsg("指定标签不存在")
   Set rsLabel = Nothing
   Set LabelCmd = Nothing
   Exit Sub
End If
rsLabel.Open()
CurrentPath  = CurrentPath &" >> 修改"& ArrLabelType(LabelType)
%>
<script language="javascript">
function Check(frm){
  if(frm.LabelName.value.trim()=="" || frm.LabelName.value.trim().length<=3){
     alert("请输入标签名称");
	 frm.LabelName.focus();
	 return false;
  }else if(frm.LabelName.value.substring(0,3) != "MY_"){
     alert("标签名称必须以“MY_”开头");
	 frm.LabelName.focus();
	 return false;
  }
  
  if(frm.LabelLevel.value.trim()==""){
     alert("请输入优先级");
	 frm.LabelLevel.focus();
	 return false;
  }
  
  if(frm.Content.value.trim()==""){
     alert("请输入标签内容");
	 frm.Content.focus();
	 return false;
  }
  
  SubmitOnce(frm);
  return;
   
}
</script>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<form action="Admin_Label.asp" method="post" name="myform" 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="12%" class="td_ItemName"><strong>标签名称</strong><br></td>
    <td width="30%" class="td_25"><input name="LabelName" type="text" id="LabelName" value="<%=EL_Common.ServerHTMLEncode(rsLabel("LabelName"))%>" size="30"></td>
    <td width="58%" class="td_25" style="padding:5px;"><span class="redText">名称以“MY_”开头（英文要注意大小写），不输入定界符。在模板中调用标签时要加上定界符。
      如标签名称为“MY_Label1”，则在模板中这样调用：{$MY_Label1}</span></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>标签简介</strong></td>
    <td colspan="2" class="td_25"><textarea name="Intro" cols="80" rows="4" id="Intro"><%=EL_Common.ServerHTMLEncode(rsLabel("Intro"))%></textarea></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>优先级</strong></td>
    <td colspan="2" class="td_25"><table width="100%" border="0" cellspacing="1" cellpadding="0">
        <tr>
          <td width="9%"><input name="LabelLevel" type="text" id="LabelLevel" value="<%=rsLabel("LabelLevel")%>" size="10"></td>
          <td width="91%" class="redText" style="padding:5px;">数字越大，优先级越高。按优先级由大到小的顺序替换<BR>
            系统按照如下顺序来替换标签：自定义标签--&gt;系统通用标签--&gt;频道标签</td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td valign="top" class="td_ItemName"><strong>标签内容</strong></td>
    <td colspan="2" class="td_25"><textarea name="Content" rows="20" id="Content" style="width:95%"><%=EL_Common.ServerHTMLEncode(rsLabel("Content"))%></textarea></td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td colspan="2" class="td_50"><input type="submit" name="Submit" value="保存修改">
      <input type="button" name="Submit2" value="返回上页" onClick="history.back()">
      <input name="Action" type="hidden" id="Action" value="SaveModify">
      <input name="LabelID" type="hidden" id="LabelID" value="<%=LabelID%>"></td>
  </tr>
</table>
</form>
<%
rsLabel.Close()
Set rsLabel = Nothing
Set LabelCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub ManageLabel()
On Error Resume Next
Dim LabelCmd, rsLabel, SqlCondition, StrFields, i
Dim PageCounts, RowCount, TotalRowCount
StrFields = "LabelID,LabelName,LabelType,LabelLevel,Intro,Parameters"
SqlCondition = "1=1 "
If LabelType > 0 Then
   SqlCondition = SqlCondition &" And LabelType="& LabelType
   CurrentPath = CurrentPath &">> "& ArrLabelType(LabelType)
Else
   CurrentPath = CurrentPath &">> 所有标签"
End If

Call EL_Common.InitCommand(LabelCmd, "EL_SP_SplitPage")
With LabelCmd
  .Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
  .Parameters.Append .CreateParameter("@Tables", 200, 1, 50, "EL_Label")
  .Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "LabelID")
  .Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "LabelID DESC")
  .Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
  .Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
  .Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, StrFields)
  .Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, SqlCondition)
  .Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
  .Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
  .Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
  Set rsLabel = .Execute()
End With
rsLabel.Close()
RowCount = LabelCmd(0)
TotalRowCount = LabelCmd(9)
PageCounts = LabelCmd(10)

%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td class="top_25">| <a href="Admin_Label.asp?LabelType=0" class="white">所有标签</a> | <a href="Admin_Label.asp?LabelType=1" class="white">静态标签</a> | <a href="Admin_Label.asp?LabelType=2" class="white">动态标签</a> | </td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="33%" align="center" class="top_item"><strong>标签名称</strong></td>
    <td width="11%" align="center" class="top_item"><strong>类型</strong></td>
    <td width="6%" align="center" nowrap class="top_item"><strong>优先级</strong></td>
    <td width="41%" align="center" class="top_item"><strong>标签简介</strong></td>
    <td width="9%" align="center" class="top_item"><strong>相关操作</strong></td>
  </tr>
  <%
   If RowCount = 0 Then
     Response.Write "<tr><td class='td_50' colspan=5 align=center>没有任何"& ArrLabelType(LabelType) &"标签</td></tr>"
   Else
	 rsLabel.Open()
	 Dim arr, Para, j, s
	 For i = 1 To RowCount
  %>
  <tr class="td_25" onMouseOut="this.className='td_25'" onMouseOver="this.className='MouseOver_25'">
    <td style="padding-left:5px;">
	<%	  
	  If rsLabel(2) = 2 Then	     
		 Para = rsLabel(5)
		 s = ""
		 If Para <> "" And NOT ISNULL(Para) Then
		    arr = Split(Para, VBCRLF)
			s = "{$"& Trim(rsLabel(1)) &"("
			For j = 0 To UBound(arr)
			   s = s & arr(j) &", "
			Next
			s = Left(s, Len(s)-2)
			s = s &")}"
			Response.Write s
		 Else
		    Response.Write "{$"& rsLabel(1) &"}"
		 End If
	  Else
	     Response.Write "{$"& rsLabel(1) &"}"
	  End If
	%>	
	</td>
    <td align="center"><%=ArrLabelType(rsLabel(2))%></td>
    <td align="center"><%=rsLabel(3)%></td>
    <td style="padding-left:5px;"><%=rsLabel(4)%></td>
    <td align="center"><a href="<%=EL_CurrentScriptName%>?Action=Modify&LabelType=<%=rsLabel(2)%>&LabelID=<%=rsLabel(0)%>">修改</a> | <a href="<%=EL_CurrentScriptName%>?Action=Delete&LabelID=<%=rsLabel(0)%>">删除</a></td>
  </tr>
  <%
        If i<RowCount Then rsLabel.MoveNext
	  Next
	  rsLabel.Close()
	End If
  %>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td align="right"><%Call EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, "标签", "个")%></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td height="50"></td>
  </tr>
</table>
<%
Set rsLabel = Nothing
Set LabelCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub AddStaticLabel()
On Error Resume Next
CurrentPath = CurrentPath &">> 添加静态标签"
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<script language="javascript">
function Check(frm){
  if(frm.LabelName.value.trim()=="" || frm.LabelName.value.trim().length<=3){
     alert("请输入标签名称");
	 frm.LabelName.focus();
	 return false;
  }else if(frm.LabelName.value.substring(0,3) != "MY_"){
     alert("标签名称必须以“MY_”开头");
	 frm.LabelName.focus();
	 return false;
  }
  
  if(frm.LabelLevel.trim()==""){
     alert("请输入优先级");
	 frm.LabelLevel.focus();
	 return false;
  }
  
  if(frm.Content.trim()==""){
     alert("请输入标签内容");
	 frm.Content.focus();
	 return false;
  }
  
  SubmitOnce(frm);
  return;
   
}
</script>
<form name="myform" action="Admin_Label.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="12%" class="td_ItemName"><strong>标签名称</strong><br></td>
    <td width="30%" class="td_25"><input name="LabelName" type="text" id="LabelName" value="MY_" size="30"></td>
    <td width="58%" class="td_25" style="padding:5px;"><span class="redText">名称以“MY_”开头（英文要注意大小写），不输入定界符。在模板中调用标签时要加上定界符。
      如标签名称为“MY_Label1”，则在模板中这样调用：{$MY_Label1}</span></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>标签简介</strong></td>
    <td colspan="2" class="td_25"><textarea name="Intro" cols="80" rows="4" id="Intro"></textarea></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>优先级</strong></td>
    <td colspan="2" class="td_25"><table width="100%" border="0" cellspacing="1" cellpadding="0">
        <tr>
          <td width="9%"><input name="LabelLevel" type="text" id="LabelLevel" value="1" size="10"></td>
          <td width="91%" class="redText" style="padding:5px;">数字越大，优先级越高。<span class="redText" style="padding:5px;">按优先级由大到小的顺序替换</span><BR>
            系统按照如下顺序来替换标签：自定义标签--&gt;系统通用标签--&gt;频道标签</td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td valign="top" class="td_ItemName"><strong>标签内容</strong></td>
    <td colspan="2" class="td_25"><textarea name="Content" rows="20" id="Content" style="width:95%"></textarea></td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td colspan="2" class="td_50"><input type="submit" name="Submit" value="添加标签">
      <input type="button" name="Submit22" value="返回上页" onClick="history.back()">
      <input name="Action" type="hidden" id="Action" value="Save">
      <input name="LabelType" type="hidden" id="LabelType" value="<%=LabelType%>"></td>
  </tr>
</table>
</form>
<%
EL_Common.ShowScriptError()
End Sub
%>

</body>
</html>
上一页 1 2 3 45
💿 文件大小 4678 K
👤 上传用户 libin2722
📂 所属分类企业管理
🏷️ 相关标签

#Elan #2008 #SP #旅游
⌨️ 快捷键说明

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