📄 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, biid, Zero,One,i
Zero=0
One=1
i=1

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

'eboReg
eboReg 1,"Name","Bigint1","","cbRSUserCheck"
eboReg 1,"Title","Title","","cbRSDirectNotNullCheck"
eboReg 1,"Text","MemoInfo","","cbRSDirectNotNullCheck"
eboReg 1,"AccountID","AccountID","","cbLocalVariable"
eboReg 1,"Owner","Owner","","cbLocalVariable"
eboReg 1,"Zero", "int1", "", "cbLocalVariable"
eboReg 1,"Zero", "int2", "", "cbLocalVariable"'发件箱自留
'End
eboReg 2,"Name","Bigint1","","cbRSUserCheck"
eboReg 2,"Title","Title","","cbRSDirectNotNullCheck"
eboReg 2,"Text","MemoInfo","","cbRSDirectNotNullCheck"
eboReg 2,"AccountID","AccountID","","cbLocalVariable"
eboReg 2,"Owner","Owner","","cbLocalVariable"
eboReg 2,"Zero", "int1", "", "cbLocalVariable"
eboReg 2,"One", "int2", "", "cbLocalVariable"'给对方

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

Set eBI = Server.CreateObject("eB3KCommon.BaseInfo")
x = eBI.biSave(0, CLng(biType), me)
set eBI = Nothing

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

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -