check_system_price.inc

来自「能实现用户注册」· INC 代码 · 共 25 行

<!-- #INCLUDE FILE="odbc_connection.inc" -->
<%
	'on error resume next
	sSQL="SELECT "
	sSQL=sSQL & "tbl_Inventory_System_Components_Session.intSessionID, "
	sSQL=sSQL & "tbl_Inventory_System_Components_Session.s_System_Item_No, "
	sSQL=sSQL & "Sum(tbl_Inventory.Price) AS SumOfPrice "
	sSQL=sSQL & "FROM tbl_Inventory_System_Components_Session "
	sSQL=sSQL & "INNER JOIN tbl_Inventory ON "
	sSQL=sSQL & "tbl_Inventory_System_Components_Session.s_Component_Item_No = tbl_Inventory.s_Item_No "
	sSQL=sSQL & "GROUP BY tbl_Inventory_System_Components_Session.intSessionID, "
	sSQL=sSQL & "tbl_Inventory_System_Components_Session.s_System_Item_No "
	sSQL=sSQL & "HAVING tbl_Inventory_System_Components_Session.intSessionID=" & session.SessionID & " AND tbl_Inventory_System_Components_Session.s_System_Item_No='" & Item_No & "'"
	Set Rprice = Server.CreateObject("ADODB.Recordset")
	Rprice.Open sSQL, conn, 3, 3 'read
	if Rprice.EOF then
	'if err.number>0 then
		Price=0
	else
		Price=Rprice("SumOfPrice")
	end if
	Rprice.close
	set Rprice=nothing
%>