📄 act_design.asp

📁 本系统是基于B/S结构的客户关系管理系统. 测试管理员和密码是super 用户名super 密码super 前台和后台是一次性同时登陆的系统工能介绍: 客户管理---------- 添
💻 ASP
字号:
<!--#include file="../function/connect.asp"-->
<!--#include file="../function/function.asp"-->
<%
client_id=request("ID")
strdate=request("strdate")
if strdate="" then
	strdate=date()
end if
'close=request("close")
%>
<html>
<head>
<title>自定义联系活动</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../cssD.css" rel=stylesheet>
<script language = "javascript" src="../function/date-picker.js"></script>
<script>
	xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
	function fnDo(strTable,strFIdName,strIdName,strIDValue,strShowName)
	{
		var xmlDom = new ActiveXObject("Msxml2.DOMDocument"); 
		var strURL = "GetCity.asp?strIDValue=" + strIDValue + "&strIdName="+strIdName+"&strTable="+strTable+"&strShowName="+strShowName+"&strFIdName="+strFIdName;
		//alert(strURL);
		
		xmlhttp.Open("POST",strURL , true);
		xmlhttp.onreadystatechange = fnRun;
		
		xmlhttp.Send(xmlDom);
	}
	//--------------------------------------------------------
	function fnRun()
	{
		var state = xmlhttp.readyState;
		var xmlDom = new ActiveXObject("Msxml2.DOMDocument");
	
		if (state == 4)
		{
			xmlDom.loadXML(xmlhttp.responseXML.xml);
			//alert(xmlDom.documentElement.selectSingleNode("//objXML").text)
			var getInfo = xmlDom.documentElement.selectSingleNode("//objXML").text;
			//document.write(getInfo);
			subcat = new Array();
			eval(getInfo);
			changelocation(subcat)
		} 
	}
	function changelocation(subcat)
	{
		
		document.form1.act_contact.length = 0;
		var i;
		document.form1.act_contact.options[0] = new Option('====选择====','');
		for (i=0;i <subcat.length; i++)
		{
			document.form1.act_contact.options[document.form1.act_contact.length] = new Option(subcat[i][0], subcat[i][1]);
		}
	}
	
	
	xmlhttp1 = new ActiveXObject("Msxml2.XMLHTTP");
	function fnDo1(strTable,strFIdName,strIdName,strIDValue,strShowName)
	{
		var xmlDom1 = new ActiveXObject("Msxml2.DOMDocument"); 
		var strURL = "GetCity.asp?strIDValue=" + strIDValue + "&strIdName="+strIdName+"&strTable="+strTable+"&strShowName="+strShowName+"&strFIdName="+strFIdName;
		//alert(strURL);
		
		xmlhttp1.Open("POST",strURL , true);
		xmlhttp1.onreadystatechange = fnRun1;
		
		xmlhttp1.Send(xmlDom1);
	}
	//--------------------------------------------------------
	function fnRun1()
	{
		var state = xmlhttp1.readyState;
		var xmlDom = new ActiveXObject("Msxml2.DOMDocument");
	
		if (state == 4)
		{
			xmlDom.loadXML(xmlhttp1.responseXML.xml);
			//alert(xmlDom.documentElement.selectSingleNode("//objXML").text)
			var getInfo = xmlDom.documentElement.selectSingleNode("//objXML").text;
			//document.write(getInfo);
			subcat = new Array();
			eval(getInfo);
			changelocation1(subcat)
		} 
	}
	function changelocation1(subcat)
	{
		
		document.form1.act_chance.length = 0;
		var i;
		document.form1.act_chance.options[0] = new Option('====选择====','');
		for (i=0;i <subcat.length; i++)
		{
			document.form1.act_chance.options[document.form1.act_chance.length] = new Option(subcat[i][0], subcat[i][1]);
		}
	}
	
	
	function check()
	{
		if(document.form1.act_title.value==""){
			alert("活动主题不能为空");
			document.form1.act_title.focus();
			return false;
		}
		if(document.form1.act_client.value==""){
			alert("相关客户不能为空");
			document.form1.act_client.focus();
			return false;
		}
		if(document.form1.act_contact.value==""){
			alert("相关联系人不能为空");
			document.form1.act_contact.focus();
			return false;
		}
		//if(document.form1.act_chance.value==""){
		//	alert("相关机会不能为空");
		//	document.form1.act_chance.focus();
		//	return false;
		//}
	}
</script>
</head>

<body>
<table width="100%" border="1" cellspacing="0" cellpadding="1" bordercolorlight='#000000' bordercolordark='#FFFFFF'>
  <form name="form1" method="post" action="">
  <tr> 
    <td width="16%" height="22"> <div align="right">自定义字典21</div></td>
    <td width="34%" height="22"><%getDic "Dict21",""%></td>
    <td width="16%" height="22"> <div align="right">自定义字段21</div></td>
      <td width="34%" height="22"><%getUserField "User21",""%></td>
  </tr>
  <tr> 
    <td height="22"><div align="right">自定义字典22</div></td>
    <td height="22"><%getDic "Dict22",""%></td>
    <td height="22"><div align="right">自定义字段22</div></td>
    <td height="22"><%getUserField "User22",""%></td>
  </tr>
  <tr> 
    <td height="22"><div align="right">自定义字典23</div></td>
    <td height="22"><%getDic "Dict23",""%></td>
    <td height="22"><div align="right">自定义字段23</div></td>
    <td height="22"><%getUserField "User23",""%></td>
  </tr>
  <tr> 
    <td height="22"><div align="right">自定义字典24</div></td>
    <td height="22"><%getDic "Dict24",""%></td>
    <td height="22"><div align="right">自定义字段24</div></td>
    <td height="22"><%getUserField "User24",""%></td>
  </tr>
  <tr> 
    <td height="22"><div align="right">自定义字典25</div></td>
    <td height="22"><%getDic "Dict25",""%></td>
    <td height="22"><div align="right">自定义字段25</div></td>
    <td height="22"><%getUserField "User25",""%></td>
  </tr>
  <tr> 
    <td height="22" colspan="4"><div align="center">
          <input type="submit" name="Submit" value="  确定  " class="button">
          <input type="reset" name="Submit2" value="  重设  " class="button">
        </div></td>
  </tr>
  </form>
</table>

</body>
</html>
<script>
	function Openwin(str)
	{
		window.open(str,"","left=100,top=100,Width=500,Height=400,scrolling=yes");
	}
</script>
⌨️ 快捷键说明

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