addnewclient.asp

Activity——活动管理模块 Analyse——分析模块 Client——客户管理系统模块 Email——E-mail管理模块 Fee——费用管理模块 Report——报表模块 Sel

</FONT></TD>
      <TD colspan="5" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings 
      color=#99ccff >v</FONT></FONT><FONT color=#ff6600>所属部门:
          <input readonly="true" name="T_ClientSection" type="text" id="T_ClientSection" size="15" maxlength="30" value="<%=ClientCreatorSName%>">
		  <input name="T_ClientSectionID" type="hidden" value=<%=ClientCreatorSNum%>>
      </FONT></TD>
      <TD colspan="3" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings 
      color=#99ccff >v</FONT></FONT><FONT color=#ff6600>是否公开记录: 
        <input name="Check_Open" type="checkbox" id="Check_Open" value="Open" <%if OpenFlag = 1 then%>checked<%end if%>>
</FONT></TD>
    </TR>
    <TR>
      <TD height="26" colspan="4" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings 
      color=#99ccff >v</FONT></FONT><FONT color=#ff6600>操作者:
          <input  readonly="true" name="T_ClientOperator" type="text" id="T_ClientOperator" size="15" maxlength="30" value="<%=ClientOperatorName%>">
		   <input name="T_ClientOperatorID" type="hidden" value = <%=User_ID%>>
      </FONT></TD>
      <TD colspan="5" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings 
      color=#99ccff >v</FONT></FONT><FONT color=#ff6600>创建日期:
          <input readonly="true" name="T_ClientCreateDate" type="text" id="T_ClientCreateDate" size="15" maxlength="30" value="<%=ClientCreateDate%>">
      </FONT></TD>
      <TD colspan="3" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings 
      color=#99ccff >v</FONT></FONT><FONT color=#ff6600>最后修改日期:
          <input  readonly="true" name="T_ClientUpdateDate" type="text" id="T_ClientUpdateDate" size="15" maxlength="30" value="<%=ClientUpdateDate%>">
      </FONT></TD>
    </TR>
    </form>
	  
	  <!--删除按钮确认函数-->	
	 <SCRIPT FOR="DeleteButton" EVENT="onClick" LANGUAGE="VBScript">
			Dim TheForm
			Set TheForm = Document.forms("saveclient")
			if TheForm.T_ClientOperatorID.value<>TheForm.T_ClientCreatorID.value then
				MsgBox "你不能删除当前客户信息资料!",48,"警告"
			else
				Dim MyVar
				MyVar = MsgBox ("你确认要删除该客户的信息资料么？",52, "确认删除")
				if MyVar = 6 then
					location.replace(TheForm.DelPage.Value)
				end if
			end if
	 </SCRIPT>
	 <!--删除按钮确认函数结束-->

	 <!--保存按钮确认函数-->	
	 <SCRIPT FOR="NewButton" EVENT="onClick" LANGUAGE="VBScript">
			Dim TheForm,SubmitFlag
			Set TheForm = Document.forms("NewClient")
			SubmitFlag = 1
			if TheForm.T_ClientName.value = "" then
				MsgBox "请填写客户名称",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientName.focus()
			else if TheForm.T_ClientEmail.value="" then
				MsgBox "请填写客户Email",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientEmail.focus()
			else if TheForm.T_ClientNation.value="" then
				MsgBox "请填写客户国家或地区",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientNation.focus()
			else if TheForm.T_ClientPro.value="" then
				MsgBox "请填写客户所在省份或直辖市",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientPro.focus()
			else if TheForm.T_ClientHpage.value="" then
				MsgBox "请填写客户主页",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientHpage.focus()
			else if TheForm.T_ClientNcode.value="" then
				MsgBox "请填写客户国家区号",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientNcode.focus()
			else if TheForm.T_ClientCity.value="" then
				MsgBox "请填写客户所在城市",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientCity.focus()
			else if TheForm.T_ClientAcode.value="" then
				MsgBox "请填写客户所在地区号",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientAcode.focus()
			else if TheForm.T_ClientPcode.value="" then
				MsgBox "请填写客户所在地邮编",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientPcode.focus()
			else if TheForm.T_ClientIncome.value="" then
				MsgBox "请填写客户年收入",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientIncome.focus()
			else if IsNumeric(TheForm.T_ClientIncome.value)=false then
				MsgBox "客户年收入格式不对，请填写数字格式",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientIncome.focus()
			else if TheForm.T_ClientEmpNum.value="" then
				MsgBox "请填写客户员工人数",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientEmpNum.focus()
			else if IsNumeric(TheForm.T_ClientEmpNum.value)=false then
				MsgBox "客户员工人数格式不对，请填写数字格式",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientEmpNum.focus()
			else if TheForm.T_ClientTel.value="" then
				MsgBox "请填写客户联系电话",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientTel.focus()
			else if TheForm.T_ClientFax.value="" then
				MsgBox "请填写客户传真号",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientFax.focus()
			else if TheForm.T_ClientAdd.value="" then
				MsgBox "请填写客户详细地址",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientAdd.focus()
			else if TheForm.T_ClientTaxName.value="" then
				MsgBox "请填写客户增值税开票名",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientTaxName.focus()
			else if TheForm.T_ClientTaxNum.value="" then
				MsgBox "请填写客户增值税号",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientTaxNum.focus()
			else if TheForm.T_ClientTaxANum.value="" then
				MsgBox "请填写客户增值税银行账号",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientTaxANum.focus()
			else if TheForm.T_ClientTaxABank.value="" then
				MsgBox "请填写客户增值税开户银行",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientTaxABank.focus()
			else if TheForm.T_ClientTaxAAdd.value="" then
				MsgBox "请填写客户增值税开户地址",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientTaxAAdd.focus()
			else if TheForm.T_ClientTaxATel.value="" then
				MsgBox "请填写客户增值税开户电话",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientTaxATel.focus()
			else if TheForm.T_ClientABank.value="" then
				MsgBox "请填写客户开户银行",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientABank.focus()
			else if TheForm.T_ClientANum.value="" then
				MsgBox "请填写客户银行账号",48,"警告"
				SubmitFlag = 0
				TheForm.T_ClientANum.focus()
			end if
			end if
			end if
			end if
			end if
			end if
			end if
			end if
			end if
			end if
			end if
			end if
			end if
			end if
			end if
			end if
			end if
			end if
			end if
			end if
			end if
			end if
			end if
			end if

				if SubmitFlag = 1 then
					TheForm.submit()
				end if
		
	 </SCRIPT>
	 <!--保存按钮确认函数结束-->
	 

    
	<TR align=middle bgColor=#99ccff> 
      <TD height="24" colSpan=12 vAlign=middle></TD>
    </TR>
    <tr>
      <td height="1"></td>
      <td></td>
      <td width="58"></td>
      <td width="70"></td>
      <td width="79"></td>
      <td width="19"></td>
      <td width="28"></td>
      <td width="13"></td>
      <td width="111"></td>
      <td width="31"></td>
      <td width="16"></td>
      <td></td>
    </tr>
    </TBODY> 
</TABLE>

</BODY></HTML>