productpic_inc.asp

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

<%
	dim i,j,ProductPic,ProductPicNum,ProductID,PicID,PicDetail
	
	ProductID = sqlcheck(Request.QueryString("ProID"))
	PicID = sqlcheck(Request.QueryString("PicID"))
	
	set rs = conn1.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
	
	if PicID = "" and ProductPicNum <> -1 then
		PicID = ProductPic(0,j)
	end if
%>