📄 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

'----------------------------------------------------------------
Session("t_crm_Bargain_id")=""
'----------------------------------------------------------------
  
If Request.Form.Count > 0 Then
  Dim C
  Dim IntID,conn
  If Trim(Request("_B_text"))="" 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_Bargain (ProName,B_hao,B_number,B_text,Attachs,B_jia,B_yi,B_start,B_time,B_address,B_jia_commissary,B_yi_commissary,B_jia_address,B_yi_address,B_jia_phone,B_yi_phone,B_state,Bcreater,CreateTime,Remark) values ('"&FixSQL(Request("_ProName"))&"','"&FixSQL(Request("_B_hao"))&"','"&FixSQL(Request("_B_number"))&"','"&FixSQL(Request("_B_text"))&"','"& FixSQL(Request("_attachs"))&"','"& FixSQL(Request("_B_jia"))&"','"&FixSQL(Request("_B_yi"))&"','"&FixSQL(Request("_B_start"))&"','"&FixSQL(Request("_B_time"))&"','"&FixSQL(Request("_B_address"))&"','"&FixSQL(Request("_B_jia_commissary"))&"','"&FixSQL(Request("_B_yi_commissary"))&"','"&FixSQL(Request("_B_jia_address")) &"','"&FixSQL(Request("_B_yi_address"))&"','"&FixSQL(Request("_B_jia_phone"))&"','"&FixSQL(Request("_B_yi_phone"))&"','"&FixSQL(Request("_B_state"))&"','"&session("AccountID")&"','"&date()&"','"& FixSQL(Request("_Remark"))&"')")
  
  conn.Close
  Set conn = Nothing
  Response.Redirect "List.asp"
End If

Sub Main
%>
<script language=javascript>	
	function EditAttach()
	{
		var r =window.showModalDialog("../../crm/Attach/Index.asp?IDs=" + document.forms[0]._Attachs.value + "&BasePath=Bargain&R=" + Math.random(),"AttachWin","dialogHeight=240px,dialogWidth=420px,resizable=No,status=1,scrollbars=1");
		if(r!=null)
		{
			ReturnAttachs(r)
		}
	}

	function ReturnAttachs(v)
	{
		document.forms[0].AttachsShow.value = v[0]
		document.forms[0]._Attachs.value = v[1]
	}
</script>
<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=LStr>
    <td width="15%">新增合同信息</td>
    <td width="85%" colspan=3></td>
  </tr>
   <tr class=Ltr>
    <td>项目名称</td>
    <td><input type="text" class=Input Check=1 Show="项目名称" name="_ProName" value=""></td>
    <td>合同号</td>
    <td><input type="text" class=Input Check=1 Show="合同号" name="_B_hao" value=""></td>
  </tr>
  <tr class=Ltr>
    <td>编号</td>
    <td><input type="text" class=Input Check=1 Show="编号" name="_B_number" value=""></td>
    <td>合同简述</td>
    <td><input type="text" class=Input Check=1 Show="合同简述" name="_B_text" value=""></td>
  </tr>
  <tr class=Ltr>
    <td>甲方</td>
    <td><input type="text" class=Input Check=0 Show="甲方" name="_B_jia" value=""></td>
    <td>乙方</td>
    <td><input type="text" class=Input Check=0 Show="乙方" name="_B_yi" value=""></td>
  </tr>
  <tr class=Ltr>
    <td>签署日期</td>
    <td><input type="text" class=Input onclick="InputDate(this)" readonly Check=1 Show="签署日期" name="_B_start" value=""></td>
     <td>合同期限</td>
     <td><input type="text" class=Input Check=0 Show="合同期限" name="_B_time" value=""></td>
  </tr>
  <tr class=Ltr>
    <td>签署地点</td>
    <td><input type="text" class=Input Check=0 Show="签署地点" name="_B_address" value=""></td>
    <td></td>
    <td></td>
  </tr>
  <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="_B_jia_commissary" value=""></td>
    <td>乙方代表</td>
    <td><input type="text" class=Input Check=0 Show="乙方代表" name="_B_yi_commissary" value=""></td> 
  </tr>
  <tr class=Ltr>
    <td>甲方地址</td>
    <td><input type="text" class=Input Check=0 Show="甲方地址" name="_B_jia_address" value=""></td>
    <td>乙方地址</td>
    <td><input type="text" class=Input Check=0 Show="乙方地址" name="_B_yi_address"  value=""></td>
  </tr>
  <tr class=Ltr>
     <td>甲方电话</td>
     <td><input type="text" class=Input Check=0 Show="甲方电话" name="_B_jia_phone" value=""></td>
     <td>乙方电话</td>
     <td><input type="text" class=Input Check=0 Show="乙方电话" name="_B_yi_phone" value=""></td>
  </tr>
  <tr class=Ltr>
     <td>执行状态</td>
     <td><input type="text" class=Input Check=0 Show="执行状态" name="_B_state"  value=""></td>
     <td>合同附件</td>
	<td><input name=_Attachs type=hidden class=Input>
    <input name=AttachsShow disabled size=20 class=Input size="20"> <input type=button value="编辑附件" class=button onclick="EditAttach()" id=button3 name=button3>
	</td>

  </tr>
  <tr class=Ltr>
		<td>备注</td>
		<td colspan=3><textarea rows="5" cols="40" class=Input 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>
  </FORM>
<%
End Sub
%>
<!-- #include virtual="Templet/Templet.asp" -->
⌨️ 快捷键说明

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