subsaleorder_showok.asp

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

<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
Dim ID,IsChk,Chk_UserName,ChkInfo
ID=Trim(Request("ID"))
IsChk=Trim(Request("IsChk"))
Chk_UserName=Trim(Request("Chk_UserName"))
ChkInfo=Trim(Request("ChkInfo"))

if ID = "" then
	Call Msg("信息不存在",1,"")
end if

if GetUserGPower=9999 then
	Sql = "Select * from T_SubSaleOrder where SaleID="&cstr(ID)&""
else
	Call msg("无权操作",1,"")
end if


Call sql_open(Rs,Sql,Conn,1,3)
if Rs.eof and Rs.bof then
	Response.write "信息不存在"
else
	Rs("IsChk")=IsChk
	Rs("Chk_UserName")=Chk_UserName
	Rs("Chk_Info")=ChkInfo
	Rs("Chk_Time")=Now()
	Rs.update
end if
call Rs_end(Rs)
Call Msg("已保存",5,"SubSaleOrder_show.asp?ID="&ID&"")

%>