?? default.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(3), iFlag
iFlag = 0
TotalCount(0)=CLng(GetForm("sDetail_rows"))
TotalCount(1)=CLng(GetForm("pDetail_rows"))
TotalCount(2)=CLng(GetForm("cDetail_rows"))
TotalCount(3)=-1
'End
'eboReg
eboReg 1, "Name", "BillTitle", "", "cbRSDirectNotNullCheck"
eboReg 1, "Date", "DateTime1", "", "cbRSDirectDate"
eboReg 1, "Memo", "BillMemo", "", "cbRSDirect"
eboReg 1, "stockCheck", "Int1", "", "cbRSIntNull"
eboReg 1, "productCheck", "Int2", "", "cbRSIntNull"
eboReg 1, "codeCheck", "Int3", "", "cbRSIntNull"
eboReg 1, "searchCode", "Nvarchar1", "", "cbRSDirect"
eboReg 1, "startNumber", "Nvarchar2", "", "cbRSDirect"
eboReg 1, "endNumber", "Nvarchar3", "", "cbRSDirect"
eboReg 1, "AccountID", "AccountID", "", "cbLocalVariable"
eboReg 1, "Owner", "Owner", "", "cbLocalVariable"
eboReg 2, "sDetail_0_", "ProductID", "", "cbRSListDirect"
eboReg 2, "iFlag", "int1", "", "cbListLocalVariable"
eboReg 3, "pDetail_0_", "ProductID", "", "cbRSListDirect"
eboReg 3, "iFlag", "int1", "", "cbListLocalVariable"
eboReg 4, "cDetail_0_", "ProductID", "", "cbRSListDirect"
eboReg 4, "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,"StockReport.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 + -