build_sys_mod_add_do.asp

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

<%
'on error resume next

%><!-- #INCLUDE FILE="odbc_connection.inc" --><%

s_Item_No=request.querystring("s_Item_No")

'add new
sSQL="INSERT INTO tbl_Inventory_System_Components_Session ("
sSQL=sSQL & " s_System_Item_No"
sSQL=sSQL & ",s_Component_Item_No"
sSQL=sSQL & ",intSessionID"
sSQL=sSQL & ",dDate"
sSQL=sSQL & ",UserID"
sSQL=sSQL & ") Values ("
sSQL=sSQL & " '" & session("s_System_Item_No") & "'"
sSQL=sSQL & ",'" & s_Item_No & "'"
sSQL=sSQL & "," & session.sessionID
sSQL=sSQL & ",#" & date & "#"
sSQL=sSQL & "," & session("UserID")
sSQL=sSQL & ")"
set RS=conn.execute(sSQL)
set RS=nothing

'go back to display new total, await more changes, etc.
session("repeat")=1
response.redirect "build_sys_mod.asp"
%>