⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 add.asp

📁 客户管理系统的代码示例。“数据库”目录下为客户管理系统的数据库 备份文件；“源代码”目录下为系统各功能页面脚本代码。
💻 ASP
字号:
🔍 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>添加客户信息</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Pragma content=no-cache>
<META content="MSHTML 6.00.2715.400" name=GENERATOR>
</HEAD>
<LINK href="css.css" rel=stylesheet>
<BODY><BR>

  <TABLE  width="751" border=0 align=center cellPadding=0 cellSpacing=0>
    <!--DWLayoutTable-->
    <TBODY>
        <TD  width="149" height="24" valign="top" colspan="2" bgcolor="#566CDB"   >
		<font face="黑体" size="3">添加客户信息　</font></TD>
      <TD colspan="10" align="right" valign="middle" bgcolor="#DDDDDD" >
&nbsp;&nbsp;
&nbsp;
      </TD>
    <TR>
      <TD height="16" colspan="12" valign="top" >&nbsp;</TD>
    </TR>
<FORM name=NewClient action=save.asp method=post>
    <TR>
      <TD height="30" colspan="12" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings 
      color=#99ccff >v</FONT></FONT><FONT color=#ff6600>客户名称: 
          <input name="T_ClientName" type="text" id="T_ClientName" size="61" maxlength="50">
		  <input name="T_ClientNameID" type="hidden" value=0>
      </FONT></TD>
    </TR>
    <TR>
      <TD height="30" colspan="4" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings 
      color=#99ccff >v</FONT></FONT><FONT color=#ff6600>国&nbsp;&nbsp;&nbsp; 家: 
          <input name="T_ClientNation" type="text" id="T_ClientNation" size="15" maxlength="30">&nbsp;
      </FONT></TD>
      <TD height="30" colspan="8" align="left" valign="middle" >
		<FONT face=Wingdings 
      color=#99ccff style="line-height: 150%" >v</FONT><FONT color=#ff6600>省/市:
          <input name="T_ClientPro" type="text" id="T_ClientPro" size="15" maxlength="30"></FONT></TD>
      </TR>
    <TR>
      <TD height="30" colspan="12" align="left" valign="middle" >
		<FONT face=Wingdings 
      color=#99ccff style="line-height: 150%" >v</FONT><FONT color=#ff6600>详细地址:
          <input name="T_ClientAdd" type="text" id="T_ClientAdd" size="64" maxlength="120">
      </FONT></TD>
    </TR>
    <TR>
      <TD height="30" colspan="6" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings 
      color=#99ccff >v</FONT></FONT><font color="#ff6600">公司主页:</font><span class="style1">
          <input name="T_ClientHpage" type="text" id="T_ClientHpage" size="30" maxlength="50">
                                          </span></TD>
      <TD colspan="6" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings 
      color=#99ccff >v</FONT></FONT><font color="#ff6600">电子邮箱:</font><span class="style1"> 
        <input name="T_ClientEmail" type="text" id="T_ClientEmail" size="17" maxlength="50">
      </span></TD>
    </TR>
    <TR>
      <TD height="30" colspan="3" align="left" valign="middle" >
		<FONT face=Wingdings 
      color=#99ccff style="line-height: 150%" >v</FONT><FONT color=#ff6600>电&nbsp;&nbsp;&nbsp; 话:
          <input name="T_ClientTel" type="text" id="T_ClientTel" size="15" maxlength="30">
                                    </FONT></TD>
      <TD colspan="4" align="left" valign="middle" >
		<FONT face=Wingdings 
      color=#99ccff style="line-height: 150%" >v</FONT><FONT color=#ff6600>传真:
          <input name="T_ClientFax" type="text" id="T_ClientFax" size="15" maxlength="30">
                  </FONT></TD>
      <TD colspan="5" align="left" valign="middle" >
		<FONT face=Wingdings 
      color=#99ccff style="line-height: 150%" >v</FONT><FONT color=#ff6600>邮编:
          <input name="T_ClientPcode" type="text" id="T_ClientPcode" size="15" maxlength="30">
                                    </FONT></TD>
    </TR>
    <TR valign="middle">
      <TD   height="16" colspan="12" ><hr   color="#566CDB" align="center" size="1"></TD>
    </TR>
    <TR>
      <TD height="30" colspan="6" align="left" valign="middle" >
		<FONT face=Wingdings 
      color=#99ccff style="line-height: 150%" >v</FONT><FONT 
      color=#FF6600 style="line-height: 150%" ></FONT><FONT color=#ff6600>全年收入:
          <input name="T_ClientIncome" type="text" id="T_ClientIncome" size="15" maxlength="30"> 
		万元</FONT></TD>
      <TD colspan="6" align="left" valign="middle" >
		<FONT face=Wingdings 
      color=#99ccff style="line-height: 150%" >v</FONT><FONT color=#ff6600>员工人数:
          <input name="T_ClientEmpNum" type="text" id="T_ClientEmpNum" size="15" maxlength="30">
                        </FONT></TD>
    </TR>
	  
    <TR>
      <TD height="30" colspan="6" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings 
      color=#99ccff >v</FONT></FONT><FONT color=#ff6600>开户银行:
          <input name="T_ClientABank" type="text" id="T_ClientABank" size="40" maxlength="80">
      </FONT></TD>
      <TD colspan="6" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings 
      color=#99ccff >v</FONT></FONT><FONT color=#ff6600>银行账号</FONT><FONT color=#ff6600>:
          <input name="T_ClientANum" type="text" id="T_ClientANum" size="30" maxlength="50">
      </FONT></TD>
    </TR>
	  
    <TR>
      <TD height="16" colspan="12" ><hr   color="#566CDB" align="center" size="1"></TD>
    </TR>
    <TR>
      <TD height="30" colspan="6" align="left" valign="middle" >&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;
&nbsp;
<input name="NewButton" type="button" class="button_all" id="SaveButton" value="保存">
&nbsp;
&nbsp;&nbsp;&nbsp;
<input  onclick="javascript:location.href='Main.asp';" name="BackButton" type="button" class="button_all" id="BackButton" value="返回">
</TD>
      <TD colspan="6" align="center" valign="middle" ><!--DWLayoutEmptyCell-->　</TD>
    </TR>
    <TR valign="middle">
      <TD height="16" colspan="12" ><hr   color="#566CDB" align="center" size="1"></TD>
    </TR>
    </form>
	  
	 <!--保存按钮确认函数-->	
	 <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_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_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

			if SubmitFlag = 1 then
				TheForm.submit()
			end if
	 </SCRIPT>
	 <!--保存按钮确认函数结束-->
   
	<TR align=middle bgColor=#99ccff> 
      <TD height="24" colSpan=12 vAlign=middle><font size="2" color="#008000">
		客户管理系统&nbsp;&nbsp; Customer Manage System</font></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>

⌨️ 快捷键说明

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