📄 delete.asp
字号:
<!--#include file="css.asp"-->
<!--#include file="conn.asp"-->
<%
strBH=Trim(Request.QueryString("id"))
strUSN=Session("usn")
strPWD=Session("pwd")
strDeleted=Trim(Request.QueryString("Deleted"))
if strUSN<>"" and strPWD<>"" then
if strBH<>"" then
if strDeleted="" then
%>
<body bgcolor=#0066FF>
<br><br><br>
<center><table bgcolor=#cccccc>
<tr><td align=left bgcolor=#330099 colspan=2><font size=2 color=white>删除确定对话框</font></td></tr>
<tr><td>您确定要删除<font color=red><%= strBH%></font>客户编号记录吗？ </td></tr>
<tr><td align=center><a href="delete.asp?id=<%= strBH%>&Deleted=T">确定</a> <a href="main.asp">取消</a></td></tr>
</table></center></body>
<%
end if
if strDeleted="T" then
strSQL="Select * from CustomerInfo Where BH='" & strBH & "'"
'Response.Write strSQL
set rs=Server.CreateObject("ADODB.RECORDSET")
rs.Open strSQL,con,3,3
rs.Delete
rs.Update
Response.Redirect "main.asp"
else
if strDeleted="F" then
Response.Write "main.asp"
end if
end if
else
Response.Redirect "error.asp?info=无法对当前的记录进行删除操作！"
end if
else
Response.Redirect "error.asp?info=用户没有登录或您的IE不支持Cookies!"
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -