?? default.asp
字號:
<!-- #include virtual="/eB3KTransaction.asp" --><!-- #include virtual="/Server/ebo.asp" -->
<!-- #include file = "Common.asp" --><%
dim eBI,rs
dim biTitle, biIServerFun
Set eBI = Server.CreateObject("eB3KCommon.BaseInfo")
if eBI.biGetDetailByType(Conn, CLng(biType), rs) = 1 then
biTitle = CStr(rs("InfoName"))
biIServerFun = CStr(rs("ISVRFUN"))
set rs = nothing
end if
set eBI = Nothing
%><HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><LINK REL=stylesheet HREF="/Client/All.css" TYPE="text/css"><script src="/Client/ebComm.js"></script></HEAD>
<script>
var RootID='<%=biIServerFun%>';
</script>
<script src="/client/ebo.js"></script>
<script src="/client/Request.js"></script>
<script src="/client/IClient.js"></script>
<script src="/client/IServer.js"></script>
<script src="/client/grid.js"></script>
<script src="/client/cbLib.js"></script>
<body leftmargin="0" topmargin="20">
<table border="0" width="450" cellspacing="0" cellpadding="0" align="center">
<tr><td width="100%">
<table border="0" width="450" cellspacing="0" cellpadding="0" align="center">
<tr><td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr><td align="middle" height="18">修改<%=biTitle%>信息</td></tr>
<tr><td height="18"></td></tr>
<tr><td>狀態(tài)：<input id="ID" type="hidden"><input size="23" value="新建" id="State" readonly> <input type="button" value="新建" onClick="ID.value='';State.value='新建';"></td></tr>
<tr><td>客戶名稱：<input id="Name" size="30"> <input type="button" value="打開" onClick="openClick(this,Name)"></td></tr>
<tr><td>業(yè)務員姓名：<input id="Oper" size="15" readonly><input id="OperCode" type=hidden> <input type="button" value="搜索" onClick="operatorClick(this)"></td></tr>
<tr><td>郵政編碼：<input id="Zip" size="6" > 網(wǎng)址：<input id="Web" size="25" style="HEIGHT: 20px; WIDTH: 171px"></td></tr>
<tr><td>開戶行：<input id="Bank" size="42" ></td></tr>
<tr><td>帳號：<input id="Accounts" size="53" ></td></tr>
<tr><td>稅號：<input id="Taxcode" size="53" ></td></tr>
<tr><td>地址：<input id="Address" size="53" ></td></tr>
<tr><td>電話：<input id="Tel" size="53" ></td></tr>
<tr><td>傳真：<input id="Fax" size="53" ></td></tr>
<tr><td>聯(lián)系人：<input id="Linkman1" size="54" style="HEIGHT: 20px; WIDTH: 365px"></td></tr>
<tr><td>職務：<input id="Duty1" size="54" style="HEIGHT: 20px; WIDTH: 171px"> 手機：<input id="Mobile1" style="HEIGHT: 20px; WIDTH: 146px"></td>
<tr><td>電子郵件：<input id="Email1" size="54" style="HEIGHT: 20px; WIDTH: 349px" ></td>
<tr><td>其他：<input id="Memo1" size="53"></td>
</tr>
<tr><td height="18"></td></tr>
<tr><td height="18" align="middle"><input type="button" value="確定" onClick="saveClick(this)"> <input type="button" value="取消" onClick="Reset()"></td></tr>
</table></td>
</tr>
</table>
<iframe id=bdSelectArea width=500 height=500 style="DISPLAY: none" border=0 frameborder=0 framespacing=0 marginheight=0 marginwidth=0></iframe></td></tr></table>
<iframe id=bdLoadSave width=0 height=0 style="display: none" border=0 frameborder=0 framespacing=0 marginheight=0 marginwidth=0></iframe>
</body>
<script>
var indata;
function cbLoad(ifrid, fun, data){
if (fun=='data'){
indata=data;
eboSet();
return;
}
}
function loadClick(id){
if (!isNaN(parseInt(id)) && parseInt(id)!=0)
IServer(bdLoadSave,RootID+'.Load','ID='+id,cbLoad);
}
loadClick(request('ID'));
function cbSave(ifrid, fun, data){
if (fun=='data'){
if (isNaN(parseInt(data[0]))||parseInt(data[0])==0)
alert('保存失敗！');
else{
ID.value=data[0];
alert('保存成功！');
State.value='修改';
}
return;
}
}
function saveClick(obj){
obj.disabled=true;
eboGet();
IServer(bdLoadSave,RootID+'.Save',outdata,cbSave);
outdata=new Array();
obj.disabled=false;
}
function cbOpen(ifrid, fun, data){
if (fun=='data'){
loadClick(data[0]);
State.value='修改';
return;
}
return defcbiFrame(ifrid, fun, data);
}
function openClick(obj,iText){
obj.disabled=true;
followControl(Name,getFrameElement(bdSelectArea));
IServer(bdSelectArea,RootID+'.Open','Find='+iText.value,cbOpen);
obj.disabled=false;
}
function Reset(){
var i;
for (i=0;i<_ebo.length;i++){
_ebo[i].id.value='';
State.value='新建';
}
}
function cbOperator(ifrid,fun,data){
if (fun=='data'){
Oper.value=data[1];
OperCode.value=data[2];
return;
}
return defcbiFrame(ifrid, fun, data);
}
function operatorClick(obj){
obj.disabled=true;
followControl(Oper,getFrameElement(bdSelectArea));
IServer(bdSelectArea,'Operator.Open','',cbOperator);
obj.disabled=false;
}
</script>
<script Title="eboReg">
eboReg('ID',ID,'',deftextproc);
eboReg('Name',Name,'',deftextproc);
eboReg('Oper',Oper,'',deftextproc);
eboReg('OperCode',OperCode,'',deftextproc);
eboReg('Zip',Zip,'',deftextproc);
eboReg('Bank',Bank,'',deftextproc);
eboReg('Accounts',Accounts,'',deftextproc);
eboReg('Taxcode',Taxcode,'',deftextproc);
eboReg('Address',Address,'',deftextproc);
eboReg('Tel',Tel,'',deftextproc);
eboReg('Fax',Fax,'',deftextproc);
eboReg('Web',Web,'',deftextproc);
eboReg('Linkman1',Linkman1,'',deftextproc);
eboReg('Duty1',Duty1,'',deftextproc);
eboReg('Mobile1',Mobile1,'',deftextproc);
eboReg('Email1',Email1,'',deftextproc);
eboReg('Memo1',Memo1,'',deftextproc);
</script>
</html>
<html></html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -