build_sys_ready_components.inc

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

<%
'check rows of tbl_Inventory_System_Components_Session
sSQL="SELECT "
sSQL=sSQL & "intSessionID "
sSQL=sSQL & "FROM tbl_Inventory_System_Components_Session "
sSQL=sSQL & "WHERE (intSessionID=" & session.sessionID & " AND s_System_Item_No='" & session("s_System_Item_No") & "')"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open sSQL, conn, 3, 3 'read

if (RS.BOF AND RS.EOF) then
	'fill this table with copy of rows in tbl_Inventory_System_Components for this Item_No
	sSQL = "INSERT INTO tbl_Inventory_System_Components_Session "
	sSQL = sSQL & "(intSessionID, s_System_Item_No, s_Component_Item_No) "
	sSQL = sSQL & "SELECT "
	sSQL = sSQL & session.sessionID & " AS expr1, tbl_Inventory_System_Components.s_System_Item_No, tbl_Inventory_System_Components.s_Component_Item_No "
	sSQL = sSQL & "FROM tbl_Inventory_System_Components "
	sSQL = sSQL & "WHERE tbl_Inventory_System_Components.s_System_Item_No='" & session("s_System_Item_No") & "'"
	SET RSappend=conn.execute(sSQL)	
	SET RSappend=nothing
else
	'do nothing
end if
RS.close
set RS=nothing
%>