📄 复件 fh_save.asp

📁 这是去年开发的中移鼎讯手机进销存系统大家

💻 ASP

字号:

<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
Dim SubOrderID,UserID,UserGPower
Dim XUserID,SUserID,PUserID
Dim Lev		'目标
Dim ALev	'now

SubOrderID	= trim(Request("ID"))
Lev			= trim(Request("Lev"))
ALev		= trim(Request("ALev"))
UserID		= trim(Request("UserID"))

Sql="Select * from T_SubOrder where SubOrderID="&Cstr(SubOrderID)&""
Call sql_open(Rs,Sql,Conn,1,3)
if Rs.eof and Rs.bof then
	Call Msg("内容不存在",1,"")
else
	Rs("ArriveLev_FH")=Lev
	If ALev=9999 then
		Rs("P_FH")=1
		Rs("P_FH_Time")=now()
	Elseif ALev=999 then
		Rs("S_FH")=1
		Rs("S_FH_Time")=now()
	Elseif ALev=99 then
		Rs("X_FH")=1
		Rs("X_FH_Time")=now()
	end if
	Rs.Update()
end if
Call Rs_End(Rs)

Call Msg("已经发货成功",5,"SubOrder.asp?Check=2")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>保存</title>
</head>

<body>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -