www.gusucode.com > 源码留言本 3.2码程序 > del_link.asp

    


<!--#include file="images/note_book.inc"-->
<% 
' *************************************************
'|                                                 |
'|-----------------源码留言本 3.10-----------------|
'|                                                 |
'|                         黔江热线                |
'|         相关站点：http://www.52qj.com           | 
'|                                                 |
'| 版权由kering源码所有,不经本人同意，不得随意修改 |
'| 如经发现必追究其责任！                          |
' *************************************************
%>
  	<%
if Request.Cookies("admin_name")="" then
%> 
<title>你还没登录呢</title>
<link href="css/black.css" rel="stylesheet" type="text/css">
<br>
<br><center>你还没资格打开这一个页面呢~~老大，不要乱来哦</center>
<script LANGUAGE="JavaScript">
<!--
setTimeout('window.close();', 1000); //60秒后关闭
// -->
</script>
<% else %>
<%
dim title_ID
title_ID=trim(request("title_ID"))
usrsql="SELECT * FROM [note_title] where title_ID="&trim(request("title_ID"))&""
    Set usrrs = Server.CreateObject("ADODB.Recordset")
       usrrs.OPEN usrsql, Conn,3,3
     if not usrrs.eof then
      usrrs.Delete
     end if
   usrrs.close 
   conn.close
  set conn=nothing

 %>
 <link href="css/black.css" rel="stylesheet" type="text/css">
            <center>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p>删除导航链接成功,3秒钟后返回...</p>
</center>
			<br>
			<center><meta http-equiv="refresh" content="3;url=_admin.asp"></center>

<% end if %>