candel.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 31 行

<%
	Function CanDel(ObjDB,ComMsgID)
	
	Dim ObjRS,StrSQL
	Dim IntComMsgID
	Dim IntCount,IntIsDel
	Dim IntIsPack
	Dim IntState
	
	IntComMsgID = ComMsgID
	
	StrSQL = "Select Count(*) as IntCount from T_CRM_Stock_Application_Delete where ComMsgID = " & IntComMsgID
	Set ObjRS = ObjDB.execute (StrSQL)
	IntCount = ObjRS("IntCount")
	ObjRS.close
	StrSQL = "Select Count(*) as IntIsDel from T_CRM_Stock_Application_Delete where ComMsgID = " & IntComMsgID & " and IsDel = 1"
	Set ObjRS = ObjDB.execute (StrSQL)
	IntIsDel = ObjRS("IntIsDel")
	ObjRS.close
	Set ObjRS = Nothing
	
	If IntCount = IntIsDel Then
		CanDel = True
	Else
		CanDel = False
	End If
	
	End Function
%>