qssave2.asp

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

<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
-->
</style><!--#include file=conn/co.asp--> 
<% 
'判断是否到达
if request("zhuangtai")="到达" then
	if request("qs")<>"" and request("qstime")<>"" then
		set rs=server.CreateObject("adodb.recordset")
		sql="select * from yundan where id="&request("post")
		rs.open sql,conn,1,3
		rs("zhuangtai")=request("zhuangtai")
		rs("qs")=request("qs")
		rs("qstime")=request("qstime")
		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
%>