show_insuborderok.asp

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

<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
Dim ID,IsChk,InChk_UserName,ChkInfo
Dim Pro_ID,Pro_Num
Pro_ID = Trim(Request("Pro_ID"))
ID=Trim(Request("ID"))
IsChk=Trim(Request("IsChk"))
InChk_UserName=Trim(Request("InChk_UserName"))
ChkInfo=Trim(Request("ChkInfo"))
Pro_Num = Trim(Request("Pro_Num"))
if ID = "" then
	Call Msg("信息不存在",1,"")
end if
Sql = "Select * from T_SubOutOrder where InChk_UserID="&cstr(GetUserID)&" and OutOrder_ID="&cstr(ID)&""
Call sql_open(Rs,Sql,Conn,1,3)
if Rs.eof and Rs.bof then
	Response.write "信息不存在"
else
	Rs("IsChk")=IsChk
	Rs("InChk_UserName")=GetUserName
	Rs("ChkInfo")=ChkInfo
	Rs("ChkIntime")=Now()
	Rs.update
end if

call Rs_end(Rs)
Call Msg("已保存",5,"Show_InSubOrder.asp?ID="&ID&"")
%>