qssave.asp

这是一个关于企业物流平台的东东

<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
-->
</style><!--#include file=conn/co.asp-->
<% 
'判断是否登录
if session("username")="" then
	response.Write("您还没有登录，请<a href=chaxun.asp>登录</a>")
	response.end
end if
if request("fgzhuangtai")="到达" then
	if request("fgqs")<>"" and request("fgtime")<>"" then   '如果到达判断分公司签收人和签收时间 是否为空
		set rs=server.CreateObject("adodb.recordset")
		sql="select * from yundan where id="&request("post")
		rs.open sql,conn,1,3
		
		rs("fgzhuangtai")=request("fgzhuangtai")
		rs("fgqs")=request("fgqs")
		rs("fgtime")=request("fgtime")
		rs.update
		response.Write("签收成功,<a href='javascript:' onclick='window.close()'>关闭</a>")
	else
		response.Write("<script language=javascript>alert('请把信息填写完整');location='javascript:history.go(-1)'</script>")
	end if
else
	response.Write("<script language=javascript>alert('未选择到达，不能提交签单');location='javascript:history.go(-1)'</script>")
end if

%>