<% '************************************************************************************************** ' 程序名称: 七禧舞曲管理系统 ' 程序作者: 花心萝卜 ' 官方网站: http://www.cmsdj.com http://www.7xiwl.com ' 编写日期: 2009年8月27日 ' 版权所有: 本程序由七禧网络开发，未经同意请勿用于商业用途 '************************************************************************************************** %> 模板管理 <% Dim Action Dim CD_ID,CD_Name,CD_TheOrder,CD_TempPath Dim arr1,arr2 Set CmsDjMold= New CmsDj_Com_Mold action=Request.QueryString("action") Select Case Lcase(action) Case "add" : Call Add() Case "edit": Call Edit() Case "del" : Call Del() Case "mr":Call Mr() Case "mold":Call Mold() Case "medit":Call Medit() Case "meditsave":Call MeditSave() Case "madd":Call Madd() Case "maddsave":Call MaddSave() Case "mdel" : Call Mdel() Case "copyfiles" : Call CopyFiles() Case Else : Call Main() End Select Call Admin_FooterB %> <%Public Sub Mold() Dim folderList,folderNum,i,folderAttr,fileList,fileNum,j,fileAttr,folder,filedir,filename,lastLevelPath Dim path path=SafeRequest("path","get") : If isNul(path) Then path= TempUrl folderList = fso.GetFolderList(path) fileList = fso.GetFileList(path) folderNum = ubound(folderList) fileNum = ubound(fileList) %> <% IF right(path,1) ="/" Then path=left(path,len(path)-1) lastLevelPath= mid(path,1,instrrev(path,"/")-1) IF path<>"../Skin" Then %> <% End IF If folderNum >= 0 And instr(folderList(0),",")>0 Then For i=0 To folderNum folderAttr=split(folderList(i),",") folder=folderAttr(4) %> <% Next End IF %> <% IF fileNum >= 0 And instr(fileList(0),",")>0 Then For j=0 To fileNum fileAttr=split(fileList(j),",") filedir=fileAttr(4) filedir=ReplaceStr(filedir,"//","/") filename=fileAttr(0) %> <% Next End IF %>
 模板文件管理 [添加模板文件]
  模板文件名 模板类型 文件大小 最后修改时间 操作
  <% IF getFileType(filedir)="txt" Then echo ""&viewIcon(filename)&" "&filename&"" Else echo ""&viewIcon(filename)&" "&filename&"" %> <%=getTemplateType(filename)%> <%=fileAttr(2)%> <%=fileAttr(3)%> <%IF getFileType(filedir)="txt" Then echo "编辑" Else echo "浏览"%>  复制  删除
<% End Sub Public Sub Medit() Dim filedir,filetype Dim folder filedir=SafeRequest("filedir","get") filetype=lcase(mid(filedir,instrrev(filedir,"."))) folder=lcase(mid(filedir,1,instrrev(filedir,"/")-1)) IF filetype=".html" Or filetype=".htm" Or filetype=".js" Or filetype=".css" Or filetype=".txt" Then %>
 修改模板文件
 模板文件名称： " /> 只支持 .html .htm .js .txt 格式
 '" value="返回上一页" />  
<% Else Call AdminAlert("出错了，操作已被禁止！","Admin_Mold.asp",0) End IF End Sub Sub Madd() Dim filedir,filetype Dim folder filedir=SafeRequest("filedir","get") 'filetype=lcase(mid(filedir,instrrev(filedir,"."))) 'folder=lcase(mid(filedir,1,instrrev(filedir,"/")-1)) %>
 添加模板文件 注意：<%=filedir%> 文件夹必须有写入权限，否则将添加失败！
 模板文件名称： 只支持 .html .htm .js .txt 格式
 '" value="返回上一页" />  
<% End Sub Sub Main() %> <% Dim Rs i=0 Set Rs=CmsDjMold.GetRs("",0,"order by CD_ID asc") if not rs.eof then do while not rs.eof i=i+1 %> <% rs.movenext loop else %> <% end if rs.close set rs=nothing %>
 网站模板管理
 模板名称：  " size="35">  模板路径：">  " name="CD_TempPath" value="<%=rs("CD_TempPath")%>" size="20">   value="已为默认" disabled <%else%> value="设为默认" <%end if%>onclick="javacript:window.location.href='?action=mr&id=<%=rs("CD_ID")%>'" class="rb1"/>    '"> value="删除" disabled <%else%> value="删除" <%end if%>onclick="javacript:window.location.href='?action=del&id=<%=rs("CD_ID")%>'" class="rb1">

没有数据


 网站模板添加   
 模板名称：   模板路径：   如：Skin/Skin_01/Html/  
<% End Sub Sub MaddSave() Dim content,filedir,filetype,folder,FileName,folders content=Request.Form("content") folder=SafeRequest("folder","post") folders=folder FileName=SafeRequest("FileName","post") IF InstrRev(FileName,".")>0 Then filetype=lcase(mid(FileName,instrrev(FileName,"."))) End IF folder=folder&FileName IF filetype=".html" or filetype=".htm" or filetype=".js" or filetype=".css" or filetype=".txt" Then fso.CreateFile folder,True ,content Call Cache.ReMoveAll() Call AdminAlert("恭喜您，添加模板成功了！","Admin_Mold.asp?action=mold&path="&folders,0):Response.End Else Call AdminAlert("文件名出错了，操作已被禁止！","Admin_Mold.asp?action=mold&path="&folders,1):Response.End End IF Response.End End Sub Sub CopyFiles() Dim filename,newdir,newname,i,j filename = SafeRequest("filedir","get") i = inStrRev(filename,"/") j = len(filename) newdir = left(filename,i) newname = right(filename,j-i) newname = "复件 "&newname Call fso.CopyFile(filename,newdir&newname) Call AdminAlert("恭喜您，复制模板成功！","Admin_Mold.asp?action=mold&path="&newdir,0) Response.End End Sub Sub Mdel() Dim fs,filename filename = SafeRequest("filedir","get") i = inStrRev(filename,"/") folders = left(filename,i) Call fso.DeleteFile(filename) Call Cache.ReMoveAll() Call AdminAlert("恭喜您，删除模板成功！","Admin_Mold.asp?action=mold&path="&folders,0) Response.End End Sub Sub MeditSave() Dim content,filedir,filetype,folder,FileName,folders content=Request.Form("content") filedir=SafeRequest("filedir","post") folder=SafeRequest("folder","post") folders=folder FileName=SafeRequest("FileName","post") F_Ext = Mid(FileName, InStrRev(FileName, ".") + 1) filetype="."&LCase(F_Ext) folder=folder&"/"&FileName IF filetype=".html" or filetype=".htm" or filetype=".js" or filetype=".css" or filetype=".txt" Then fso.CreateFile folder,True ,content Call Cache.ReMoveAll() Call AdminAlert("恭喜您，修改模板成功！","Admin_Mold.asp?action=mold&path="&folders&"/",0) Else Call AdminAlert("出错了，操作已被禁止！","Admin_Mold.asp?action=mold&path="&folders&"/",1) End IF Application.Lock() Application.Contents.RemoveAll() Application.UnLock() Response.End End Sub Sub Del() Dim CD_ID:CD_ID=SafeRequest("ID","get") IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，参数传输错误！","Admin_Mold.asp",0):Response.End Call CmsDjMold.del("CD_ID="&CD_ID&"") Call Cache.ReMoveAll() Response.redirect "Admin_Mold.asp" End Sub Sub Add() Dim Arr1,Arr2 Dim CD_Name:CD_Name = SafeRequest("CD_Name","post") Dim CD_TempPath:CD_TempPath=SafeRequest("CD_TempPath","post") IF CD_Name="" Then Call AdminAlert("出错了，模板名称不能为空！","Admin_Mold.asp",1):Response.End IF CD_TempPath="" Then Call AdminAlert("出错了，模板路径不能为空！","Admin_Mold.asp",1):Response.End Arr1=Array("CD_Name","CD_TempPath") Arr2=Array(CD_Name,CD_TempPath) Call CmsDjMold.add(arr1,arr2) Call AdminAlert("恭喜您，添加模板成功！","Admin_Mold.asp",0):Response.End End Sub Sub Edit() Dim Arr1,Arr2 Dim CD_ID:CD_ID=SafeRequest("CD_ID","post") Dim CD_Name:CD_Name = SafeRequest("CD_Name","post") Dim CD_TempPath:CD_TempPath=SafeRequest("CD_TempPath","post") IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，参数传输错误！","Admin_Mold.asp",1):Response.End IF CD_Name="" Then Call AdminAlert("出错了，模板名称不能为空！","Admin_Mold.asp",1):Response.End IF CD_TempPath="" Then Call AdminAlert("出错了，模板路径不能为空！","Admin_Mold.asp",1):Response.End Arr1=Array("CD_Name","CD_TempPath") Arr2=Array(CD_Name,CD_TempPath) Call CmsDjMold.Update(Arr1,Arr2,"CD_ID="&CD_ID&"") Call AdminAlert("恭喜您，修改模板成功！","Admin_Mold.asp",0) Response.End End Sub Sub Mr() Dim Arr1,Arr2,Arr3 Dim CD_ID:CD_ID=SafeRequest("ID","get") IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，参数传输错误！","Admin_Mold.asp",1):Response.End Arr1=Array("CD_TheOrder") Arr2=Array(1) Arr3=Array(0) Call CmsDjMold.Update(Arr1,Arr3,"CD_TheOrder=1") Call CmsDjMold.Update(Arr1,Arr2,"CD_ID="&CD_ID&"") Application.Lock() Application.Contents.RemoveAll() Application.UnLock() Response.redirect "Admin_Mold.asp" End Sub Function getTemplateType(filename) Select Case Lcase(filename) Case "index.html" getTemplateType="系统自带网站首页" Case "head.html" getTemplateType="系统自带网站顶部" Case "bottom.html" getTemplateType="系统自带网站底部" Case "play.html" getTemplateType="系统自带播放页面" Case "search.html" getTemplateType="系统自带搜索页面" Case "special.html" getTemplateType="系统自带专辑页面" Case "list.html" getTemplateType="系统自带栏目页面" Case "lplayer.html" getTemplateType="系统自带连播页面" Case Else IF instr(filename,".gif")>0 or instr(filename,".jpg")>0 or instr(filename,".png")>0 Then getTemplateType="图片文件" ElseIF instr(filename,".css")>0 Then getTemplateType="样式文件" ElseIF instr(filename,".js")>0 Then getTemplateType="脚本文件" Else getTemplateType="其它文件" End IF End Select End Function Function getFileType(filedir) Dim filetype,imgFileStr,pageFileStr filetype=lcase(mid(filedir,instrrev(filedir,"."))) imgFileStr=".jpg|.jpeg|.gif|.bmp|.png" pageFileStr =".html|.htm|.js|.css|.txt" IF instr(imgFileStr,filetype)>0 Then getFileType="img" : Exit Function IF instr(pageFileStr,filetype)>0 Then getFileType="txt" : Exit Function End Function Function viewIcon(filename) Dim fileType,icon fileType=lcase(mid(filename,instrRev(filename,"."))) IF instr(".js,.css",fileType)>0 Then icon="" Else IF fileType=".jpg" or fileType=".jpeg" Then icon="" ElseIF fileType=".htm" or fileType=".html" or fileType=".shtml" Then icon="" ElseIF fileType=".gif" or fileType=".png" Then icon="" Else icon="" End IF End IF viewIcon = icon End Function %>