📄 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 eBD, x, iCount, piCount, Amount, bdid

iCount = 0
Amount = 0

dim TotalCount(2), iFlag
iFlag = 0

TotalCount(0)=CLng(GetForm("childDetail_rows"))
TotalCount(1)=-1
'End

'eboReg
eboReg 1, "Name", "BillTitle", "", "cbRSDirect"
eboReg 1, "Memo", "BillMemo", "", "cbRSDirect"
eboReg 1, "AccountID", "AccountID", "", "cbLocalVariable"
eboReg 1, "Owner", "Owner", "", "cbLocalVariable"

eboReg 2, "childDetail_0_", "ProductID", "", "cbRSListDirect"
eboReg 2, "iFlag", "int1", "", "cbListLocalVariable"
'End

function bdSaveTitle(bdType, bdTableName, rsBD)
	eboSet 1, rsBD, nothing
end function

function bdSaveList(bdType, bdTableName, rsBD, rsBDList)
	do
		if TotalCount(iFlag)>0 then exit do
		if TotalCount(iFlag)<0 then
			bdSaveList = -1
			exit function
		end if
		iFlag=iFlag+1
		iCount=0
	loop
	eboSet iFlag+2, rsBD, rsBDList
	iCount = iCount + 1
	if iCount >= TotalCount(iFlag) then
		iFlag=iFlag+1
		iCount=0
	end if
	bdSaveList = 0
end function

bdid=0
if IsNumeric(GetForm("ID")) then
	bdid=GetForm("ID")
end if
Set eBD = Server.CreateObject("eB3KCommon.BillDocument")
x = eBD.bdSave(bdid, CLng(bdType), me)
if CStr(x)="0" then err.raise 10000,"BuyReport.Save", eBD.GetLastError()
set eBD = 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 + -