modifycomponentdo.asp

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

<!-- #INCLUDE FILE="odbc_connection.inc" -->
<%
strProductID=request.querystring("PID")
ComponentID=request.querystring("CID")
intKey=request.querystring("KEY")
intSessionID=session.sessionID

if request.querystring("DEL")="y" then
	ChangeTo="delete"
else
	ChangeTo=request.form("cboProduct")
end if

if ChangeTo="delete" then
	sSQL="DELETE * FROM tbl_Inventory_System_Components_Session "
	sSQL=sSQL & "WHERE intKey=" & intKey & " AND strProductIDComponent='" & ComponentID & "'"
	Set RS = Server.CreateObject("ADODB.Recordset")
	RS.Open sSQL, conn, 3, 2 'write
else
	if request.querystring("ADD")="y" then
		sSQL="INSERT INTO tbl_Inventory_System_Components_Session ("
		sSQL=sSQL & "intSessionID, strProductIDSystem, strProductIDComponent) VALUES "
		sSQL=sSQL & "(" & intSessionID & ", '" & strProductID & "', '" & ChangeTo & "')"
	else
		sSQL="UPDATE tbl_Inventory_System_Components_Session "
		sSQL=sSQL & "SET strProductIDComponent='" & ChangeTo & "'"
		sSQL=sSQL & " WHERE (intKey=" & intKey
		sSQL=sSQL & " AND strProductIDComponent='" & ComponentID & "'"
		sSQL=sSQL & " AND intSessionID=" & intSessionID & ")"
	end if
	Set RS = Server.CreateObject("ADODB.Recordset")
	RS.Open sSQL, conn, 3, 2 'write
end if
SET RS=nothing
response.redirect "ProductDescriptionSys.asp?CategoryID=" & CategoryID & "&strProductID=" & strProductID
%>