?? customer.asp
字號:
</FONT></TD>
<TD colspan="7" 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" value="<%=ClientPcode%>">
</FONT></TD>
</TR>
<tr>
<TD height="16" colspan="12" valign="top" ><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>全年收入:
<input name="T_ClientIncome" type="text" id="T_ClientIncome" size="19" maxlength="30" value="<%=ClientIncome%>">
萬元</FONT><span class="style1"> </span></TD>
<TD height="30" 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" value="<%=ClientEmpNum%>"></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="37" maxlength="80" value="<%=ClientABank%>">
</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="28" maxlength="50" value="<%=ClientANum%>">
</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 onClick="javacript:location.href='Add.asp';" name="NewClient" type="button" class="button_all" id="NewClient" value="新建">
<input name="SaveButton" type="button" class="button_all" id="SaveButton" value="保存">
<input name="DeleteButton" type="button" class="button_all" id="DeleteButton" value="刪除">
<input onclick="javascript:location.href='Main.asp';" name="BackButton" type="button" class="button_all" id="BackButton" value="返回"> </TD>
<input name="DelPage" type="hidden" value="Delete.asp?clientid=<%=ClientID%><%if rspre=1 then%>&backid=<%=ClientPreID%><%else if rsnext=1 then%>&backid=<%=ClientNextID%><%end if%><%end if%>">
<TD colspan="6" align="center" valign="middle" > <%if rsfirst=1 then%><a href="Customer.asp?clientid=<%=FirstID%>"><%end if%><img src="img/rsarrow_leftend_H.gif" width="16" height="14"><%if rsfirst=1 then%></a><%end if%> <%if rspre=1 then%><a href="Customer.asp?clientid=<%=ClientPreID%>"><%end if%><img src="img/rsarrow_left_H.gif" width="16" height="14"><%if rspre=1 then%></a><%end if%> 共有記錄<%=TotalNum%>條，當前為第<%=Rnum+1%>條 <%if rsnext=1 then%><a href="Customer.asp?clientid=<%=ClientNextID%>"><%end if%><img src="img/rsarrow_right_H.gif" width="16" height="14"><%if rsnext=1 then%></a><%end if%> <%if rslast=1 then%><a href="Customer.asp?clientid=<%=LastID%>"><%end if%><img src="img/rsarrow_rightend_H.gif" width="16" height="14"><%if rslast=1 then%></a><%end if%> </TD>
</TR>
<TR valign="middle">
<TD height="16" colspan="12" ><hr color="#566CDB" align="center" size="1"></TD>
</TR>
</form>
<!--刪除按鈕確認函數-->
<SCRIPT FOR="DeleteButton" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm
Set TheForm = Document.forms("saveclient")
Dim MyVar
MyVar = MsgBox ("你確認要刪除該客戶信息么？",52, "確認刪除")
if MyVar = 6 then
location.replace(TheForm.DelPage.Value)
end if
</SCRIPT>
<!--刪除按鈕確認函數結束-->
<!--保存按鈕確認函數-->
<SCRIPT FOR="SaveButton" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm,SubmitFlag
Set TheForm = Document.forms("saveclient")
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 + -