📄 delete.asp
字号:
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF">
<%list=Trim(request.form("list"))
ssname=session.contents("username")
dd=trim(request.form("list"))
set conn1=server.CreateObject("adodb.Connection")
conn1.open Application("file_jingan1")
set rs1=server.CreateObject("adodb.RecordSet")
sql1="select username from t_dingfang where list='" &dd& "'"
rs1.open sql1,conn1,1,1
if rs1.eof or rs1.bof then
response.write "No such list"
else
if trim(rs1("username"))=trim(ssname) then
set conn=server.CreateObject("adodb.Connection")
set rs=server.CreateObject("adodb.RecordSet")
conn.open Application("file_jingan1")
sql="update t_dingfang set cutting='是' where list=" &list
rs.open sql,conn,1,1
response.write "Deleted successfully"
else
'response.write rs1("username")
'response.write ssname
'response.write"list wrong"
response.write"Sorry,it'not your list"
end if
end if
'response.redirect "dingfang.asp"
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -