addnew_03.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 82 行

<%option explicit%>
<!--#include virtual ="Include/DataEnvi.asp"-->
<%
	Dim ObjDB,IntIsSend
	Dim IntNewComMsgID,Arrive_Time
	Dim StrSQL,ObjRS,conn

	if session("AccountID")="" then
%>
<script language=javascript>
  	alert("因登录时间过长，会话失效，请退出重新登陆！")
</script>
<%  
   	Response.End
	end if
	
	If Trim(Request.Form ("Partment"))="" then
		Response.Write "<script language=javascript>alert('请填写部门名称');history.back();</script>"
    		Response.End
  	End if
  	If Trim(Request.Form ("ProName"))="" then
		Response.Write "<script language=javascript>alert('请填写商品名称');history.back();</script>"
    		Response.End
  	End if
	Set conn=Server.CreateObject("ADODB.Connection")
	OpenDBCrm( conn )	
	Set ObjDB = Server.CreateObject ("ADODB.Connection")
	OpenDB ObjDB
	IntIsSend = Request.QueryString ("IsSend")
	If IntIsSend = "" then 
		IntIsSend = 0
	Else
		IntIsSend = Cint(IntIsSend)
	End if
  
  if Request.Form ("Arrive_Time") = "" then
    Arrive_Time = Date()
  else
    Arrive_Time = CDate(Request.Form ("Arrive_Time"))
  end if
  
	StrSQL = "Select * from T_CRM_Stock_Application where ID =1"
	Set ObjRS = Server.CreateObject ("ADODB.RecordSet")
	ObjRS.Open StrSQL,conn,1,3
		
	ObjRS.AddNew 
	ObjRS("AccountID") = Session("AccountID")
	ObjRS("ProName") = Request.Form ("ProName")
	ObjRS("ProType") = Request.Form ("ProType")
	ObjRS("ProNum") = Request.Form ("ProNum")
	ObjRS("CommendPro") = Request.Form ("CommendPro")
	ObjRS("EstimatePrice") = Request.Form ("EstimatePrice")
	ObjRS("Totle") = Request.Form ("Totle")
	ObjRS("Partment") = Request.Form ("Partment")
	ObjRS("AppTime") = Request.Form ("AppTime")
	ObjRS("StoReason") = Request.Form ("StoReason")
  ObjRS("AskNote") = Request.Form ("AskNote")
  ObjRS("Intending_Money") = Request.Form ("Intending_Money")
  ObjRS("Commend_Pro") = Request.Form ("Commend_Pro")
  ObjRS("Arrive_Time") = Arrive_Time
  ObjRS("Remark") = Request.Form ("Remark")
	ObjRS.Update
		
	IntNewComMsgID = ObjRS("ID")
	ObjRS.Close 
	Set ObjRS = Nothing

	ObjDB.Close 
	Set ObjDB = Nothing
	
	
	If IntIsSend = 1 then
		Response.Redirect "Addnew_04.asp?ComMsgID=" & IntNewComMsgID
	Else
%>
	<script language=javascript>
	parent.frmToolbar.doList(2)
	</script>
<%	
	End if
%>