<% '************************************************************************************************** ' 程序名称: 七禧舞曲管理系统 ' 程序作者: 花心萝卜 ' 官方网站: http://www.cmsdj.com http://www.7xiwl.com ' 编写日期: 2009年8月27日 ' 版权所有: 本程序由七禧网络开发，未经同意请勿用于商业用途 '************************************************************************************************** %> 自定义标签管理
  rb2<%Else%>rb1<%end if%>" onClick="location='Admin_Label.asp';" value='管理首页' /> rb2<%Else%>rb1<%end if%>" onClick="location='?action=add';" value='添加新标签' /> rb2<%Else%>rb1<%end if%>" onClick="location='?action=import';" value='导入标签' /> rb2<%Else%>rb1<%end if%>" onClick="location='?action=export';" value='导出标签' />
<% Dim Action,CD_ClassID,page Dim CD_ID,CD_Name Dim arr1,arr2 Dim key,HttpUrl Dim CmsDjLabel:Set CmsDjLabel = New CmsDj_Com_Label action=Request.QueryString("action") page=int(request.QueryString ("page")) key=request.QueryString("key") Select Case Lcase(action) Case "add":Call Add() Case "edit":Call Edit() Case "saveadd" : Call SaveAdd() Case "saveedit": Call SaveEdit() Case "del" : Call Del() Case "import" : Call AdminAlert("对不起，导入标签功能未开放！","Admin_Label.asp",0):Response.End Case "export" : Call AdminAlert("对不起，导出标签功能未开放！","Admin_Label.asp",0):Response.End Case Else : Call Main() End Select Call Admin_FooterB %> <% Sub EditBoard(ActionUrl,ActionName,emValues) IF IsArray(emValues) Then CD_Name = emValues(0) CD_Type = emValues(1) CD_SelfLable = emValues(2) CD_Remark = emValues(3) CD_Priority = emValues(4) End IF IF Not IsNum(CD_Priority) Then CD_Priority=10 %>
 <%=ActionName%>自定义标签
 自定义标签名称：  {$MY_} * 输入名称（英文要注意大小写）即可，不用输入定界符，不可重复。
 自定义标签分类：  *
 自定义标签描述：  *
 标签优先等级：  * 数字越小，优先级越高。当标签中再嵌套调用其他标签时，就需要决定标签的优先级。
 自定义标签内容：   * 支持所有标签。
 ">   
<% End Sub Sub Main() %>
 自定义标签管理
   #FF0000<%end if%>">全部分类 | <% Set rsbb=CmsDjLabel.GetRs("distinct (CD_Type)",0,"") do while not rsbb.eof response.write ""&rsbb("CD_Type")&" | " rsbb.movenext loop rsbb.close set rsbb=nothing %>
<% Dim Rs,SqlA if page<=0 or page="" then page=1'初始化分页参数 i=0 If key<>"" Then SqlA="CD_Type='"&key&"' order by CD_AddTime desc" Else SqlA="order by CD_AddTime desc" End If Set Rs=CmsDjLabel.GetRs("",0,SqlA) If Not(rs.bof And rs.EOF) Then rs.pagesize=15 '每页数据 rs.AbsolutePage=page m=rs.recordcount '总记录 n=rs.PageCount '总页数 z=rs.pagesize '每页数量 do while not rs.eof and i <% rs.movenext loop Else %> <% End If rs.Close Set rs=nothing %>
编号 调试代码 优先级  标签说明 添加时间 操作
<%=rs("CD_ID")%> }', '标签 {$MY_<%=rs("CD_Name")%>} 复制成功')">{$MY_<%=rs("CD_Name")%>} <%=rs("CD_Priority")%>  <%=rs("CD_Remark")%> <%If Cstr(FormatDatetime(Rs("CD_AddTime"),2))=Cstr(Date()) Then Response.Write""&FormatDateTime(Rs("CD_Addtime"),0)&"" Else Response.Write""&FormatDatetime(Rs("CD_AddTime"),0)%> ">编辑 " onClick="return confirm('确定将标签删除吗?');">删除


没有自定义标签
<%=List_Page(m,z,page,"?action="&action&"&key="&key&"&",15,7)%>
<% End Sub Sub Add() Call EditBoard("?action=SaveAdd","添加","") End Sub Sub SaveEdit() CD_ID= SafeRequest("CD_ID","auto") IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0):Response.End CD_Name = SafeRequest("CD_Name","post") CD_Type = SafeRequest("CD_Type","post") CD_SelfLable = SafeRequest("CD_SelfLable","post") CD_Remark = SafeRequest("CD_Remark","post") CD_Priority = SafeRequest("CD_Priority","post") CD_HttpUrl = SafeRequest("CD_HttpUrl","post") Arr1=Array("CD_Name","CD_Type","CD_SelfLable","CD_Remark","CD_Priority") Arr2=Array(CD_Name,CD_Type,CD_SelfLable,CD_Remark,CD_Priority) Call CmsDjLabel.update(Arr1,Arr2,"CD_ID="&CD_ID) Call AdminAlert("恭喜您，编辑自定义标签成功！",CD_HttpUrl,0) Response.End End Sub Sub Edit() CD_ID = SafeRequest("CD_ID","get") IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0):Response.End Set Rs = CmsDjLabel.GetRs("",0,"CD_ID="&CD_ID) CD_ID = Rs("CD_ID") CD_Name = Rs("CD_Name") CD_Type = Rs("CD_Type") CD_SelfLable = Rs("CD_SelfLable") CD_Remark = Rs("CD_Remark") CD_Priority = Rs("CD_Priority") Arr1=Array(CD_Name,CD_Type,CD_SelfLable,CD_Remark,CD_Priority) Call EditBoard("?action=SaveEdit&CD_ID="&CD_ID,"编辑",Arr1) End Sub Sub SaveAdd() CD_Name = SafeRequest("CD_Name","post") CD_Type = SafeRequest("CD_Type","post") CD_SelfLable = SafeRequest("CD_SelfLable","post") CD_Remark = SafeRequest("CD_Remark","post") CD_Priority = SafeRequest("CD_Priority","post") Arr1=Array("CD_Name","CD_Type","CD_SelfLable","CD_Remark","CD_Priority","CD_AddTime") Arr2=Array(CD_Name,CD_Type,CD_SelfLable,CD_Remark,CD_Priority,Now()) Call CmsDjLabel.add(Arr1,Arr2) Call AdminAlert("恭喜您，添加自定义标签成功！","Admin_Label.asp",0) Response.End End Sub Sub Del() CD_ID = SafeRequest("CD_ID","get") IF CD_ID="" Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0) Response.End End IF Call CmsDjLabel.del("CD_ID="&CD_ID) Call AdminAlert("恭喜您，删除自定义标签成功！",Request.ServerVariables("HTTP_REFERER"),0) Response.End End Sub %>