<% 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() %>