📄 addnew.asp

📁 功能齐全的oa系统
💻 ASP
字号:
<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/String.asp" -->
<%
if session("AccountID")="" then
%>
<script language=javascript>
  alert("因登录时间过长，会话失效，请退出重新登陆！")
</script>
<%  
  Response.End
end if
  
If Request.Form.Count > 0 Then
  Dim C,conn
  Dim IntID
  If Trim(Request.Form("_Pro_name"))="" then
		Response.Write "<script language=javascript>alert('请填写商品名称');history.back();</script>"
    		Response.End
  End if
  If Trim(Request.Form("_Pro_man"))="" then
		Response.Write "<script language=javascript>alert('请填写经办人');history.back();</script>"
    		Response.End
  End if
  If Trim(Request.Form("_Sell_man"))="" then
		Response.Write "<script language=javascript>alert('请填写经销商');history.back();</script>"
    		Response.End
  End if
  Set conn=Server.CreateObject("ADODB.Connection")
  OpenDBCrm( conn )
  conn.Execute("insert into T_CRM_Stock (Pro_name,Pro_con,Pro_price,Pro_num,Pro_man,Sell_man,Selldate,Discount,Bargain_num,Number,Out_pack,Eligibility,Test,Remark,Pcreater,CreateTime) values ('"&FixSQL(Request("_Pro_name"))&"','"&FixSQL(Request("_Pro_con"))&"','"&FixSQL(Request("_Pro_price"))&"','"&FixSQL(Request("_Pro_num"))&"','"&FixSQL(Request("_Pro_man"))&"','"&FixSQL(Request("_Sell_man"))&"','"&FixSQL(Request("_Selldate"))&"','"&FixSQL(Request("_Discount"))&"','"&FixSQL(Request("_Bargain_num"))&"','"&FixSQL(Request("_Number"))&"','"&FixSQL(Request("_Out_pack"))&"','"&FixSQL(Request("_Eligibility"))&"','"&FixSQL(Request("_Test"))&"','"&FixSQL(Request("_Remark"))& "','"&session("AccountID")&"','"&date()&"')")
  conn.Close
  Set conn = Nothing
  Response.Redirect "List.asp"
End If

Sub Main
%>
<HTML><HEAD>
  <form action="" method="post" onsubmit="return(CheckForm(this))">
  <input type=hidden name=_AccountID value=<%=Session("AccountID")%>>
  <table class=Ltable cellspacing=1 cellpadding=3>
<tr class=LHtr align="middle">
		<td width="15%">添加采购信息</td>
		<td width="85%"> </td>
	</tr>
	<tr class=Ltr>
		<td>产品名称</td>
		<td><input type="text"  Check=1 Show="产品名称" name="_Pro_name" value=""></td>
	</tr>
	
	<tr class=Ltr>
		<td>规格型号</td>
		<td><input type="text" Check=0 Show="规格型号" name="_Pro_con" value=""></td>
	</tr>

	<tr class=Ltr>
		<td>产品单价</td>
		<td><input type="text" Check=0 Show="产品单价" name="_Pro_price" value=""></td>
	</tr>
	
	<tr class=Ltr>
		<td>采购数量</td>
		<td><input type="text" Check=0 Show="采购数量" name="_Pro_num" value=""></td>
	</tr>

	<tr class=Ltr>
		<td>经办人</td>
		<td><input type="text" Check=1 Show="经办人" name="_Pro_man" value=""></td>
	</tr>
	

	<tr class=Ltr>
		<td>经销商</td>
		<td><input type="text" Check=1 Show="经销商" name="_Sell_man" value=""></td>
	</tr>





	</table>
  	<table id=MoreInfo class=Ltable cellspacing=1 cellpadding=3>
  	<tr class=LStr>
	<td width="15%">添加采购详细信息</td>
	<td width="85%" colspan=3> </td>
  	</tr>
	<tr class=Ltr>
		<td>合同序号</td>
		<td><input type="text" class=Input Check=0 Show="合同序号" name="_Bargain_num" value=""></td>
	
		<td>编号</td>
		<td><input type="text" Check=0 Show="编号" name="_Number" value=""></td>
	</tr>
	<tr class=Ltr>
		<td>外包装</td>
		<td><input type="text" class=Input Check=0 Show="外包装" name="_Out_pack" value=""></td>
	
		<td>有无合格证</td>
		<td><input type="text"  Check=0 Show="有无合格证" name="_Eligibility" value=""></td>
	</tr>
	<tr class=Ltr>
		<td>到货日期</td>
		<td><input type="text" onclick="InputDate(this)" readonly class=Input Check=0 Show="到货日期" name="_Selldate" value=""></td>
	
		<td>折扣</td>
		<td><input type="text"  Check=0 Show="折扣" name="_Discount" value=""></td>
	</tr>
	<tr class=Ltr>
		<td>检验结果</td>
		<td colspan=3><textarea cols="40" rows="3"  Check=0 Show="检验结果" name="_Test"></textarea></td>
	</tr>		
	<tr class=Ltr>
		<td>备注</td>
		<td colspan=3><textarea cols="40" rows="3"  Check=0 Show="备注" name="_Remark"></textarea></td>
	</tr>
	</table>
  <table cellspacing=1 cellpadding=3>
  <tr>
    <td>
    <input type="submit"  name="Submit" class=Button value="提 交"><input type="button" class=Button value="取 消" onclick="doList()" id=button1 name=button1></td>
    <td></td>
  </tr>
  </table>
<%
End Sub
%>
<!-- #include virtual="Templet/Templet.asp" -->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -