📄 warehouse_del.asp
字号:
<%@ Language=VBScript %>
<%
'***************************************************
'功能：删除被选择的品种
'入口参数：
'1.TStr_whs_id
'出口参数：
'无
'作者：蒋柳 日期：2001.5.30
'***************************************************
%>
<%
On Error Resume Next
'获得参数
LStr_whs_id=trim(Request("tstr_whs_id"))
if LStr_whs_id="" then
if Session("Gs_StaffID")="" then
Response.Write "网页已过期，请重试！"
Response.End
end if
%>
<script language=vbscript>
msgbox "你没有选择要删除的仓库!",,"CMS系统提示"
window.history.back
</script>
<%
end if
'据库连接
dim DBconn
set DBconn=server.CreateObject("ADODB.Connection")
DBconn.Open Application("Connection2_ConnectionString")
'删除记录
LStr_whs_ID=split(LStr_whs_id,",")
for Lint=0 to ubound(LStr_whs_ID)
sqldel="delete from Basic_warehouse where whs_id = '"&trim(LStr_whs_ID(Lint))&"' "
DBconn.Execute sqldel
next
%>
<html>
<head></head>
<body>
<%if err.number<>0 then%>
<script language=vbscript>
msgbox "你操作的数据正被其他用户使用，操作将被取消!",,"CMS系统提示"
window.history.back
</script>
<%else%>
<form name="saveok" action="warehouse_list.asp">
<script language="vbscript">
msgbox "已成功删除<%=(lint)%>条记录",,"CMS系统提示"
window.saveok.submit
</script>
</form>
<%end if %>
</body>
<%
DBconn.Close
set dbconn=nothing
%>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -