linkadsmanage_inc.asp

网店批发系统,很好很强大,很好很强大很好很强大

<%
	dim rs,i,j,k,action,AdsID,Ads,AdsNum,AdsTitle,Adsurl,n_classid,orderID,n_class,n_classNum
	
	action = sqlchg(Request.QueryString("action"))
	AdsID = sqlcheck(Request.QueryString("AdsID"))
	AdsTitle = sqlchg(Request.Form("AdsTitle"))
	Adsurl = sqlchg(Request.Form("Adsurl"))
	n_classid = sqlcheck(Request.Form("n_classid"))
	orderID = sqlcheck(Request.Form("orderID"))
	
	if action = "add" then
		conn.execute("Insert into LinkAds (LinkadsTitle,LinkadsLink,OrderID,n_classid) values ('"&AdsTitle&"','"&Adsurl&"','"&orderID&"','"&n_classid&"')")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='LinkAdsManage.asp';</script>")
		Response.End()
	end if
	
	if action = "edit" then
		conn.execute("Update LinkAds set LinkadsTitle = '"&AdsTitle&"',LinkadsLink = '"&Adsurl&"',OrderID = '"&orderID&"',n_classid = '"&n_classid&"' where LinkadsID = "&AdsID&"")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='LinkAdsManage.asp';</script>")
		Response.End()
	end if
	
	if action = "del" then
		conn.execute("Delete from LinkAds where LinkadsID = "&AdsID&"")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='LinkAdsManage.asp';</script>")
		Response.End()
	end if
	
	set rs = conn.execute("Select LinkadsID,LinkadsTitle,LinkadsLink,OrderID,n_classid from LinkAds order by LinkAdsID desc")
	if not rs.eof then
		Ads = rs.getrows
		AdsNum = ubound(Ads,2)
		if not isnumeric(AdsNum) then
			AdsNum = 1
		end if
	else
		AdsNum = -1
	end if
	rs.close
	
	set rs = conn.execute("SELECT n_classid,n_classname FROM n_class")
	if not rs.eof then
		n_class = rs.getrows
		n_classNum = ubound(n_class,2)
		if not isnumeric(n_classNum) then
			n_classNum = 1
		end if
	else
		n_classNum = -1
	end if
%>