<% '************************************************************************************************** ' 程序名称: 七禧舞曲管理系统 ' 程序作者: 花心萝卜 ' 官方网站: http://www.cmsdj.com http://www.7xiwl.com ' 编写日期: 2009年8月27日 ' 版权所有: 本程序由七禧网络开发，未经同意请勿用于商业用途 '************************************************************************************************** %> <% Dim Action Dim bll,ui Dim CD_ID,CD_Name,CD_TheOrder,CD_Template,CD_IsHide,CD_FatherID,tempName,CD_AliasName Dim arr1,arr2 Set CmsDjClass = New CmsDj_Com_DjClass action=Request.QueryString("action") Select Case Lcase(action) Case "saveadd" : Call SaveAdd() Case "editsave": Call EditSave() Case "del" : Call del() Case "unite":Call Unite() Case "exhide":Call ExHide() Case Else : Call Main() End Select Call Admin_FooterB %> <%Sub Main()%>

<% Dim Rs i=0 Set CmsDjClass= New CmsDj_Com_DjClass Set Rs=CmsDjClass.GetRs("",0,"order by CD_TheOrder asc") if not rs.eof then do while not rs.eof i=i+1 %> <% Response.Flush()'刷新 rs.movenext loop else %> <% end if rs.close set rs=nothing %>

分类管理
编号	中文名称	栏目属性	英文别名	频道模板	排序	状态	操作
" class="checkbox"/><%=rs("CD_ID")%>、	╄ " value="<%=rs("CD_Name")%>" size="20" /> ">(共 <% Dim RsA Set CmsDjMusic= New CmsDj_Com_Dj Set RsA=CmsDjMusic.GetRs("Count(*) as abc",0,"CD_ClassID="&rs("CD_ID")&"") Echo RsA("abc") %> 条)	" value="<%=rs("CD_SystemID")%>"><%If rs("CD_SystemID")="1" Then Response.Write "内部栏目" Else Response.Write "跳转网址" End If%>	" value="<%=rs("CD_AliasName")%>" size="25" />	" name="CD_Template<%=rs("CD_ID")%>" value="<%=rs("CD_Template")%>" size="15" /> ');" />	" value="<%=rs("CD_TheOrder")%>" size="5" onkeyup="this.value=this.value.replace(/[^\d]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))"/>	&CD_IsHide='+this.options[this.selectedIndex].value+'';"> >显示 >隐藏	';" class="rb1">
全选

添加分类
中文名称	英文别名	栏目属性	频道模板	排序	状态
		内部栏目跳转网址			显示隐藏
注意：选跳转网址的请在英文别名填上http地址

转移分类数据

将分类： <%=SelectFormGetB("选择分类",CmsDjClass.GetListOnCache(),"")%> 的数据转移到 <%=SelectFormGetB("选择分类",CmsDjClass.GetListOnCache(),"")%>

注意：操作前请先备份数据库，程序将前面的分类数据合并到后面分类后将不能再恢复原始分类，请一定要慎重操作!

<% End Sub Sub Unite() Dim ClassA,ClassB,Rs,Arr1,Arr2,CmsDjMusic Set CmsDjMusic = New CmsDj_Com_Dj ClassA=SafeRequest("Type_1","post") ClassB=SafeRequest("Type_2","post") IF ClassA="" or ClassA=0 Then Call AdminAlert("出错了，请选择要转移的分类！","Admin_Class.asp",1):Response.End IF ClassB="" or ClassB=0 Then Call AdminAlert("出错了，请选择要转移的分类！","Admin_Class.asp",1):Response.End IF Not IsNum(ClassA) Then Call AdminAlert("出错了，分类ID传输错误！","Admin_Class.asp",1):Response.End IF Not IsNum(ClassB) Then Call AdminAlert("出错了，分类ID传输错误！","Admin_Class.asp",1):Response.End Arr1=Array("CD_ClassID") Arr2=Array(ClassB) Set Rs=CmsDjMusic.GetRs("",0,"CD_ClassID="&ClassA&"") Do while not rs.eof Call CmsDjMusic.Update(Arr1,Arr2,"CD_ID="&Rs("CD_ID")&"") rs.movenext loop Call AdminAlert("恭喜您，分类数据转移成功！","Admin_Class.asp",0):Response.End End Sub Sub SaveAdd() CD_Name = SafeRequest("CD_Name","post") CD_AliasName=SafeRequest("CD_AliasName","post") CD_TheOrder = SafeRequest("CD_TheOrder","post") CD_Template = SafeRequest("CD_Template","post") CD_IsHide = SafeRequest("CD_IsHide","post") CD_SystemID = SafeRequest("CD_SystemID","post") IF Not IsNum(CD_TheOrder) Then Call AdminAlert("出错了，序号必须是数字型！","Admin_Class.asp",1) Response.End End If IF len(CD_Name) = 0 Then Call AdminAlert("分类名称不能为空！","Admin_Class.asp",1):Response.End IF len(CD_AliasName) = 0 Then Call AdminAlert("英文别名不能为空！","Admin_Class.asp",1):Response.End IF CD_SystemID=0 Then Dim RegExpstr Set RegExpstr = New RegExp RegExpstr.Pattern = "^[a-zA-Z][^\W_]*$" IF RegExpstr.test(CD_AliasName) = False Then Call AdminAlert("英文别名必须是数字或字母组成！","Admin_Class.asp",1) Response.End End IF End If '判断模版文件是否存在 Dim fso_v:Set fso_v = New CmsDj_Com_Fso Set CmsDjMold= New CmsDj_Com_Mold Set HtmlRs=CmsDjMold.GetRs("",0,"CD_TheOrder=1") CD_TemplateUrl=HtmlRs("CD_TempPath") IF Not fso_v.CheckFile(InstallDir&CD_TemplateUrl&CD_Template) Then Call AdminAlert("未找到"&CD_TemplateUrl&CD_Template&"模板文件！\n \n请使用默认模板文件List.html","Admin_Class.asp",1) Response.End End IF arr1=Array("CD_Name","CD_AliasName","CD_TheOrder","CD_Template","CD_IsHide","CD_SystemID","CD_FatherID","CD_TieID") arr2=Array(CD_Name,CD_AliasName,CD_TheOrder,CD_Template,CD_IsHide,CD_SystemID,0,0) Call CmsDjClass.add(arr1,arr2) Call Cache.RemoveAll() Call AdminAlert("恭喜您，添加分类成功！","Admin_Class.asp",0):Response.End End Sub Sub EditSave() Dim CD_ID,CD_Name,CD_AliasName,CD_Template,CmsDj_Com_A,CD_IsHide,i,arr1,arr2 Dim BllDjClass,CD_AliasName1,Rs Set BllDjClass =New CmsDj_Com_DjClass Set Rs=BllDjClass.GetRs("",0,"") CD_ID = SafeRequest("CD_ID","post") IF CD_ID="" Then Call AdminAlert("出错了，请选择要操作的分类！","Admin_Class.asp",1) Response.End End IF CD_ID=Split(CD_ID,", ") '判断模版文件是否存在 Dim fso_v:Set fso_v = New CmsDj_Com_Fso For Each ID In CD_ID CD_AliasName=SafeRequest("CD_AliasName"&ID&"","post") Do While Not Rs.Eof IF Cint(ID)<> Rs(0) Then CD_AliasName1=SafeRequest("CD_AliasName"&Rs(0)&"","post") IF CD_AliasName1=CD_AliasName Then Call AdminAlert("出错了，英文别名不能重复！","Admin_Class.asp",1):Response.End End IF Rs.MoveNext Loop Rs.MoveFirst Next Rs.Close For Each ID In CD_ID CD_Name = trim(request.form("CD_Name"&ID)) CD_AliasName = trim(request.form("CD_AliasName"&ID)) CD_Template = trim(request.form("CD_Template"&ID)) CD_TheOrder = trim(request.form("CD_TheOrder"&ID)) CD_SystemID = trim(request.form("CD_SystemID"&ID)) IF len(CD_AliasName) > 50 Then Call AdminAlert("英文别名长度不能超过50个字符！","Admin_Class.asp",1):Response.End IF len(CD_Name) > 50 Then Call AdminAlert("分类名称不能超过50个字符！","Admin_Class.asp",1):Response.End IF len(CD_Template) > 30 Then Call AdminAlert("出错了，模板名不能超过30个字符！","Admin_Class.asp",1):Response.End IF IsNul(CD_Name) Or IsNul(CD_AliasName) Or Isnul(CD_Template) Then Call AdminAlert("出错了，信息填写不完整!","Admin_Class.asp",1):Response.End IF Not IsNum(CD_TheOrder) Then Call AdminAlert("出错了，序号必须是数字型！","Admin_Class.asp",1) Response.End End If IF CD_SystemID=0 Then Dim RegExpstr Set RegExpstr = New RegExp RegExpstr.Pattern = "^[a-zA-Z][^\W_]*$" IF RegExpstr.test(CD_AliasName) = False Then Call AdminAlert("英文别名必须是数字或字母组成！","Admin_Class.asp",1) Response.End End IF End If Set CmsDjMold= New CmsDj_Com_Mold Set HtmlRs=CmsDjMold.GetRs("",0,"CD_TheOrder=1") CD_TemplateUrl=HtmlRs("CD_TempPath") IF Not fso_v.CheckFile(InstallDir&CD_TemplateUrl&CD_Template) Then Call AdminAlert("未找到"&CD_Template&"模板文件！
请使用默认模板文件List.html","Admin_Class.asp",1) Response.End End IF arr1=Array("CD_Name","CD_AliasName","CD_Template","CD_TheOrder") arr2=Array(CD_Name,CD_AliasName,CD_Template,CD_TheOrder) Call CmsDjClass.UpDate(arr1,arr2,"CD_ID="&ID) Next Call Cache.RemoveAll() Call AdminAlert("恭喜您，分类更新成功！","Admin_Class.asp",0):Response.End End Sub Sub del() Dim CD_ID,CmsDjMusic,Rs Set CmsDjMusic = New CmsDj_Com_Dj CD_ID = SafeRequest("CD_ID","get") Call CmsDjClass.del("CD_ID="&CD_ID) Set Rs=CmsDjMusic.GetRs("",0,"CD_ClassID="&CD_ID&"") Do while not rs.eof Call CmsDjMusic.del("CD_ID="&Rs("CD_ID")&"") Rs.movenext Loop Call Cache.ReMoveAll() Call AdminAlert("恭喜您，分类删除成功！","Admin_Class.asp",0):Response.End End Sub Sub ExHide() Dim Arr1,Arr2 Dim CD_ID:CD_ID=SafeRequest("CD_ID","get") Dim CD_IsHide:CD_IsHide=SafeRequest("CD_IsHide","get") IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，参数传输错误","Admin_Class.asp",0):Response.End IF Not IsNum(CD_IsHide) Then CD_IsHide=1 Arr1=Array("CD_IsHide") Arr2=Array(CD_IsHide) Call CmsDjClass.Update(Arr1,Arr2,"CD_ID="&CD_ID&"") Call AdminAlert("恭喜您，分类更新成功！","Admin_Class.asp",0):Response.End End Sub %>