?? 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>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</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>
<script src="/client/datectrl1.js"></script>
<body leftmargin="0" topmargin="20">
<table border="0" width="364" cellspacing="2" cellpadding="2" align="center">
<tr><td width="100%">
<table border="0" width="100%" cellspacing="2" cellpadding="0">
<tr>
<td width="100%" height="18" align="center"><%=biTitle%></td>
</tr>
<tr>
<td width="100%" height="18"><hr size="1"></td>
</tr>
<tr>
<td width="100%" height="18">狀 態：
<input type="hidden" id="ID"><input size="25" id="State" value="新建" readonly>
<input type="button" value="新建" onClick="ID.value='';State.value='新建';">
</td>
</tr>
<tr>
<td width="100%" height="8">編 號：
<input id="BhID" Type="hidden"><input id="Bh" size="25">
<input type="button" value="打開" onClick="openClick(this,Bh,BhID)">
</td>
</tr>
<tr>
<td height="8"><div align="left">姓 名：
<input id="Name" size="25">
<input type="button" onClick="NameClick(this,Bh)" value="搜索">
</div></td>
</tr>
<tr>
<td height="18">開資日期：
<input id="GzdDate" size="25">
<input type="button" value="↓" onClick="dateShow(GzdDate)"></td>
</tr>
<tr>
<td>開資月份：
<select id="GzdMonth">
<%
dim i
for i=1 to 12
if month(date())=i then
%>
<option selected value="<%=i%>"><%=i%></option>
<%
else
%>
<option value="<%=i%>"><%=i%></option>
<%
end if
Next
%>
</select>
月</td>
</tr>
<tr>
<td height="-1">工資金額：
<input name="Input" id="GzdNum" size="25"></td>
</tr>
<tr>
<td height="-1"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="23%">備 注：</td>
<td width="77%"> <textarea cols="30" rows="5" id="GzdBz"></textarea>
</td>
</tr>
</table></td>
</tr>
<tr>
<td width="100%" height="18"><hr size="1"></td>
</tr>
<tr>
<td width="100%" height="18" align="left"><div align="center">
<input type="button" value="確定" onClick="saveClick(this)">
<input type="button" value="取消" onClick="Reset()">
</div></td>
</tr>
</table></td>
</tr>
</table>
<br>
<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{
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='修改';
BhCtrl.value=data[1];
BhIDCtrl.value=data[0];
Name.value=data[2];
return;
}
return defcbiFrame(ifrid, fun, data);
}
function openClick(obj,iCtrl,iCtrlHidden){
obj.disabled=true;
followControl(iCtrl,getFrameElement(bdSelectArea));
BhCtrl=iCtrl;
BhIDCtrl=iCtrlHidden;
IServer(bdSelectArea,'Guerdon.Open','Find='+escape(iCtrl.value),cbOpen);
obj.disabled=false;
}
function cbOpen1(ifrid, fun, data){
if (fun=='data'){
//loadClick(data[0]);
ID.value=data[0];
Bh.value=data[1];
Name.value=data[2];
GzdDate.value=data[3];
GzdMonth.value=data[4];
GzdNum.value=data[5];
GzdBz.value=data[6];
State.value='修改';
return;
}
return defcbiFrame(ifrid, fun, data);
}
function NameClick(obj,iText){
obj.disabled=true;
followControl(Bh,getFrameElement(bdSelectArea));
IServer(bdSelectArea,RootID+'.Open','Find='+iText.value,cbOpen1);
obj.disabled=false;
}
function Reset(){
var i;
for (i=0;i<_ebo.length;i++){
_ebo[i].id.value='';
State.value='新建';
}
}
</script>
<script Title="eboReg">
eboReg('ID',ID,'',deftextproc);
eboReg('BH',Bh,'',deftextproc);
eboReg('Name',Name,'',deftextproc);
eboReg('GzdDate',GzdDate,'',deftextproc);
eboReg('GzdMonth',GzdMonth,'',deftextproc);
eboReg('GzdNum',GzdNum,'',deftextproc);
eboReg('GzdBz',GzdBz,'',deftextproc);
</script>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -