📄 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
  Dim IntID,conn
  If Trim(Request("_Lname"))="" 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_LinkMan (Lname,Guest_id,Lpart,Lposition,Lmobile,Lphone,Loffice,Laddress,Lpost,Lfox,Lemail,Llike,Lmemory,Lcountry,Lcity,Lvisitdate,Lcalldate,Remark,Lcreater,CreateTime) values ('"&FixSQL(Request("_Lname"))&"','"&FixSQL(Request("_Guest_id"))&"','"&FixSQL(Request("_Lpart"))&"','"&FixSQL(Request("_Lposition"))&"','"&FixSQL(Request("_Lmobile"))&"','"&FixSQL(Request("_Lphone"))&"','"&FixSQL(Request("_Loffice"))&"','"&FixSQL(Request("_Laddress"))&"','"&FixSQL(Request("_Lpost")) &"','"&FixSQL(Request("_Lfox"))&"','"&FixSQL(Request("_Lemail"))&"','"&FixSQL(Request("_Llike"))&"','"&FixSQL(Request("_Lmemory"))&"','" &FixSQL(Request("_Lcountry"))&"','"&FixSQL(Request("_Lcity"))&"','"& FixSQL(Request("Lvisitdate"))&"','"& FixSQL(Request("Lcalldate"))& "','"& FixSQL(Request("_Remark"))& "','"&session("AccountID")&"','"&date()&"')")
  conn.Close
  Set conn = Nothing
  Response.Redirect "List.asp"
End If

Sub Main
%>
<script language=javascript>
	function SelectRoleIDs(IDs)
	{
		window.open("SelectGuest.asp?IDs="+IDs,"RoleWin","width=600,height=420,scrollbars=yes")
	}

	function ChangeRole(IDs,Names)
	{
		document.forms[0]._Guest_id.value = IDs
		document.forms[0].Guest_Name.value = Names
		window.focus()
	}
</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=LHtr align="middle">
    <td width="15%">新增联系人</td>
    <td width="85%"> </td>
  </tr>
  <tr class=Ltr>
    <td>姓名</td>
    <td><input type="text" class=Input Check=1 Show="姓名" name="_Lname" value=""></td>
  </tr>
  <tr class=Ltr>
    <td>所属客户</td>
    <td><input type="text" class=Input readonly Check=0 Show="所属客户" onchange="SelectRoleIDs(_Guest_id.value)" onkeydown="SelectRoleIDs(_Guest_id.value)" onclick="SelectRoleIDs(_Guest_id.value)" name="Guest_Name" value=""><input type=button class=Button value="选择客户" onclick="SelectRoleIDs(_Guest_id.value)" id=button1 name=button1>
		<input name=_Guest_id value="" type=hidden>	</td>
  </tr>
  <tr class=Ltr>
     <td>部门</td>
     <td><input type="text" class=Input Check=0 Show="部门" name="_Lpart" value=""></td>
  </tr>
  <tr class=Ltr>
     <td>职务</td>
     <td><input type="text" class=Input Check=0 Show="职务" name="_Lposition" value=""></td>
  </tr>
  
  <tr class=Ltr>
    <td>移动电话</td>
    <td><input type="text" class=Input Check=0 Show="移动电话" name="_Lmobile" 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="_Lphone" value=""></td>
 
    <td>办公室电话</td>
    <td><input type="text" class=Input Check=0 Show="办公室电话" name="_Loffice" value=""></td>
  </tr>
  <tr class=Ltr>
    <td>地址</td>
    <td><input type="text" class=Input Check=0 Show="地址" name="_Laddress" value=""></td>

    <td>邮编</td>
    <td><input type="text" class=Input Check=0 Show="邮编" name="_Lpost" value=""></td>
  </tr>
  <tr class=Ltr>
    <td>传真</td>
    <td><input type="text" class=Input Check=0 Show="传真" name="_Lfox" value=""></td>

    <td>电子信箱</td>
		<td><input type="text" class=Input Check=0 Show="电子信箱" name="_Lemail"  value=""></td>
  </tr>
  <tr class=Ltr>
    <td>爱好</td>
    <td><input type="text" class=Input Check=0 Show="爱好" name="_Llike" value=""></td>

     <td>纪念日</td>
     <td><input type="text" class=Input Check=0 Show="纪念日" name="_Lmemory" value=""></td>
  </tr>
  <tr class=Ltr>
    <td>国家/地区</td>
		<td><input type="text" class=Input Check=0 Show="国家/地区" name="_Lcountry" value=""></td>

    <td>所在城市</td>
		<td><input type="text" class=Input Check=0 Show="所在城市" name="_Lcity"  value=""></td>
  </tr>
  <tr class=Ltr>
    <td>最后拜访日期</td>
		<td><input type="text" class=Input onclick="InputDate(this)" readonly Check=0 Show="最后拜访日期" name="_Lvisitdate"  value=""></td>

    <td>最后电话日期</td>
		<td><input type="text" class=Input onclick="InputDate(this)" readonly Check=0 Show="最后电话日期" name="_Lcalldate"  value=""></td>
  </tr>
	<tr class=Ltr>
		<td>备注</td>
		<td colspan=3><textarea cols="20" rows="2" 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" -->
💿 文件大小 29478 K
👤 上传用户 z3021440
📂 所属分类 OA系统
⌨️ 快捷键说明

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