📄 category_del.asp
字号:
<%@ Language=VBScript %>
<%
'***************************************************
'功能：删除被选择的品种
'入口参数：
'1.TStr_ctg_id
'出口参数：
'无
'作者：蒋柳 日期：2001.5.30
'***************************************************
%>
<%
on error resume next
'获得参数
LStr_ctg_id=trim(Request("tstr_ctg_id"))
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%if lstr_ctg_id="" then%>
<script language="vbscript">
msgbox "你没有选择记录，请返回选择",,"CMS系统提示"
window.history.back ()
</script>
<%end if %>
<%
'据库连接
dim DBconn
set DBconn=server.CreateObject("ADODB.Connection")
DBconn.ConnectionTimeout =application("Connection2_Connectiontimeout")
DBconn.Open Application("Connection2_ConnectionString")
'删除记录
LStr_ctg_ID=split(LStr_ctg_id,",")
for Lint=0 to ubound(LStr_ctg_ID)
sqldel="delete from Basic_category where ctg_id = '"&trim(LStr_ctg_ID(Lint))&"' "
DBconn.Execute sqldel
next
%>
<% if err.number<>0 then%>
<script language=vbscript>
msgbox "你操作的数据正被其他用户使用，操作将被取消!",,"CMS系统提示"
window.history.back
</script>
<%else%>
<form name="saveok" action="category_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 + -