delsq.asp

功能非常强大的一款办公自动化软件原代码,其中的文档签收功能特别实用.不相信下下来看下.

<!--#include file="check.asp"-->
<!--#include file="checkpower.asp"-->
<!--#INCLUDE FILE="connect.asp" --> 
<%
dim urllink
dim tablename
urllink=""
tablename=""
select case CInt(request("kind"))
    case 1
	urllink="meetingsp.asp"
	tablename="applymeeting"
	case 2
	urllink="xiujiasp.asp"
	tablename="applyholiday"
	case 3
	urllink="businesssp.asp"
	tablename="applybusiness"
	case 4
	urllink="moneysp.asp"
	tablename="applymoney"
	case 5
	urllink="goodssp.asp"
	tablename="applygoods"
	case 6
	urllink="carsp.asp"
	tablename="applycar"
	case 7
	urllink="receiptsp.asp"
	tablename="applyreceipt"
	case 8
	urllink="phoneyj.asp"
	tablename="phonerecord"
end select

sql="delete from applygz where flowid="&CLng(request("id"))&" and handletype="&CLng(request("kind"))
conn.execute(sql)

if urllink<>"" then
sql="delete from newwork where baseid="&CLng(request("id"))&" and url in('"&urllink&"')"
conn.execute(sql)
end if

if tablename<>"" then
sql="delete from "&tablename&" where id="&CLng(request("id"))
conn.execute(sql)
end if

if trim(request("kind"))="8" then
sql="delete from phoneyj where flowid="&CLng(request("id"))
conn.execute(sql)
end if

response.redirect "applygz.asp"
response.end
%>