📄 default.asp

📁 进销存软件源代码
💻 ASP
字号:
<!-- #include virtual="/eB3KTransaction.asp" -->
<!-- #include virtual="/Server/ebo.asp" -->
<!-- #include virtual="/Server/cblib.asp" -->
<!-- #include file="../Common.asp" -->
<!-- #include file="../../Common.asp" -->
<HTML>
<script src="/client/Request.js"></script>
<script src="/client/IClient.js"></script>
<BODY>
<%

function SetAccountID(fun, eboitem, rs, rsList)
	Select Case fun
		Case EBO_GET
			SetAccountID=rs(eboitem.FieldName)
		Case EBO_SET
			rs(eboitem.FieldName)=rs("ID")
	End Select
end function

function cbVarToRootID(fun, eboitem, rs, rsList)
	dim szSQL,rsCheck
	szSQL="SELECT RootID FROM [biCorperation] WHERE [InfoType]=1 AND ID=" & AccountID
	rsCheck=Conn.Execute(szSQL)
	rs(eboitem.FieldName)=rsCheck("RootID")
	set rsCheck = nothing
end function

'Variable Declare
dim eBI, x, x1, x2, biid,eBD
x=0
x1=0
x2=0

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

'End

'eboReg
eboReg 1,"AccountID","ParentID","","cbLocalVariable"
eboReg 1,"AccountID","RootID","","cbVarToRootID"
eboReg 1,"Name","Title","","cbRSDirectNotNullCheck"
eboReg 1,"Name","SearchCode1","","cbRSDirectPy"
eboReg 1,"NameType","Type","","cbRSDirect"
eboReg 1,"Address","Nvarchar2","","cbRSDirect"
eboReg 1,"Zip","Nvarchar5","","cbRSDirect"
eboReg 1,"Bank","Nvarchar7","","cbRSDirect"
eboReg 1,"Name","SearchCode1","","cbRSDirectPy"
eboReg 1,"Accounts","SearchCode2","","cbRSDirect"
eboReg 1,"Discount","Currency2","","cbRSCurrencyZero"
eboReg 1,"Taxcode","Nvarchar1","","cbRSDirect"
eboReg 1,"TaxRate","Currency1","","cbRSCurrencyZero"
eboReg 1,"Tel","Nvarchar6","","cbRSDirect"
eboReg 1,"Fax","Nvarchar3","","cbRSDirect"
eboReg 1,"Web","Nvarchar4","","cbRSDirect"

eboReg 1,"SetAccountID","AccountID","","SetAccountID"


eboReg 2,"Name","Title","","cbLocalVariable"
eboReg 2,"Password","Nvarchar1","","cbLocalVariable"
eboReg 2,"x","AccountID","","cbLocalVariable"

'eboReg 3, "x1", "Bigint1", "", "cbLocalVariable"
'eboReg 3, "Name", "BillTitle", "", "cbLocalVariable"
'eboReg 3, "x", "AccountID", "", "cbLocalVariable"
'eboReg 3, "x1", "Owner", "", "cbLocalVariable"

'eboReg 4, "Prg", "ProductID", "", "cbListLocalVariable"
'End

dim Name, Password, Prg
Name="system"
Password="system"
dim rsGet
rsGet=Conn.Execute("SELECT top 1 [ID],SUM([serial]) From [bdPrivilegeGroupList] Group By [ID] Order BY SUM([serial]) desc")
Prg=rsGet("ID")
if len(Prg)=0 then err.Raise 10000, "Corp.saveChild", "没有设置权限组！"

function biSave(corpType, biTableName, rsBI)
	if corpType=biType then
		eboSet 1, rsBI, nothing
	else
		eboSet 2, rsBI, nothing
	end if
end function

'function bdSaveTitle(bdType, bdTableName, rsBD)
'	eboSet 3, rsBD, nothing
'end function

dim iCount, TotalCount
iCount=0
TotalCount=1
'function bdSaveList(bdType, bdTableName, rsBD, rsBDList)
'	if iCount<TotalCount then
'		eboSet 4, rsBD, rsBDList
'		bdSaveList = 0
'		iCount=iCount+1
'	else
'		bdSaveList = -1
'	end if
'end function

dim isNew
isNew=biid
Set eBI = Server.CreateObject("eB3KCommon.BaseInfo")
x = eBI.biSave(biid, CLng(biType), me)
if cstr(x)="0" then err.raise 10000,"Corp.Save",eBI.GetLastError()

if cstr(isNew)="0" then
	x1 = eBI.biSave(0, 8, me)
	if cstr(x1)="0" then err.raise 10000,"User.Save",eBI.GetLastError()

	'Set eBD = Server.CreateObject("eB3KCommon.BillDocument")
	'x2 = eBD.bdSave(0, 11, me)
	'if Cstr(x2)="0" then err.raise 10000,"UserPrivilege.Save",eBD.GetLastError()
	'set eBD = Nothing
end if
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 + -