delmaterial.asp

来自「ASP+sql 组成的系统．功能强大」· ASP 代码 · 共 40 行

<!--#Include File="ErrorClass.asp"-->
<!--#Include File="Class.asp"-->
<%
'此段声明表示遇到错误即跳到下一句
On Error Resume Next
Dim mc_Class,ec_Class,uc_Class,UserID,Login,IDs
Set mc_Class = New MaterialClass
Set ec_Class = New ErrorClass
Set uc_Class = New UserClass
UserID = Trim(CStr(Request.Cookies("UserID")))
Login = CInt(Request.Cookies("Login"))
'获取传递的参数
IDs = CStr(Request.QueryString("ids"))
'处理非法登录
If Login <> 1 Then
	ec_Class.Founderr = True
	ec_Class.Message = "非法登录"
	Call ec_Class.showMessage("Login.asp","非法登录",2,1)
End If

If IDs <> "" Then
	'删除IDs序列中的物资信息
	Call mc_Class.delMaterial(IDs)
	'对错误的处理
	IF ERR.number = 0 Then				 
		ec_Class.Message = "删除成功"
		Call ec_Class.showMessage("ViewAllCom.asp","成功",2,2)
	Else
		ec_Class.Founderr = True
		ec_Class.Message = ERR.Description
		Call ec_Class.showMessage("ViewAllCom.asp","失败",2,2)
	End If
Else
	'对无参数情况的处理
	ec_Class.Founderr = True
	ec_Class.Message = "参数无效"
	Call ec_Class.showMessage("ViewAllCom.asp","参数无效",2,1)
End If		
%>