📄 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

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

'eboReg
eboReg 1,"Name","Title","","cbRSDirectNotNullCheck"
eboReg 1,"customType","Type","","cbRSDirect"
eboReg 1,"Address","Nvarchar3","","cbRSDirect"
eboReg 1,"Oper","Nvarchar9","","cbRSDirect"
eboReg 1,"OperCode","Nvarchar10","","cbRSDirect"
eboReg 1,"Zip","Int1","","cbRSIntNull"
eboReg 1,"Bank","Nvarchar11","","cbRSDirect"
eboReg 1,"Name","SearchCode1","","cbRSDirectPy"
eboReg 1,"Accounts","SearchCode2","","cbRSDirect"
eboReg 1,"Taxcode","Nvarchar1","","cbRSDirect"
eboReg 1,"Tel","Nvarchar2","","cbRSDirect"
eboReg 1,"Fax","Code","","cbRSDirect"
eboReg 1,"Web","Nvarchar4","","cbRSDirect"
eboReg 1,"Linkman1","Nvarchar5","","cbRSDirect"
eboReg 1,"Duty1","Nvarchar6","","cbRSDirect"
eboReg 1,"Mobile1","Nvarchar7","","cbRSDirect"
eboReg 1,"Email1","Nvarchar8","","cbRSDirect"
eboReg 1,"Memo1","MemoInfo","","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(biid, CLng(biType), me)
if CStr(x)="0" then err.raise 10000,"Custom.Save", eBI.GetLastError()
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 + -