📄 delgb.asp
字号:
<%Response.Expires=0%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {font-size : 10.5pt;}
TR {FONT-SIZE: 10.5pt}
TD {FONT-SIZE: 10.5pt}
input {FONT-SIZE: 10.5pt}-->
</style>
<title>删除留言</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<body oncontextmenu="self.event.returnValue=false" bgcolor="#e1e8fa" leftmargin="5"
topmargin="5">
<%
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(Time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj=n & "-" & y & "-" & r & " " & s & ":" & f
title=Request.QueryString("title")
title=server.HTMLEncode(title)
fromwho=Request.QueryString("fromwho")
fromwho=server.HTMLEncode(fromwho)
fromwho="<font color=red>"&fromwho&"</font>"
towho1=Request.QueryString("towho")
towho1=server.HTMLEncode(towho1)
towho="<font color=red>"&towho1&"</font>"
timeout=Request.QueryString("timeout")
class1=Session("class")
if (class1<8) and (Session("usernickname")<>towho1) then Response.Write "没有权限" : Response.end
IF timeout="" and title<>"" then
myself="<font color=red>"&Session("usernickname")&"</font>"
detail=myself& " 删除留言 ["& fromwho &" 写给 "& towho &"]<br><font color=a22255> [主题:] </font>"& title
%>
<!--#include file="conn.asp"-->
<%
Set rs = Conn.Execute( "delete from board where title='"&title&"'")
if Session("usernickname")<>towho1 then
Set rs1 = Conn.Execute( "Insert Into public1(time1,detail) Values('"&sj&"','"&detail&"')")
end if
Connection.Close
Response.write "<br><br><br><br><br><p align='center'>删除完毕。<br><br>"&detail&"</p>"
Response.write "<p align='center'><a href='board.asp'>点击这里返回</a></p></body>"
Response.end
Else
' Set rs = Conn.Execute( "delete from board where title='"&title&"'")
' rs.Close
Response.write "<br><br><br><br><br><p align='center'><font color=#FF0000>清除完毕！</font>"
Response.write "<p align='center'><a href='board.asp'>点击这里返回</a></p></body>"
Response.end
End if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -