bigclass_inc.asp

来自「软件信息如下： 软件名称：郑州聚鑫打包带厂网站源代码免费版 软件版本：V」· ASP 代码 · 共 26 行

<%
Sub addbigclass()
bigclass=request("bigclass")
if bigclass="" then
Response.Write("<script language=""javascript"">alert('对不起！行业大类不能为空！');location='"&myself&"';</script>")
Response.End()
else
 CommandText="insert into bigclass(bigclass) Values('"&bigclass&"')"
Conn.Execute CommandText
Response.Write("<script language=""javascript"">alert('行业大类："&bigclass&" 添加成功！');location='"&myself&"';</script>")
end if
End Sub
Sub delbigclass()
if request("sel")="" then
Response.Write("<script language=""javascript"">alert('对不起！行业大类不能为空！');location='"&myself&"';</script>")
Response.End()
else
for each k in request("sel")
 CommandText="delete from bigclass where id="&k&""
Conn.Execute CommandText
next
Response.Write("<script language=""javascript"">alert('行业大类删除成功！');location='"&myself&"';</script>")
end if
End Sub
%>