📄 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 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","Name","","cbRSDirect"
eboReg 1,"Address","Address","","cbRSDirect"
eboReg 1,"ConnectionMode","ConnectionMode","","cbRSDirect"
eboReg 1,"Age","Age","","cbRSDirect"
eboReg 1,"MemoInfo","MemoInfo","","cbRSDirect"
'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,"Corpertion.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 + -