<% '************************************************************************************************** ' 程序名称: 七禧舞曲管理系统 ' 程序作者: 花心萝卜 ' 官方网站: http://www.cmsdj.com http://www.7xiwl.com ' 编写日期: 2009年8月27日 ' 版权所有: 本程序由七禧网络开发，未经同意请勿用于商业用途 '************************************************************************************************** %> 服务器管理
  rb2<%Else%>rb1<%end if%>" onClick="location='Admin_Server.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 CmsDjServer:Set CmsDjServer = New CmsDj_Com_Server action=Request.QueryString("action") page=int(request.QueryString ("page")) Select Case Lcase(action) Case "批量删除" : Call DelAll() Case "add":Call Add() Case "edit":Call Edit() Case "saveadd" : Call SaveAdd() Case "saveedit": Call SaveEdit() Case "del" : Call Del() Case Else : Call Main() End Select Call Admin_FooterB %> <% Sub EditBoard(ActionUrl,ActionName,emValues) IF IsArray(emValues) Then CD_Name = emValues(0) CD_Url = emValues(1) CD_DownUrl = emValues(2) End IF %>
 <%=ActionName%>服务器
 服务器名称：   *
 试听服务器：   *
 下载服务器： 
 ">   
<% End Sub Sub Main() %> <% Dim Rs,SqlA if page<=0 or page="" then page=1'初始化分页参数 i=0 Set Rs=CmsDjServer.GetRs("CD_ID,CD_Name,CD_Url,CD_DownUrl,CD_Yes",0,"order by CD_ID desc") If Not(rs.bof And rs.EOF) Then rs.pagesize=20 '每页舞曲 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 %>
 编号       服务器名称   试听服务器  下载服务器 操作
" class="checkbox"/><%=rs("CD_ID")%>、  <%=rs("CD_Name")%>  <%if rs("CD_Url")<>"" then%><%=rs("CD_Url")%><%else%>未设置<%end if%>  <%if rs("CD_DownUrl")<>"" then%><%=rs("CD_DownUrl")%><%else%>未设置<%end if%> <%if rs("CD_Yes")=0 then%>">编辑<%else%>">编辑 " onClick="return confirm('确定删除吗？不可恢复！');">删除<%end if%>


没有服务器
  
<%=List_Page(m,z,page,"Admin_Server.asp?action="&action&"&",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_Url = SafeRequest("CD_Url","post") CD_DownUrl = SafeRequest("CD_DownUrl","post") CD_HttpUrl = SafeRequest("CD_HttpUrl","post") Arr1=Array("CD_Name","CD_Url","CD_DownUrl") Arr2=Array(CD_Name,CD_Url,CD_DownUrl) Call CmsDjServer.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 = CmsDjServer.GetRs("",0,"CD_ID="&CD_ID) CD_ID = Rs("CD_ID") CD_Name = Rs("CD_Name") CD_Url = Rs("CD_Url") CD_DownUrl = Rs("CD_DownUrl") Arr1=Array(CD_Name,CD_Url,CD_DownUrl) Call EditBoard("?action=SaveEdit&CD_ID="&CD_ID,"编辑",Arr1) End Sub Sub SaveAdd() CD_Name = SafeRequest("CD_Name","post") CD_Url = SafeRequest("CD_Url","post") CD_DownUrl = SafeRequest("CD_DownUrl","post") Arr1=Array("CD_Name","CD_Url","CD_DownUrl") Arr2=Array(CD_Name,CD_Url,CD_DownUrl) Call CmsDjServer.add(Arr1,Arr2) Call AdminAlert("恭喜您，添加服务器成功！","Admin_Server.asp",0) Response.End End Sub Sub DelAll() CD_ID = SafeRequest("CD_ID","get") IF CD_ID="" Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0) Response.End End IF CD_ID = Split(CD_ID,", ") For Each ID In CD_ID Call CmsDjServer.del("CD_ID="&ID) Next Call AdminAlert("恭喜您，批量删除服务器成功！",Request.ServerVariables("HTTP_REFERER"),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 CmsDjServer.del("CD_ID="&CD_ID) Call AdminAlert("恭喜您，删除服务器成功！",Request.ServerVariables("HTTP_REFERER"),0) Response.End End Sub %>