payment_inc.asp

来自「网店批发系统,很好很强大,很好很强大很好很强大」· ASP 代码 · 共 42 行

<%
	dim lx,action,title,orderid,p_id
	dim query,rs
	dim pay,p
	dim j
	
	lx = sqlcheck(request.QueryString("lx"))
	action = request.QueryString("action")
	title = sqlchg(request.Form("title"))
	orderid = sqlcheck(request.Form("orderid"))
	p_id = sqlcheck(request.QueryString("ID"))
	
	if action = "del" then
		conn.execute("DELETE FROM payment WHERE p_id = "&p_id&"")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='payment.asp?lx="&lx&"';</script>")
		Response.End()
	end if
	
	if action = "edit" then
		conn.execute("UPDATE payment SET p_name = '"&title&"',orderid = '"&orderid&"' WHERE p_id = "&p_id&"")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='payment.asp?lx="&lx&"';</script>")
		Response.End()
	end if
	
	if action = "add" then
		conn.execute("INSERT INTO payment (p_name,orderid,p_type) VALUES ('"&title&"','"&orderid&"','"&lx&"')")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='payment.asp?lx="&lx&"';</script>")
		Response.End()
	end if
	
	query = "SELECT p_id,p_name,orderid FROM payment WHERE p_type = "&lx&" ORDER BY orderid,p_id DESC"
	set rs = conn.execute(query)
	if not rs.eof then
		pay = rs.getrows
		p = ubound(pay,2)
		if not isnumeric(p) then
			p = 1
		end if
	else
		p = -1
	end if
%>