<% '************************************************************************************************** ' 程序名称: 七禧舞曲管理系统 ' 程序作者: 花心萝卜 ' 官方网站: http://www.cmsdj.com http://www.7xiwl.com ' 编写日期: 2009年8月27日 ' 版权所有: 本程序由七禧网络开发，未经同意请勿用于商业用途 '************************************************************************************************** %> 友情链接管理
  rb2<%Else%>rb1<%end if%>" onClick="location='Admin_Link.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 CmsDjLink:Set CmsDjLink = New CmsDj_Com_Link Dim fso_v:Set fso_v = New CmsDj_Com_Fso action=Request.QueryString("action") page=int(request.QueryString ("page")) key=request.QueryString("key") Select Case Lcase(action) Case "修改所选链接" : Call EditAll() Case "删除所选链接" : Call DelAll() Case "add":Call Add() Case "edit":Call Edit() Case "saveadd" : Call SaveAdd() Case "saveedit": Call SaveEdit() Case "del" : Call Del() Case "editisindex" : Call EditIsIndex() 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_Pic = emValues(2) CD_ClassID = emValues(3) CD_InPut = emValues(4) CD_IsIndex = emValues(5) End IF IF Not IsNum(CD_ClassID) Then CD_ClassID=1 IF Not IsNum(CD_IsIndex) Then CD_IsIndex=0 %>
 <%=ActionName%>链接
 网站名称：  *
 网站地址：  *
 网站Logo地址： 
 友情链接类型：  > 文字   > 图片
 是否首页显示：  > 是   > 否
 网站说明： 
 ">   
<% End Sub Sub Main() %>
 友情链接管理
<% Dim Rs,SqlA if page<=0 or page="" then page=1'初始化分页参数 i=0 Set Rs=CmsDjLink.GetRs("",0,"order by CD_TheOrder asc") 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 %>
编号       网站名称       网站地址 排序 类型 是否显示 操作
  " class="checkbox"/><%=rs("CD_ID")%>、 " value="<%=rs("CD_Name")%>" size="30" /> " value="<%=rs("CD_Url")%>" size="50" /> " value="<%=rs("CD_TheOrder")%>" size="5" /> <%If rs("CD_ClassID")=1 Then%>文字类型<%Else%>图片类型<%End If%> <%If rs("CD_IsIndex")=1 Then%>"><%Else%>"><%End If%> ">编辑 " onClick="return confirm('确定将链接删除吗?');">删除


没有友情链接
<%=List_Page(m,z,page,"?action="&action&"&key="&key&"&",15,7)%>
        
<% End Sub Sub EditAll() 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 CD_Name = trim(request("CD_Name"&ID)) CD_Url = trim(request("CD_Url"&ID)) CD_TheOrder = trim(request("CD_TheOrder"&ID)) arr1=Array("CD_Name","CD_Url","CD_TheOrder") arr2=Array(CD_Name,CD_Url,CD_TheOrder) Call CmsDjLink.UpDate(arr1,arr2,"CD_ID="&ID) Next Call AdminAlert("恭喜您，修改所选链接成功！",Request.ServerVariables("HTTP_REFERER"),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 CmsDjLink.del("CD_ID="&ID) Next Call AdminAlert("恭喜您，删除所选链接成功！",Request.ServerVariables("HTTP_REFERER"),0) Response.End 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_Pic = SafeRequest("CD_Pic","post") CD_ClassID = SafeRequest("CD_ClassID","post") CD_InPut = SafeRequest("CD_InPut","post") CD_IsIndex = SafeRequest("CD_IsIndex","post") CD_HttpUrl = SafeRequest("CD_HttpUrl","post") Arr1=Array("CD_Name","CD_Url","CD_Pic","CD_ClassID","CD_InPut","CD_IsIndex") Arr2=Array(CD_Name,CD_Url,CD_Pic,CD_ClassID,CD_InPut,CD_IsIndex) Call CmsDjLink.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 = CmsDjLink.GetRs("",0,"CD_ID="&CD_ID) CD_Name = Rs("CD_Name") CD_Url = Rs("CD_Url") CD_Pic = Rs("CD_Pic") CD_ClassID = Rs("CD_ClassID") CD_InPut = Rs("CD_InPut") CD_IsIndex = Rs("CD_IsIndex") Arr1=Array(CD_Name,CD_Url,CD_Pic,CD_ClassID,CD_InPut,CD_IsIndex) 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_Pic = SafeRequest("CD_Pic","post") CD_ClassID = SafeRequest("CD_ClassID","post") CD_InPut = SafeRequest("CD_InPut","post") CD_IsIndex = SafeRequest("CD_IsIndex","post") Arr1=Array("CD_Name","CD_Url","CD_Pic","CD_ClassID","CD_InPut","CD_IsVerify","CD_IsIndex","CD_TheOrder") Arr2=Array(CD_Name,CD_Url,CD_Pic,CD_ClassID,CD_InPut,0,CD_IsIndex,50) Call CmsDjLink.add(Arr1,Arr2) Call AdminAlert("恭喜您，添加友情链接成功！","Admin_Link.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 CmsDjLink.del("CD_ID="&CD_ID) Call AdminAlert("恭喜您，删除友情链接成功！",Request.ServerVariables("HTTP_REFERER"),0) Response.End End Sub Sub EditIsIndex() Dim Arr1,Arr2 Dim CD_ID:CD_ID=SafeRequest("CD_ID","get") Dim CD_IsIndex:CD_IsIndex=SafeRequest("CD_IsIndex","get") IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，参数传输错误",Request.ServerVariables("HTTP_REFERER"),0):Response.End IF Not IsNum(CD_IsIndex) Then CD_IsIndex=1 Arr1=Array("CD_IsIndex") Arr2=Array(CD_IsIndex) Call CmsDjLink.Update(Arr1,Arr2,"CD_ID="&CD_ID) Response.redirect Request.ServerVariables("HTTP_REFERER") End Sub %>