⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admlinkdel2.asp

📁 日记本(多用户版)V3.0 主要功能: 1、日记本基本功能:添加、修改日记等。 2、日记加密:当日记添加时
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%'##检查cookies中的密码,错误返回
'=========================================================
' 随然日记本(多用户版) Version:3.0
' Date: 2004-11-15
' Script Written by 随然(dampure)
' 随然日记本演示地址:http://www.suiran.cn
'=========================================================
' Copyright (C) 2003,2004 真露无香. All rights reserved.
' Web: www.yongzi.com
' Diary:http://www.suiran.cn
'=========================================================

pwd=Session("pwd")
user=Session("admindiary")
set rsadm=server.createobject("adodb.recordset")
sqladm="select * from superadmin where user='"&user&"'"
rsadm.open sqladm,conn,1,1
if pwd<>rsadm("pwd") or user<>rsadm("user") then
  response.redirect "admlogin.asp"
end if


'###检查结束
%>
<%if Request("d")="yes" then
   id = Request("id")
   page = Request("page")
   delesql="DELETE FROM diary WHERE id=" & id
   conn.Execute delesql
   sql="DELETE FROM say WHERE sayid=" & id
   conn.Execute sql
   set conn=nothing
   response.redirect "adminlinks2.asp?page=" & page
  else
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body topmargin="0">
<table border="0" width="100%" height="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%">
      <p align="center"><font size="2">是否正的要删除此日记</font></p>
      <p align="center"><a href="<%filename%>?d=yes&id=<%=Request("id")%>&page=<%=request("page")%>"><font size="2">[是]</font></a> <font size="2"> - <a href="javascript:history.go(-1)">[否]</a></font></td> 
  </tr> 
</table> 
<%end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -