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>