<% dim ID,Action,FoundErr,ErrMsg ID=trim(request("ID")) Action=trim(request("Action")) if ID="" then call CloseConn() response.redirect "FriendSite.asp" end if dim sqlLink,rsLink sqlLink="select * from FriendSite where ID=" & CLng(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)<>rsLink("SitePassword") then FoundErr=True ErrMsg=ErrMsg & "
  • 你输入的旧网站密码不对,没有权限删除!
  • " end if if FoundErr<>True then rsLink.delete rsLink.update rsLink.close set rsLink=nothing call CloseConn() Response.Redirect "FriendSite.asp" end if end if end if if FoundErr=True then call WriteErrMsg() else %> 删除友情链接信息
    删除友情链接信息
    链接类型: <% if rsLink("LinkType")=1 then response.write "Logo链接" else response.write "文字链接" end if %>
    网站名称: <%=rsLink("SiteName")%>
    网站地址: <%=rsLink("SiteUrl")%>
    网站Logo: <%=rsLink("LogoUrl")%>
    站长姓名: <%=rsLink("SiteAdmin")%>
    电子邮件: <%=rsLink("Email")%>
    网站简介: <%=rsLink("SiteIntro")%>
    原网站密码: * 必须输入
    ">
    <% end if rsLink.close set rsLink=nothing call CloseConn() %>