<% '************************************************************** ' Software name: PowerEasy SiteWeaver ' Web: http://www.powereasy.net ' Copyright (C) 2005-2009 佛山市动易网络科技有限公司 版权所有 '************************************************************** Dim ID ID = PE_CLng(Trim(request("ID"))) If ID = 0 Then Call CloseConn response.Redirect "index.asp" End If Dim sqlLink, rsLink sqlLink = "select * from PE_FriendSite where ID=" & ID Set rsLink = Server.CreateObject("Adodb.RecordSet") rsLink.open sqlLink, Conn, 1, 3 If rsLink.bof And rsLink.EOF Then FoundErr = True ErrMsg = ErrMsg & "
  • 找不到站点!
  • " Else If Action = "Del" Then Dim OldSitePassword OldSitePassword = Trim(request("OldSitePassword")) If OldSitePassword = "" Then FoundErr = True ErrMsg = ErrMsg & "
  • 原设密码不能为空!
  • " End If If MD5(OldSitePassword, 16) <> rsLink("SitePassword") Then FoundErr = True ErrMsg = ErrMsg & "
  • 你输入的原设密码不对,没有权限删除!
  • " End If If FoundErr <> True Then rsLink.Delete rsLink.Update rsLink.Close Set rsLink = Nothing Call ClearSiteCache(0) Call CloseConn response.Redirect "index.asp" End If End If End If If FoundErr = True Then Call WriteErrMsg(ErrMsg, ComeUrl) Else %> 删除友情链接

    删除友情链接信息
    链接类型: <% If rsLink("LinkType") = 1 Then response.write "Logo链接" Else response.write "文字链接" End If %>
    网站名称: <%=rsLink("SiteName")%>
    网站地址: <%=rsLink("SiteUrl")%>
    网站Logo: <%=rsLink("LogoUrl")%>
    站长姓名: <%=rsLink("SiteAdmin")%>
    电子邮件: <%=rsLink("SiteEmail")%>
    网站简介: <%=rsLink("SiteIntro")%>
    原设密码: * 必须输入
    ">

    <% End If rsLink.Close Set rsLink = Nothing Call CloseConn %>