📄 delurl.asp
字号:
<!--#include file="../const.asp"-->
<% if session("user")="" then
response.redirect "../err.asp"
end if
%>
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>班级主页</title>
<link rel="stylesheet" href="../index.css">
</head>
<body background="../image/main_bg.gif">
<font color="#000000">
<% if request("linkid")="" and request("typeid")="" then%>
对不起，你所请求的id为空
<%else%>
<% dim rs,sql
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from link where user='"&session("user")&"' and typeid="&trim(request("typeid"))&" and id="&request("linkid")
rs.open sql,conn,1,1
if rs.eof then%>对不起，找不到该记录
<%else
conn.execute" delete * from link where user='"&session("user")_
&"' and id="&request("linkid")&" and typeid="&request("typeid")%>
<% conn.execute "update bookmark set count=count-1 where id="&request("typeid")%>
删除成功
<%
end if
end if
conn.close
set conn=nothing%></font>
<!--#include file="../end.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -