<% '************************************************************************************************** ' 程序名称: 七禧舞曲管理系统 ' 程序作者: 花心萝卜 ' 官方网站: http://www.cmsdj.com http://www.7xiwl.com ' 编写日期: 2009年8月27日 ' 版权所有: 本程序由七禧网络开发，未经同意请勿用于商业用途 '************************************************************************************************** %> 空间模板管理
  rb2<%Else%>rb1<%end if%>" onClick="location='Admin_WebMold.asp';" value='管理首页' /> rb2<%Else%>rb1<%end if%>" onClick="location='?action=add';" value='添加新模板' />
<% Dim Action,CD_ClassID,page Dim CD_ID,CD_Name Dim arr1,arr2 Dim key,HttpUrl Dim CmsDjWebMold:Set CmsDjWebMold = New CmsDj_Com_WebMold Dim fso_v:Set fso_v = New CmsDj_Com_Fso action=Request.QueryString("action") CD_ClassID=request.QueryString("CD_ClassID") CD_SpecialID=request.QueryString("CD_SpecialID") 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 "editwebmoldis" : Call EditWebMoldIs() Case Else : Call Main() End Select Call Admin_FooterB %> <% Sub EditBoard(ActionUrl,ActionName,emValues) IF IsArray(emValues) Then WebMoldName = emValues(0) WebMoldDir = emValues(1) WebMoldPic = emValues(2) End IF %>
 <%=ActionName%>模板
 模板名称：  * 模板的名称，在前台显示
 模板路径：  <%=InstallDir%>Web/Mb/ / * 填写模板的文件夹名称，必需正确，否则模板显示有错误。不能和其他模板相同
 演示图片：  * 把图片放到模板所在文件夹，填写名称即可。例如：01演示图片.jpg
 ">   
<% End Sub Sub Main() %>
 模板管理
 模板名称：      
<% Dim Rs,SqlA if page<=0 or page="" then page=1'初始化分页参数 i=0 If key<>"" Then SqlA="WebMoldName like '%"&key&"%' order by WebMoldID desc" Else SqlA="order by WebMoldID desc" End If Set Rs=CmsDjWebMold.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 %>
编号 模板名称 <%if key<>"" then Response.Write "（以下为搜索 "&key&" 结果）"%> 模板路径 使用人气 是否默认 操作
<%=rs("WebMoldID")%> <%=replace(rs("WebMoldName"),key,""&key&"")%> <%=InstallDir%>Web/Mb/<%=rs("WebMoldDir")%>/ <%=rs("WebMoldHits")%> <%If rs("WebMoldIs")=0 Then%>"><%Else%>"><%End If%> ">编辑 " onClick="return confirm('确定将模板删除吗?');">删除


没有模板
<%=List_Page(m,z,page,"Admin_WebMold.asp?action="&action&"&key="&key&"&",15,7)%>
<% End Sub Sub Add() Call EditBoard("?action=SaveAdd","添加","") End Sub Sub SaveEdit() WebMoldID= SafeRequest("WebMoldID","auto") IF Not IsNum(WebMoldID) Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0):Response.End WebMoldName = SafeRequest("WebMoldName","post") WebMoldDir = SafeRequest("WebMoldDir","post") WebMoldPic = SafeRequest("WebMoldPic","post") CD_HttpUrl = SafeRequest("CD_HttpUrl","post") Set Fso=Server.CreateObject("Scripting.FileSystemObject") IF Not Fso.FolderExists(Server.MapPath(InstallDir&"Web/Mb/"&WebMoldDir&"/")) Then Call AdminAlert("未找到 "&InstallDir&"Web/Mb/"&WebMoldDir&"/ 模板目录！","",1) Response.End End IF IF Not fso_v.CheckFile(InstallDir&"Web/Mb/"&WebMoldDir&"/"&WebMoldPic) Then Call AdminAlert("未找到 "&InstallDir&"Web/Mb/"&WebMoldDir&"/"&WebMoldPic&" 演示图片！","",1) Response.End End IF Arr1=Array("WebMoldName","WebMoldDir","WebMoldPic") Arr2=Array(WebMoldName,WebMoldDir,WebMoldPic) Call CmsDjWebMold.update(Arr1,Arr2,"WebMoldID="&WebMoldID) Call AdminAlert("恭喜您，编辑模板成功！",CD_HttpUrl,0) Response.End End Sub Sub Edit() WebMoldID = SafeRequest("WebMoldID","get") IF Not IsNum(WebMoldID) Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0):Response.End Set Rs = CmsDjWebMold.GetRs("",0,"WebMoldID="&WebMoldID) WebMoldID = Rs("WebMoldID") WebMoldName = Rs("WebMoldName") WebMoldDir = Rs("WebMoldDir") WebMoldPic = Rs("WebMoldPic") Arr1=Array(WebMoldName,WebMoldDir,WebMoldPic) Call EditBoard("?action=SaveEdit&WebMoldID="&WebMoldID,"编辑",Arr1) End Sub Sub SaveAdd() WebMoldName = SafeRequest("WebMoldName","post") WebMoldDir = SafeRequest("WebMoldDir","post") WebMoldPic = SafeRequest("WebMoldPic","post") Set Fso=Server.CreateObject("Scripting.FileSystemObject") IF Not Fso.FolderExists(Server.MapPath(InstallDir&"Web/Mb/"&WebMoldDir&"/")) Then Call AdminAlert("未找到 "&InstallDir&"Web/Mb/"&WebMoldDir&"/ 模板目录！","",1) Response.End End IF IF Not fso_v.CheckFile(InstallDir&"Web/Mb/"&WebMoldDir&"/"&WebMoldPic) Then Call AdminAlert("未找到 "&InstallDir&"Web/Mb/"&WebMoldDir&"/"&WebMoldPic&" 演示图片！","",1) Response.End End IF Arr1=Array("WebMoldName","WebMoldDir","WebMoldPic","WebMoldHits","WebMoldDate","WebMoldIs") Arr2=Array(WebMoldName,WebMoldDir,WebMoldPic,0,Now(),0) Call CmsDjWebMold.add(Arr1,Arr2) Call AdminAlert("恭喜您，添加模板成功！","Admin_WebMold.asp",0) Response.End End Sub Sub Del() WebMoldID = SafeRequest("WebMoldID","get") IF WebMoldID="" Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0) Response.End End IF Call CmsDjWebMold.del("WebMoldID="&WebMoldID) Call AdminAlert("恭喜您，删除模板成功！",Request.ServerVariables("HTTP_REFERER"),0) Response.End End Sub Sub EditWebMoldIs() Dim Arr1,Arr2 Dim WebMoldID:WebMoldID=SafeRequest("WebMoldID","get") IF Not IsNum(WebMoldID) Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0):Response.End Conn.DB "UPDATE CmsDj_WebMold SET WebMoldIs=0","exe" Arr1=Array("WebMoldIs") Arr2=Array(1) Call CmsDjWebMold.Update(Arr1,Arr2,"WebMoldID="&WebMoldID) Response.redirect Request.ServerVariables("HTTP_REFERER") Response.End End Sub %>