📄 addfreetwo.asp

📁 后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
	End If
	GetRightSeFields = GetRightSeFields & "</select>" & vbnewline	
End Function


'====================================================
'本页表单提交
'====================================================
If Request.Form("Action") = "submit" Then
	Label_DesStr = Request.Form("Label_Des")
	Lable_Content = Request.Form("Style_Txt")
	Lable_Sql_Str = Request.Form("Sql_ConStr")
	LabelID = Request.Form("LabelID")
	LNameStr = Trim(Request.Form("LableName"))
	If Lable_Sql_Str = "" Then
		InfoTitle = Server.URLEncode("出错啦")
		InfoType = Server.URLEncode("ER")
		InfoContent = Server.URLEncode("<li>查询SQL语句不能为空</li>")
		ReturnUrl = Server.URLEncode("")
		Response.Redirect "ShowInfo.asp?Str_T=" & InfoTitle & "&Str_C=" & InfoType & "&Con_Str=" & InfoContent & "&Str_U=" & ReturnUrl & ""
		Response.End
	End If		
	If Len(Label_DesStr) > 100 Then
		InfoTitle = Server.URLEncode("出错啦")
		InfoType = Server.URLEncode("ER")
		InfoContent = Server.URLEncode("<li>标签描述太长了，不能超过100个字符</li>")
		ReturnUrl = Server.URLEncode("")
		Response.Redirect "ShowInfo.asp?Str_T=" & InfoTitle & "&Str_C=" & InfoType & "&Con_Str=" & InfoContent & "&Str_U=" & ReturnUrl & ""
		Response.End
	End If
	If Lable_Content <> "" Then
		Lable_Content = Replace(Lable_Content,"'","")
	Else
		InfoTitle = Server.URLEncode("出错啦")
		InfoType = Server.URLEncode("ER")
		InfoContent = Server.URLEncode("<li>标签内容不能为空</li>")
		ReturnUrl = Server.URLEncode("")
		Response.Redirect "ShowInfo.asp?Str_T=" & InfoTitle & "&Str_C=" & InfoType & "&Con_Str=" & InfoContent & "&Str_U=" & ReturnUrl & ""
		Response.End
	End If		
	On Error Resume Next
	Set AddRs = Server.CreateObject(G_FS_RS)
	If LabelID <> "" And Len(LabelID) = 15 Then
		Set CheckNameRs = Conn.ExeCute("Select LabelName From FS_MF_FreeLabel Where LabelName = '" & LNameStr & "' And LabelID <> '" & LabelID & "'")
		IF Not CheckNameRs.Eof Then
			InfoTitle = Server.URLEncode("出错啦")
			InfoType = Server.URLEncode("ER")
			InfoContent = Server.URLEncode("<li>标签名称不能重复</li>")
			ReturnUrl = Server.URLEncode("")
			Response.Redirect "ShowInfo.asp?Str_T=" & InfoTitle & "&Str_C=" & InfoType & "&Con_Str=" & InfoContent & "&Str_U=" & ReturnUrl & ""
			Response.End
		End If
		CheckNameRs.Close : Set CheckNameRs = Nothing
		AddSql = "Select LabelID,LabelName,LabelSQl,NSFields,NCFields,LabelContent,selectNum,DesCon,SysType From FS_MF_FreeLabel Where LabelID = '" & LabelID & "'"
		AddRs.Open AddSql,Conn,1,3
	Else
		Set CheckNameRs = Conn.ExeCute("Select LabelName From FS_MF_FreeLabel Where LabelName = '" & LNameStr & "'")
		IF Not CheckNameRs.Eof Then
			InfoTitle = Server.URLEncode("出错啦")
			InfoType = Server.URLEncode("ER")
			InfoContent = Server.URLEncode("<li>标签名称不能重复</li>")
			ReturnUrl = Server.URLEncode("")
			Response.Redirect "ShowInfo.asp?Str_T=" & InfoTitle & "&Str_C=" & InfoType & "&Con_Str=" & InfoContent & "&Str_U=" & ReturnUrl & ""
			Response.End
		End If
		CheckNameRs.Close : Set CheckNameRs = Nothing
		AddSql = "Select LabelID,LabelName,LabelSQl,NSFields,NCFields,LabelContent,selectNum,DesCon,SysType From FS_MF_FreeLabel Where 1=2"
		AddRs.Open AddSql,Conn,1,3
		AddRs.AddNew
		AddRs(0) = GetRamCode(15)
	End If
	AddRs(1) = LNameStr
	AddRs(2) = Lable_Sql_Str
	AddRs(3) = Request.Form("Ns_FieldsStr")
	AddRs(4) = Request.Form("Nc_fieldsStr")
	AddRs(5) = Lable_Content
	AddRs(6) = Request.Form("Select_num")
	AddRs(7) = Label_DesStr
	AddRs(8) = Request.Form("LabelType")
	AddRs.Update
	AddRs.Close : Set AddRs = Nothing
	If Err.Number <> 0 Then
		InfoTitle = Server.URLEncode("出错啦")
		InfoType = Server.URLEncode("ER")
		InfoContent = Server.URLEncode("<li>" & Err.Description & "</li>")
		ReturnUrl = Server.URLEncode("")
		Response.Redirect "ShowInfo.asp?Str_T=" & InfoTitle & "&Str_C=" & InfoType & "&Con_Str=" & InfoContent & "&Str_U=" & ReturnUrl & ""
		Response.End
	Else
		InfoTitle = Server.URLEncode("操作成功")
		InfoType = Server.URLEncode("OK")
		InfoContent = Server.URLEncode("")
		ReturnUrl = Server.URLEncode("FreeLabelList.asp")
		Response.Redirect "ShowInfo.asp?Str_T=" & InfoTitle & "&Str_C=" & InfoType & "&Con_Str=" & InfoContent & "&Str_U=" & ReturnUrl & ""
		Response.End
	End If		
End If
%>
<html>
<head>
<title>自由标签管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
</head>
<script language="JavaScript" src="../../FS_Inc/Prototype.js" type="text/JavaScript"></script>
<script language="JavaScript" type="text/javascript" src="../../Editor/FS_scripts/editor.js"></script>
<script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
<script language="JavaScript" type="text/javascript" src="../../FS_Inc/Get_Domain.asp"></script>
<body>
<table width="98%" height="40" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  <tr class="hback" >
    <td width="100%" height="20"  align="Left" class="xingmu" valign="middle">创建自由标签</td>
  </tr>
  <tr class="hback" >
    <td height="20" align="center" class="hback" valign="middle"><div style="line-height:20px; text-align:left;"><span onClick="javascript:history.back();" style="cursor:hand;">上一步</span>┆<span onClick="SubmitFun()" style="cursor:hand;">保存</span></div></td>
  </tr>
</table>
<form name="List_Form" id="List_Form" action="" method="post" style="margin:0px;">
<input name="Action" id="Action" type="hidden" value="submit">
<table width="98%" height="50" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  <tr class="hback">
    <td width="10%" height="20" align="right" valign="middle">标签名称：</td>
    <td height="20" align="left" valign="middle">
	<input name="LableName" id="LableName" type="text" readonly value="<% = LabelName %>">
	<input name="LabelType" id="LabelType" type="hidden" value="<% = LabelType %>">
	<input name="Select_num" id="Select_num" type="hidden" value="<% = Select_num %>">
	<input name="Nc_fieldsStr" id="Nc_fieldsStr" type="hidden" value="<% = Nc_fieldsStr %>">
	<input name="Ns_FieldsStr" id="Ns_FieldsStr" type="hidden" value="<% = Ns_FieldsStr %>">
	<input name="LabelID" id="LabelID" type="hidden" value="<% = LabelID %>">
	<textarea name="Sql_ConStr" id="Sql_ConStr" style="display:none" ><% = Sql_ConStr %></textarea>
	</td>
  </tr>
  <tr class="hback">
    <td width="10%" height="20" align="right" valign="middle">标签说明：</td>
    <td height="20" align="left" valign="middle">
		<input name="Label_Des" id="Label_Des" type="text" style="width:40%" value="<% = Label_DesStr %>">
		<span class="tx" style="margin-left:20px;">标签说明文字，100字以内</span>
	</td>
  </tr>
  <tr class="hback">
    <td width="10%" height="20" align="right" valign="middle">预定义字段：</td>
    <td height="20" align="left" valign="middle">
	<% = Auto_Fields_Str %>
	<span class="tx" style="margin-left:20px;">见说明 1</span>
	</td>
  </tr>
  <tr class="hback">
    <td width="10%" height="20" align="right" valign="middle">可用字段：</td>
    <td height="20" align="left" valign="middle">
	<% = Dis_AllFields %>
	<span class="tx" style="margin-left:20px;">需要上一步选择字段。</span>
	</td>
  </tr>
  <tr class="hback">
    <td width="10%" height="20" align="right" valign="middle">日期样式：</td>
    <td height="20" align="left" valign="middle">
	<input name="Date_Style" id="Date_Style" type="text" style="width:20%" value="YY02年MM月DD日">
	<input type="button" value="插入" name="InsertTime" id="InsertTime" onClick="InsertTimeToHTML()">
	<span class="tx" style="margin-left:20px;">需要选择时间字段，格式见说明 2</span>
	</td>
  </tr>
 <tr class="hback">
    <td width="10%" height="20" align="right" valign="middle">标签内容：</td>
    <td height="20" align="left" valign="middle">
	<span class="tx">由HTML代码加所选择字段、自定义函数组成，用来定义查询记录的显示样式</span>
	</td>
  </tr>
  <tr class="hback">
    <td colspan="2" align="center" valign="middle" height="200">
		<!--编辑器开始-->
        <pre id="idTemporary" name="idTemporary" style="display:none"><% If Str_Lable_ConStr <> "" And Not IsNull(Str_Lable_ConStr) Then Response.Write Server.HTMLEncode(Str_Lable_ConStr) %></pre>
        <script language="JavaScript">
					<!--
						var FS_Edit1 = new InnovaEditor("FS_Edit1");
						FS_Edit1.cmdAssetManager="modalDialogShow('../../<% = G_ADMIN_DIR %>/CommPages/SelectManageDir/SelectPic.asp?CurrPath=<% = str_CurrPath %>',670,450)";
						FS_Edit1.width="100%";
						FS_Edit1.height="200";
						FS_Edit1.btnFlash=true;
						FS_Edit1.btnMedia=true;        
						FS_Edit1.btnCustomTag=true;
						FS_Edit1.btnHTMLSource=true;
						FS_Edit1.btnXHTMLSource=false;
						FS_Edit1.arrCustomTag=[["Fs:Page","[FS:PAGE]"]];
						FS_Edit1.RENDER($("idTemporary").innerHTML);
					//-->
				</script>
		<textarea name="Style_Txt" id="Style_Txt" style="display:none" ></textarea>
        <!--编辑器结束-->	</td>
  </tr>
</table>
</form>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  <tr class="hback" >
    <td width="100%" height="20"  align="Left" valign="middle"><span class="tx">说明：</span></td>
  </tr>
 <tr class="hback" >
    <td width="100%" height="20"  align="Left" valign="middle"><span class="tx">1.预定义字段需要选择各自对应编号。如新闻浏览路径需要选择新闻编号，栏目浏览路径需要选择栏目编号(注意：是新闻编号，不是编号)。</span></td>
  </tr>
  <tr class="hback" >
    <td width="100%" height="20"  align="Left" valign="middle"><span class="tx">2.日期格式:YY02代表2位的年份(如06表示2006年),YY04表示4位数的年份(2006)，MM代表月，DD代表日，HH代表小时，MI代表分，SS代表秒。</span></td>
  </tr>
  <tr class="hback" >
    <td width="100%" height="20"  align="Left" valign="middle"><span class="tx">3.自定义函数：循环内容{#...#}、不循环内容{*n...*}(n>0)代表记录序号、函数(#...#)；如(#Left([*FS_News.Title*],20)#)</span></td>
  </tr>
</table>
</body>
</html>

<script language="javascript" type="text/javascript">
<!--

//字段值插入编辑器
function InsertToHTMl(str)
{
	if (str == '')
	{
		return;
	}
	FS_Edit1.insertHTML(str);
}

//字段值插入编辑器
function InsertTimeToHTML()
{
	var Str = '';
	var time_Str = $('Date_Style').value;
	if (time_Str == '')
	{
		return;
	}
	Str = '[$' + time_Str + '$]';
	InsertToHTMl(Str)
}

//提交表单
function SubmitFun()
{
	document.List_Form.Style_Txt.value = FS_Edit1.getHTMLBody();
	var Txt_Str = document.List_Form.Style_Txt.value;
	if (Txt_Str == '')
	{
		alert('标签内容不能为空');
		return;
	}
	document.List_Form.submit();
}
-->
-->
</script>
上一页 12
⌨️ 快捷键说明

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