www.gusucode.com > 黑鹰友情链接交换系统美化版 1.2 黑码程序 > del.asp

    <%@ Language=VBScript %>
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="config.asp" -->
<% if request.cookies("adminok") <> "" then %>
<%
Set rs= Server.CreateObject("ADODB.Recordset")
sql="delete from link where id="&request("id")
rs.open sql,conn,1,3
rs.close
%>
<% Else %>
<% response.redirect"login.asp" 
response.end
%>
<% End If %>

<meta http-equiv=refresh content="1; url=index.asp">
<BODY bgcolor="#ffffff"  text="#000000" link="#000080" alink="#800000" vlink="#2f2f4f" marginheight=0 marginwidth=0 topmargin=10 leftmargin=20 rightmargin=0>
 <p> </p>
<p><font size="2">Loading .... </font></p>
<p align="center"><font size="2" color="#FF0000">删除成功!</font></p>
<p align="center"><font size="2">二秒钟后系统自动返回友情链接首页!</font></p>