delete.asp

1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复！ 自己写吧~~~：） 4 又 是一点缺陷

<!--#include file="config.ini" -->
<!--#include file="commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")

if  Request("Mod") = "Delete" then
	dim conn
	dim rs
	set conn=server.CreateObject("adodb.connection")
	set rs=server.CreateObject("adodb.recordset")
	conn.Open connstring
	    if request("userid")<>"" then
			rs.Open "delete from usertable where id="&request("userid"),conn,2,3,1
		elseif request("defineid")<>"" then
			rs.Open "delete from userdefine where id="&request("defineid"),conn,2,3,1
		elseif request("dealid")<>"" then
			objcheck.CheckUserFunction "deal","del"
			rs.Open "delete from deal where dealid="&request("dealid"),conn,2,3,1
			rs.Open "delete from DealHistory where dealid="&request("dealid"),conn,2,3,1
		elseif request("menuid")<>"" then
			rs.Open "delete from leftmenu where id="&request("menuid"),conn,2,3,1
		elseif request("eventid")<>"" then
			objcheck.CheckUserFunction "event","del"
			rs.Open "delete from event where id="&request("eventid"),conn,2,3,1
			rs.Open "delete from EventAttendant where eventid="&request("eventid"),conn,2,3,1
		elseif request("popaymentid")<>"" then
			objcheck.CheckUserFunction "popayment","del"
			set rsq=conn.execute("select paymenttype from popayment where paymentid="&request("popaymentid"))
				if rsq("paymenttype")="期初应付" or rsq("paymenttype")="期初应收票" then
					response.write "<br><br><br><LINK href='../global.css' rel=stylesheet type=text/css>"
					response.Write "<div align=center>"
					response.Write "<FONT SIZE=2 class=title>"
					response.write "<img src=../images/jg.gif>"
					response.write "期初值不能删除"
					response.write "</div>"
					response.end
				end if
			conn.execute("insert into operatelog(username,opdate,operate,data,description)values('"&session("username")&"','"&now()&"','删除','应付账款','"&request("account")&",金额:"&request("amount")&",id:"&request("popaymentid")&"')") 
			rs.Open "delete from popayment where paymentid="&request("popaymentid"),conn,2,3,1
		elseif request("pocollectionid")<>"" then
			rs.Open "delete from pocollection where id="&request("pocollectionid"),conn,2,3,1
		elseif request("poinvoiceid")<>"" then
			rs.Open "delete from poinvoice where poinvoiceid="&request("poinvoiceid"),conn,2,3,1
		elseif request("hrid")<>"" then
			rs.Open "delete from nametable where nameid="&request("hrid"),conn,2,3,1
		elseif request("accountid")<>"" then
			objcheck.CheckUserFunction "account","del"
			set rsq=conn.Execute("select orderid from [order] where accountid="&request("accountid"))
			if not rsq.eof then
					response.write "<br><LINK href='../global.css' rel=stylesheet type=text/css>"
					response.Write "<div align=center>"
					response.Write "<FONT SIZE=2 class=title>"
					response.write "<img src=../images/jg.gif>"
					response.write "该客户有合同，不能删除"
					Response.Write "<br><br><input type=button value=关闭 onclick='window.close()' id=button1 name=button1>"
					response.write "</div>"
					Response.End 
			end if
			set rsq=conn.Execute("select quoteid from quote where accountid="&request("accountid"))
			if not rsq.eof then
					response.write "<br><LINK href='../global.css' rel=stylesheet type=text/css>"
					response.Write "<div align=center>"
					response.Write "<FONT SIZE=2 class=title>"
					response.write "<img src=../images/jg.gif>"
					response.write "该客户有报价，不能删除"
					Response.Write "<br><br><input type=button value=关闭 onclick='window.close()' id=button1 name=button1>"
					response.write "</div>"
					Response.End 
			end if
			set rsq=conn.Execute("select poid from po where accountid="&request("accountid"))
			if not rsq.eof then
					response.write "<br><LINK href='../global.css' rel=stylesheet type=text/css>"
					response.Write "<div align=center>"
					response.Write "<FONT SIZE=2 class=title>"
					response.write "<img src=../images/jg.gif>"
					response.write "该客户有采购单，不能删除"
					Response.Write "<br><br><input type=button value=关闭 onclick='window.close()' id=button1 name=button1>"
					response.write "</div>"
					Response.End  
			end if
			rs.Open "delete from account where accountid="&request("accountid"),conn,2,3,1
		elseif request("contactid")<>"" then
			objcheck.CheckUserFunction "contact","del"
			rs.Open "delete from contact where contactid="&request("contactid"),conn,2,3,1
		elseif request("productid")<>"" then
			objcheck.CheckUserFunction "product","del"
			set rsq=conn.Execute("select lineid from orderline where productid="&request("productid"))
			if not rsq.eof then
				Response.Write "<div align=center><br><font color=red>该产品有合同！</font><br><br><input type=button value=关闭 onclick='window.close()' id=button1 name=button1></div>"
				Response.End 
			end if
			set rsq=conn.Execute("select lineid from quoteline where productid="&request("productid"))
			if not rsq.eof then
				Response.Write "<div align=center><br><font color=red>该产品有报价！</font><br><br><input type=button value=关闭 onclick='window.close()' id=button1 name=button1></div>"
				Response.End 
			end if
			set rsq=conn.Execute("select id from Product_Location where productid="&request("productid"))
			if not rsq.eof then
				Response.Write "<div align=center><br><font color=red>该产品有库存！</font><br><br><input type=button value=关闭 onclick='window.close()' id=button1 name=button1></div>"
				Response.End 
			end if
			rs.Open "delete from product where productid="&request("productid"),conn,2,3,1

		elseif request("whseid")<>"" then
			objcheck.CheckUserFunction "inventory","del"
			rs.Open "delete from warehouse where whseid="&request("whseid"),conn,2,3,1
			rs.Open "delete from location where whseid="&request("whseid"),conn,2,3,1
		elseif request("invoiceid")<>"" then
			rs.Open "delete from invoice where invoiceid="&request("invoiceid"),conn,2,3,1
		elseif request("approveid")<>"" then
			rs.Open "delete from approve where id="&request("approveid"),conn,2,3,1
		elseif request("paymentid")<>"" then
			objcheck.CheckUserFunction "payment","del"
			set rsq=conn.execute("select paymenttype from orderpayment where paymentid="&request("paymentid"))
				if rsq("paymenttype")="期初应收" or rsq("paymenttype")="期初应开票" then
					response.write "<br><br><br><LINK href='../global.css' rel=stylesheet type=text/css>"
					response.Write "<div align=center>"
					response.Write "<FONT SIZE=2 class=title>"
					response.write "<img src=../images/jg.gif>"
					response.write "期初值不能删除"
					response.write "</div>"
					response.end
				end if
			conn.execute("insert into operatelog(username,opdate,operate,data,description)values('"&session("username")&"','"&now()&"','删除','应收账款','"&request("account")&","&request("ordernum")&",id:"&request("paymentid")&"')") 
			rs.Open "delete from orderpayment where paymentid="&request("paymentid"),conn,2,3,1
		elseif request("reporttoid")<>"" then
			rs.Open "delete from userreportto where id="&request("reporttoid"),conn,2,3,1
		elseif request("scheduleid")<>"" then
			set rsq=conn.Execute("select id from schedule where id="&request("scheduleid"))
				if rsq("creator")<>Session("loginid") then
					response.write "<br><br><br><LINK href='../global.css' rel=stylesheet type=text/css>"
					response.Write "<div align=center>"
					response.Write "<FONT SIZE=2 class=title>"
					response.write "<img src=../images/jg.gif>"
					response.write "派遣者才能删除日程"
					response.write "</div>"
				else
					rs.Open "delete from schedule where id="&request("scheduleid"),conn,2,3,1
				end if
		elseif request("expenseid")<>"" then
			objcheck.CheckUserFunction "expense","del"
			rs.Open "delete from expense where expenseid="&request("expenseid"),conn,2,3,1
			rs.Open "delete from expenseline where expenseid="&request("expenseid"),conn,2,3,1
		elseif request("collectionid")<>"" then
			rs.Open "delete from collection where collectionid="&request("collectionid"),conn,2,3,1
			conn.execute("insert into operatelog(username,opdate,operate,data,description)values('"&session("username")&"','"&now()&"','删除','收款记录','"&request("account")&","&request("ordernum")&",id:"&request("collectionid")&",金额:"&request("amount")&"')")
			'updateorderpayment(request("updatepaymentid"))
		elseif request("quoteid")<>"" then
			objcheck.CheckUserFunction "quote","del"