?? bs_yupadd.asp
字號:
<!--#include file=conn.asp-->
<%
select case Request("action")
Case "add"
addpp
Case Else
Response.redirect"ydanglx.asp"
Response.end
end select
Sub addpp
dim max,ppid,ppname,pporder,sql,sql1
max=request.form("ppid").count
ddh=Request("ddh")
yhzt="已驗貨"
For i=1 to max
bhgyy=request.form("bhgyy")(i)
ppid=request.form("ppid")(i)
sql="Update bs_ddan Set bhgyy='"&bhgyy&"' Where ID="&ppid
conn.execute(sql)
Next
sql1="Update bs_ddanlb Set yhzt='"&yhzt&"' Where ddh='"&ddh&"'"
conn.execute(sql1)
response.write"<script language=javascript>alert('驗貨單提交成功!');location.href='ydanglx.asp';</script>"
End sub
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -