📄 client.asp
字号:
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>传真</FONT><FONT color=#ff6600>:
<input name="T_ClientFax" type="text" id="T_ClientCity6" size="15" maxlength="30" value="<%=ClientFax%>">
</FONT></TD>
</TR>
<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>详细地址</FONT><FONT color=#ff6600>:
<input name="T_ClientAdd" type="text" id="T_ClientAdd" size="90" maxlength="120" value="<%=ClientAdd%>">
</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 style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>增值税开票名</FONT><FONT color=#ff6600>:
<input name="T_ClientTaxName" type="text" id="T_ClientTaxName" size="35" maxlength="80" value="<%=ClientTaxName%>">
</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_ClientTaxNum" type="text" id="T_ClientTaxNum" size="30" maxlength="50" value="<%=ClientTaxNum%>">
</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_ClientTaxANum" type="text" id="T_ClientTaxANum" size="35" maxlength="80" value="<%=ClientTaxANum%>">
</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_ClientTaxABank" type="text" id="T_ClientTaxABank" size="30" maxlength="50" value="<%=ClientTaxABank%>">
</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_ClientTaxAAdd" type="text" id="T_ClientTaxAAdd" size="35" maxlength="80" value="<%=ClientTaxAAdd%>">
</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>增值税开户电话:
<input name="T_ClientTaxATel" type="text" id="T_ClientTaxATel" size="30" maxlength="50" value="<%=ClientTaxATel%>">
</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" 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="30" 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='NewClient.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='../menu.asp';" name="BackButton" type="button" class="button_all" id="BackButton" value="返回">
<input name="DelPage" type="hidden" value="DeleteClient.asp?clientid=<%=ClientID%><%if rspre=1 then%>&backid=<%=ClientPreID%><%else if rsnext=1 then%>&backid=<%=ClientNextID%><%end if%><%end if%>">
<a href="NewTouchman.asp?TouchManClientID=<%=ClientID%>">新建联系人</a> </TD>
<TD colspan="6" align="center" valign="middle" ><%if rsfirst=1 then%><a href="client.asp?clientid=<%=FirstID%>"><%end if%><img src="../images/rsarrow_leftend_H.gif" width="16" height="14"><%if rsfirst=1 then%></a><%end if%> <%if rspre=1 then%><a href="client.asp?clientid=<%=ClientPreID%>"><%end if%><img src="../images/rsarrow_left_H.gif" width="16" height="14"><%if rspre=1 then%></a><%end if%> 共有记录<%=TotalNum%>条，当前为第<%=Rnum+1%>条 <%if rsnext=1 then%><a href="client.asp?clientid=<%=ClientNextID%>"><%end if%><img src="../images/rsarrow_right_H.gif" width="16" height="14"><%if rsnext=1 then%></a><%end if%> <%if rslast=1 then%><a href="client.asp?clientid=<%=LastID%>"><%end if%><img src="../images/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>
<TR>
<TD height="27" 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_ClientCreator" type="text" id="T_ClientIncome22" size="15" maxlength="30" value="<%=ClientCreatorName%>">
<input name="T_ClientCreatorID" type="hidden" value = <%=ClientCreatorID%>>
</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="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_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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -