IP电话/视频会议

开发平台：

ASP/ASPX

List_Del.asp：源码内容

							<!--#include file="../../inc/conn.asp"-->
<!--#include file="../../inc/FUNC.asp"-->
<%
If Request("operation")="del" Then
	Del
end if
Function Del
Dim query
query=Request.Form("checkbox")
	If query<>"" Then
		If instr(query,",")>0 Then
			Dim chx
			Dim i
			chx=Split(query,",")
			For i=0 to ubound(chx)
				call DelInfo(chx(i))
			Next
		Else
			call DelInfo(query)
		End If
	Else
		call showerr("请选择删除记录!")
	End IF
End Function
'-------------------------------
Function DelInfo(x)
	Dim rs
	Dim sql
	
	sql="delete from [order] where id="&x
	Set rs=Conn.Execute(sql)
	call showmsg("记录删除成功!","List.asp")	
End Function
'-------------------------------
%>
<%
	call COCLS
%>

						