productpic_inc.asp

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

<%
	dim rs,i,j,ProductPic,ProductPicNum,ProductID,action,PicUrl,PicID
	
	ProductID = sqlcheck(Request.QueryString("ProID"))
	PicID = sqlcheck(Request.QueryString("PicID"))
	action = sqlchg(Request.QueryString("action"))
	PicUrl = sqlchg(Request.Form("PicUrl"))
	
	if action = "add" then
		conn.execute("Insert into ProductPic (PicUrl,ProductID) values ('"&PicUrl&"','"&ProductID&"')")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='productPic.asp?ProID="&ProductID&"';</script>")
		Response.End()
	end if
	
	if action = "del" then
		set rs = conn.execute("Select PicUrl from ProductPic where PicID = "&PicID&"")
		call del("../"&rs(0))
		conn.execute("Delete from ProductPic where PicID = "&PicID&"")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='productPic.asp?ProID="&ProductID&"';</script>")
		Response.End()
	end if
	
	set rs = conn.execute("Select PicID,PicUrl from ProductPic where ProductID = "&ProductID&"")
	if not rs.eof then
		ProductPic = rs.getrows
		ProductPicNum = ubound(ProductPic,2)
		if not isnumeric(ProductPicNum) then
			ProductPicNum = 1
		end if
	else
		ProductPicNum = -1
	end if
%>