<%@language=vbscript codepage=936 %> <% Option Explicit Response.Buffer = True %> <% Dim ID ID = PE_Clng(Trim(request("ID"))) Action = Trim(request("Action")) 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 CloseConn Call ClearSiteCache 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 Sub ClearSiteCache() On Error Resume Next Dim PE_Cache Set PE_Cache = CreateObject("PE_Common6.Cache") PE_Cache.DelAllCache Set PE_Cache = Nothing End Sub %>