📄 default.asp

📁 进销存软件源代码

💻 ASP

字号:

<!-- #include virtual="/eB3KTransaction.asp" -->
<!-- #include virtual="/Server/ebo.asp" -->
<!-- #include virtual="/Server/cblib.asp" -->
<!-- #include file="../Common.asp" -->
<HTML>
<script src="/client/Request.js"></script>
<script src="/client/IClient.js"></script>
<BODY>
<%
'Variable Declare
dim eBI, x

'if IsNumeric(GetForm("ID")) then
'biid=Clng(GetForm("ID"))
'end if
'End

'eboReg
eboReg 1,"SubName","Title","","cbRSDirectNotNullCheck"
eboReg 1,"SubName","SearchCode1","","cbRSDirectPy"

eboReg 1,"ID","RootID","","cbRSStockToSub"
eboReg 1,"ID","ParentID","","cbRSDirect"

eboReg 1,"AccountID","AccountID","","cbLocalVariable"
eboReg 1,"Owner","Owner","","cbLocalVariable"
'End

function biSave(biType, biTableName, rsBI)
	eboSet 1, rsBI, nothing
end function

Set eBI = Server.CreateObject("eB3KCommon.BaseInfo")
x = eBI.biSave(0, CLng(biType), me)
set eBI = Nothing
%>
</BODY>
<script>
var data=new Array('<%=x%>');
IClient('data',data);
IClient('end','');
</script>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -