📄 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(Request("ID")) then
	biid=Request("ID")
end if
'End

'eboReg
eboReg 1,"ID","ID","","cbRSDirect"
eboReg 1,"Name","Title","","cbRSDirect"
eboReg 1,"Type","int1","","cbRSDirect"
eboReg 1,"TypeName","int2","","cbRSDirect"
eboReg 1,"TypeText","Nvarchar3","","cbRSDirect"
eboReg 1,"Detail","int3","","cbRSDirect"
eboReg 1,"subjectName","Bigint1","","cbRSDirect"
eboReg 1,"subjectCode","Bigint1","","cbRSSubjectToCode"
eboReg 1,"subjectNameText","Bigint1","","cbRSSubjectToTitle"
eboReg 1,"corpName","Bigint2","","cbRSDirect"
eboReg 1,"corpNameText","Bigint2","","cbRSCorpToText"
eboReg 1,"setCode","nvarchar1","","cbRSDirect"
eboReg 1,"setAbout","Currency1","","cbRSDirect"
eboReg 1,"errorAbout","nvarchar4","","cbRSDirect"
eboReg 1,"Memo","MemoInfo","","cbRSDirect"
eboReg 1,"checkOne","Currency3","","cbRSDirect"
eboReg 1,"checkTwo","Currency4","","cbRSDirect"

eboReg 1,"link1","type","","cbRSDirect"
eboReg 1,"subjectName1","Bigint3","","cbRSDirect"
eboReg 1,"subjectCode1","nvarchar5","","cbRSDirect"
eboReg 1,"subjectNameText1","Bigint3","","cbRSSubjectToTitle"
eboReg 1,"link2","int4","","cbRSDirect"
eboReg 1,"subjectName2","Bigint4","","cbRSDirect"
eboReg 1,"subjectCode2","nvarchar6","","cbRSDirect"
eboReg 1,"subjectNameText2","Bigint4","","cbRSSubjectToTitle"
'End

function biOpen(biType, biTableName, rsBI)
	eboGet 1, rsBI, nothing
end function

response.write "<script>"&vbcrlf

Set eBI = Server.CreateObject("eB3KCommon.BaseInfo")
x = eBI.biOpen(biid, Clng(biType), me)
if CStr(x)="0" then err.raise 10000,"Area.Load", eBI.GetLastError()
set eBI = Nothing

response.write "</script>"&vbcrlf
%>
</BODY>
<script>
IClient('data',IDataEnd());
IClient('end','');
</script>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -