List_Del.asp
资源名称:NetPhone.rar [点击查看]
上传用户:xxtaishan
上传日期:2022-01-02
资源大小:4063k
文件大小:1k
源码类别:
IP电话/视频会议
开发平台:
ASP/ASPX
- <!--#include file="../../inc/conn.asp"-->
- <!--#include file="../../inc/FUNC.asp"-->
- <%
- If Request("operation")="del" Then
- Del
- end if
- Function Del
- Dim query
- query=Request("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
- set rs=conn.execute("select * from info3 where id="&x)
- dim fileurl
- sql="delete from info3 where id="&x
- Set rs=Conn.Execute(sql)
- call showmsg("记录删除成功!","List.asp")
- End Function
- '-------------------------------
- call COCLS
- %>