📄 default.asp

📁 进销存软件源代码
💻 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>
<script src="/client/datectrl1.js"></script>

<body leftmargin="0" topmargin="20">
<table border="0" width="400" cellspacing="2" cellpadding="0" 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 size="25" id="State"  value="新建" readonly><input type="hidden" id="ID">
            　 <input type="button" value="新建" onClick="ID.value='';State.value='新建';"></td>
        </tr>
        <tr> 
          <td width="100%" height="18">编　　号： 
<input id="Bh" size="25">
            　 <input type="button" value="打开"  onClick="BhClick(this,Bh)"></td>
        </tr>
        <tr> 
          <td width="100%" height="8">姓　　名： 
<input id="Name" size="25">
            　 </td>
        </tr>
        <tr> 
          <td height="3">生　　日： 
<input id="Brd" size="25">
            　
            <input name="button42" type="button"  value="↓" onClick="dateShow(Brd)"></td>
        </tr>
        <tr>
          <td height="3">婚　　否： 
<select id="Hf">
                <option selected value="未婚">未婚</option>
                <option value="已婚">已婚</option>
              </select>
</td>
        </tr>
        <tr> 
          <td height="18">工作日期：
            <input id="Date1" size="25">
            　 
            <input name="button4" type="button" value="↓" onClick="dateShow(Date1)"></td>
        </tr>
        <tr> 
          <td height="18">部　　门： 
<input id="Bm" size="25" readonly>
            　
            <input id="BmID" type="hidden" value=""><input name="button3" type="button"  onClick="BmClick(this,Bm,BmID)" value="打开"></td>
        </tr>
        <tr> 
          <td height="8">职　　位： 
<input id="Zw" size="25" readonly>
            　
            <input type="hidden" id="ZwID" value=""><input type="button"  onClick="ZwClick(this,Zw,ZwID)" value="打开"></td>
        </tr>
        <tr> 
          <td height="8">电　　话： 
<input id="Tel" size="25"></td>
        </tr>
        <tr> 
          <td>电子邮件： 
<input id="Email" size="25">
          </td>
        </tr>
        <tr> 
          <td height="18"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
                <td width="21%">备　　注： </td>
                <td width="79%"> 
                  <textarea name="textarea" cols="30" rows="5" id="Bz"></textarea>
                </td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td 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>
<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='修改';
		return;
	}
	return defcbiFrame(ifrid, fun, data);
}

function ZwOpen(ifrid, fun, data){
    if (fun=='data'){
	    ZwIDHidden1.value=data[0];
		ZwCtrl1.value=data[1];
		return;
	}
	return defcbiFrame(ifrid, fun, data);
}

function ZwClick(obj,ZwCtrl,ZwIDHidden){
    obj.disabled=true;
	followControl(ZwCtrl,getFrameElement(bdSelectArea));
	ZwCtrl1=ZwCtrl;
	ZwIDHidden1=ZwIDHidden;
	IServer(bdSelectArea,'JobLib.Open','Find='+escape(ZwCtrl.value),ZwOpen);
	obj.disabled=false;
}

function BmOpen(ifrid, fun, data){
	if (fun=='data'){
		BmIDHidden1.value=data[0];
		BmCtrl1.value=data[1];
		return;
	}
	return defcbiFrame(ifrid, fun, data);
}

function BmClick(obj,BmCtrl,BmIDHidden){
   obj.disabled=true;
   followControl(BmCtrl,getFrameElement(bdSelectArea));
   BmCtrl1=BmCtrl;
   BmIDHidden1=BmIDHidden;
   IServer(bdSelectArea,'Job.Open','Find='+escape(BmCtrl.value),BmOpen);
   obj.disabled=false;
}

//点击编号后按钮
function BhOpen(ifrid, fun, data){
     if (fun=='data'){
	     loadClick(data[0]);
		 State.value='修改';
         return;
	 }
	 return defcbiFrame(ifrid, fun, data);
}

function BhClick(obj,iText)
{
   obj.disabled=true;
   followControl(Bh,getFrameElement(bdSelectArea));
   IServer(bdSelectArea,RootID+'.Open','Find='+iText.value,BhOpen);
   obj.disabled=false;
}

function openClick(obj,iText){
	obj.disabled=true;
	followControl(Class,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='新建';
	}
}

</script>

<script Title="eboReg">
eboReg('ID',ID,'',deftextproc);
eboReg('Bh',Bh,'',deftextproc);
eboReg('Name',Name,'',deftextproc);
eboReg('Brd',Brd,'',deftextproc);
eboReg('Hf',Hf,'',deftextproc);
eboReg('Date1',Date1,'',deftextproc);
eboReg('Bm',Bm,'',deftextproc);
eboReg('Zw',Zw,'',deftextproc);
eboReg('Tel',Tel,'',deftextproc);
eboReg('Email',Email,'',deftextproc)
eboReg('Bz',Bz,'',deftextproc)
</script>


</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -