?? add.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" >
</TD>
<TR>
<TD height="16" colspan="12" valign="top" > </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>國 家:
<input name="T_ClientNation" type="text" id="T_ClientNation" size="15" maxlength="30">
</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>電 話:
<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" >
<input name="NewButton" type="button" class="button_all" id="SaveButton" value="保存">
<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">
客戶管理系統 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 + -