📄 all_label_style.asp
字号:
If cPageNo>obj_Label_Rs.PageCount Then cPageNo=obj_Label_Rs.PageCount
If cPageNo<=0 Then cPageNo=1
obj_Label_Rs.AbsolutePage=cPageNo
For int_Start=1 TO int_RPP
%>
<tr class="hback">
<td width="8%" class="hback" align="center"><% = obj_Label_Rs("ID") %></td>
<td width="32%" class="hback">· <a href="All_Label_style.asp?Action=Add&type=edit&id=<%= obj_Label_Rs("id")%>&Label_Sub=<%= obj_Label_Rs("StyleType")%>&ClassID=<% If Request.QueryString("ClassId")<>"" And IsNumeric(Request.QueryString("ClassId")) Then : Response.Write Request.QueryString("ClassId") : Else : Response.Write "0" : End IF %>" target="_self">
<% = obj_Label_Rs("StyleName") %>
</a></td>
<td width="25%" class="hback" id=item$pval[CatID]) style="CURSOR: hand" onmouseup="opencat(Label<%=obj_Label_Rs("ID")%>);" language=javascript>引用样式查看</td>
<td width="14%"><% = obj_Label_Rs("StyleType")%>
</td>
<td width="21%"><a href="All_Label_style.asp?id=<%=obj_Label_Rs("ID")%>&Label_Sub=<%=obj_Label_Rs("StyleType")%>&DelTF=1" onClick="{if(confirm('确定删除此引用样式吗？')){return true;}return false;}">删除</a></td>
</tr>
<tr id="Label<%=obj_Label_Rs("ID")%>" style="display:none" class="hback">
<td height="42" colspan="7" class="hback"><table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<tr>
<td height="48" class="hback"><%
Dim regEx,result
Set regEx = New RegExp '
regEx.Pattern = "<img(.+?){(.+?)}(.+?)>" '
regEx.IgnoreCase = true '
regEx.Global = True '
result = regEx.replace(obj_label_Rs("Content"),"<img src='../images/default.png'/>")
Response.Write(result)
%>
</td>
</tr>
</table></td>
</tr>
<%
obj_Label_Rs.MoveNext
If obj_Label_Rs.Eof or obj_Label_Rs.Bof Then Exit For
Next
'Response.Write "<tr><td class=""hback"" colspan=""7"" align=""left"">"&fPageCount(obj_Label_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)&" 全选<input type=""checkbox"" name=""Checkallbox"" onclick=""javascript:CheckAll('Checkallbox');"" value=""0""></td></tr>"
End If
%>
<tr class="hback">
<td height="21" colspan="7" class="hback"><span class="tx">点击样式标题修改样式</span> </td>
</tr>
</table>
<div align="center"></div>
<p>
<%
End Sub
%>
<%
Sub Add()
dim str_id,tmp_id,tmp_StyleName,tmp_Content,tmp_Action,labelclassidd
str_id = NoSqlHack(Request.QueryString("id"))
if Request.QueryString("type")="edit" then
Set obj_Label_Rs = server.CreateObject(G_FS_RS)
obj_Label_Rs.Open "Select ID,StyleName,LoopContent,Content,AddDate,StyleType,LableClassID from FS_MF_Labestyle where id="& str_id &"",Conn,1,3
tmp_id = obj_Label_Rs("id")
tmp_StyleName = obj_Label_Rs("StyleName")
tmp_Content = obj_Label_Rs("Content")
labelclassidd=obj_Label_Rs("LableClassID")
tmp_Action = "Add_edit"
Else
tmp_id = ""
tmp_StyleName = ""
tmp_Content = ""
labelclassidd=""
tmp_Action = "Add_save"
End if
%>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
<tr class="xingmu">
<td colspan="2" class="xingmu">创建标签引用样式(最多允许建立<span class="tx"><% = GetStyleMaxNum %></span>个样式)</td>
</tr>
<form name="Label_Form" method="post" action="" target="_self">
<tr class="hback">
<td width="13%"><div align="right"> 样式名称</div></td>
<td width="87%"><input name="StyleName" type="text" id="StyleName" size="40" value="<% = tmp_StyleName %>">
<input name="id" type="hidden" id="id" value="<% = tmp_id %>">
<!----2/1/ by chen 选择样式分类 开始---------------->
<select name="LableClassID" id="LableClassID">
<option value="0">选择所属栏目</option>
<%
dim class_rs_obj
set class_rs_obj=Conn.execute("select id,ParentID,ClassName From FS_MF_StyleClass where ParentID=0 order by id desc")
do while not class_rs_obj.eof
If CStr(Request.QueryString("ClassID"))=CStr(class_rs_obj("id")) Then
response.Write "<option value="""&class_rs_obj("id")&""" selected >"&class_rs_obj("ClassName")&"</option>"
Else
response.Write "<option value="""&class_rs_obj("id")&""">"&class_rs_obj("ClassName")&"</option>"
End If
response.Write get_childList(class_rs_obj("id"),"")
class_rs_obj.movenext
loop
class_rs_obj.close:set class_rs_obj=nothing
%>
</select>
<!----2/1/ by chen 选择样式分类 结束---------------->
</td>
</tr>
<tr class="hback">
<td><div align="right">插入字段</div></td>
<td><%
Dim Label_Sub
Label_Sub = NoSqlHack(Request.QueryString("Label_Sub"))
select case Label_Sub
case "NS"
Call NS_select()
case "DS"
Call DS_select()
case "SD"
Call SD_select()
case "HS"
Call HS_select()
case "AP"
Call AP_select()
case "MS"
Call MS_select()
case "ME"
Call ME_select()
Case "Login"
Call ME_Login()
case else
Call NS_select()
end select
%>
</tr>
<tr class="hback" <%if request.QueryString("Label_Sub")<>"DS" then response.Write("style=""display:'none';""") else response.Write("style=""display:'';"" ") end if%>> </tr>
<tr class="hback">
<td><div align="right">样式内容</div></td>
<td><!--编辑器开始-->
<pre id="idTemporary" name="idTemporary" style="display:none"><%=Server.HTMLEncode(tmp_Content)%></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="280";
FS_Edit1.btnFlash=true;
FS_Edit1.btnMedia=true;
FS_Edit1.btnCustomTag=true;
FS_Edit1.btnHTMLSource=true;
FS_Edit1.btnXHTMLSource=true;
FS_Edit1.arrCustomTag=[["Fs:Page","[FS:PAGE]"]];
FS_Edit1.RENDER($("idTemporary").innerHTML);
//-->
</script>
<textarea name="TxtFileds" style="display:none" ></textarea>
<!--编辑器结束-->
</td>
</tr>
<tr class="hback">
<td> </td>
<td><span class="tx">特别提醒。对于高级技术人员（对html相当熟悉的人员），你可以在标签引用样式里随心所欲的写html样式，达到灵活处理前台页面的效果；对于对html不太熟悉的人员，请查看帮助文档或者插入简单的标签样式就可以！</span></td>
</tr>
<tr class="hback">
<td> </td>
<td><%
if tmp_Action = "Add_save" then
dim obj_Count_rs_1,tmp_str,tmp_display
Set obj_Count_rs_1 = server.CreateObject(G_FS_RS)
obj_Count_rs_1.Open "Select StyleName,Content,AddDate from FS_MF_Labestyle where StyleType='NS' Order by id desc",Conn,1,3
if Not obj_Count_rs_1.eof then
if obj_Count_rs_1.recordcount>GetStyleMaxNum then
tmp_str = "--标签样式已经超过" & GetStyleMaxNum & "个,不能创建。"
tmp_display = "disabled"
Else
tmp_str = ""
tmp_display = ""
End if
Else
tmp_str = ""
tmp_display = ""
End if
Else
tmp_str = ""
tmp_display = ""
End if
%>
<input type="submit" name="Submit" value="以HTML保存样式<% = tmp_str %>"<% = tmp_display %> onClick="return Label_Form_sumit(this.form,1);">
<input name="Action" type="hidden" id="Action" value="<% = tmp_Action %>" >
<input name="Label_Sub" type="hidden" value="<%=Request.QueryString("Label_Sub")%>">
<input type="submit" name="Submit3" value="以XHTML保存样式<% = tmp_str %>"<% = tmp_display %> onClick="return Label_Form_sumit(this.form,0);">
<input type="reset" name="Submit2" value="重置">
</td>
</tr>
</form>
</table>
<script language="JavaScript" type="text/JavaScript">
function Label_Form_sumit(FormObj,IsHTML)
{
if(FormObj.StyleName.value == "")
{
alert("请填写标签名称")
FormObj.StyleName.focus();
return false;
}
if (IsHTML==1)
{
FormObj.TxtFileds.value = FS_Edit1.getHTMLBody();////////以HTML方式保存
}
else
{
FormObj.TxtFileds.value = FS_Edit1.getXHTMLBody();////////以XHTML方式保存
}
if(FormObj.TxtFileds.value == "")
{
alert("请输入标签样式内容")
return false;
}
return true;
}
function Insertlabel_Sel(Lable_obj)
{
if(Lable_obj.options[Lable_obj.selectedIndex].value==''){
return false;
}else{
InsertEditor(Lable_obj.options[Lable_obj.selectedIndex].value);
}
}
function InsertEditor(InsertValue)
{
FS_Edit1.insertHTML(InsertValue);
}
</script>
<%
End Sub
sub NS_select()
'得到自定义字段
dim ns_D_rs,ns_list
ns_list = ""
set ns_D_rs = Server.CreateObject(G_FS_RS)
ns_D_rs.open "select D_Coul,D_Name From FS_MF_DefineTable where D_SubType='NS'",Conn,1,3
if ns_D_rs.eof then
ns_list =ns_list& "<option value="">没有自定义字段</option>"
ns_D_rs.close:set ns_D_rs=nothing
else
do while not ns_D_rs.eof
ns_list = ns_list & "<option value=""{NS=Define|"&ns_D_rs("D_Coul")&"}"">"& ns_D_rs("D_Name")&"</option>"
ns_D_rs.movenext
loop
ns_D_rs.close:set ns_D_rs=nothing
end if
%>
<select name="NewsFields" onChange="Insertlabel_Sel(this)">
<option value="" style="background:#88AEFF;color:000000">┄┄基本字段┄┄</option>
<option value="{NS:FS_ID}">自动编号</option>
<option value="{NS:FS_NewsID}">NewsID</option>
<option value="<a href={NS:FS_NewsURL}>{NS:FS_NewsTitle}</a>">新闻标题(截断)</option>
<option value="{NS:FS_NewsTitleAll}">新闻完整标题</option>
<option value="{NS:FS_NewsURL}"> 新闻访问路径</option>
<option value="{NS:FS_CurtTitle}"> 新闻副标题</option>
<option value="{NS:FS_NewsNaviContent}"> 新闻导读</option>
<option value="{NS:FS_Content}"> 新闻内容</option>
<option value="{NS:FS_AddTime}"> 新闻添加日期</option>
<option value="{NS:FS_Author}"> 新闻作者</option>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -