?? default.asp
字號:
<!-- #include virtual="/eB3KTransaction.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>
<div id=bdMenu>
</div>
<div id=bdHead>
<INPUT id=biID type=hidden>
<table width="400" align="center"><tr><td>
<TABLE cellSpacing=1 cellPadding=1 width=100%>
<TR><TD align=center><%=biTitle%></TD></TR>
<TR><TD> </TD></TR>
<tr><td>狀態:<input id="State" value="新建" size="23" readonly> <input type="button" value="新建" onClick="biID.value='';State.value='新建';"></td></tr>
<TR><TD>貨幣符號:<input id=biCode size=30></TD></TR>
<TR><TD>貨幣名稱:<input id=biName size=30></TD></TR>
<TR><TD>主要單位:<input id=biUnit size=10></TD></TR>
<TR><TD>當日匯率:<input id=biExRate size=30></TD></TR>
<TR><TD>月初匯率:<input id=biExRateMonth size=30></TD></TR>
<TR><TD>公式:本幣 = 外幣 * 匯率</TD></TR>
</TABLE></td></tr></table>
</div>
<br>
<div id=bdControl align="center">
<input type=button value="保存" onclick="saveClick(this)"> <input type=button value="打開" onclick="openClick(this, biCode)">
</div>
<iframe id=bdSelectArea width=500 height=500 style="display: none" border=0 frameborder=0 framespacing=0 marginheight=0 marginwidth=0></iframe>
<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{
biID.value=data[0];
State.value='修改';
alert('保存成功!');
}
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'){
State.value='修改';
loadClick(data[0]);
return;
}
return defcbiFrame(ifrid, fun, data);
}
function openClick(obj,idCtrl){
obj.disabled=true;
followControl(idCtrl,getFrameElement(bdSelectArea));
IServer(bdSelectArea,RootID+'.Open','',cbOpen);
obj.disabled=false;
}
</script>
<script title=eboReg>
eboReg('ID',biID,'',deftextproc);
eboReg('Code',biCode,'',deftextproc);
eboReg('Name',biName,'',deftextproc);
eboReg('Unit',biUnit,'',deftextproc);
eboReg('ExRate',biExRate,'',deftextproc);
eboReg('ExRateMonth',biExRateMonth,'',deftextproc);
</script>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -