📄 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 eBD, x, iCount, Amount, iCols, bdid

iCols = 6
iCount = 0
Amount = 0

bdid=0
if IsNumeric(request("ID")) then
	bdid=request("ID")
end if
'End

'eboReg
eboReg 1,"ID","ID","","cbRSDirect"
eboReg 1, "FirstWish", "FirstWish", "", "cbRSDirect"
eboReg 1, "SecondWish", "SecondWish", "", "cbRSDirect"
eboReg 1, "EngageLevel", "EngageLevel", "", "cbRSDirect"
eboReg 1, "Name", "Name", "", "cbRSDirect"
eboReg 1, "Sex", "Sex", "", "cbRSDirect"
eboReg 1, "Age", "Age", "", "cbRSDirect"
eboReg 1, "NativePlace", "NativePlace", "", "cbRSDirect"
eboReg 1, "IDCard", "IDCard", "", "cbRSDirect"
eboReg 1, "FamAddress", "FamAddress", "", "cbRSDirect"
eboReg 1, "FamPostCode", "FamPostCode", "", "cbRSDirect"
eboReg 1, "FamTelephone", "FamTelephone", "", "cbRSDirect"
eboReg 1, "WorkAddress", "WorkAddress", "", "cbRSDirect"
eboReg 1, "WorkPostCode", "WorkPostCode", "", "cbRSDirect"
eboReg 1, "WorkTelephone", "WorkTelephone", "", "cbRSDirect"
eboReg 1, "IsMarry", "IsMarry", "", "cbRSDirect"
eboReg 1, "Stature", "Stature", "", "cbRSDirect"
eboReg 1, "Weight", "Weight", "", "cbRSDirect"
eboReg 1, "SickHistory", "SickHistory", "", "cbRSDirect"
eboReg 1, "ForeignCapacity", "ForeignCapacity", "", "cbRSDirect"
eboReg 1, "ComputerCapacity", "ComputerCapacity", "", "cbRSDirect"
eboReg 1, "Aim", "Aim", "", "cbRSDirect"
eboReg 1, "Encouragement", "Encouragement", "", "cbRSDirect"
eboReg 1, "Punish", "Punish", "", "cbRSDirect"
eboReg 1, "DriveType", "DriveType", "", "cbRSDirect"
eboReg 1, "DriveCode", "DriveCode", "", "cbRSDirect"
eboReg 1, "HouseType", "HouseType", "", "cbRSDirect"
eboReg 1, "FamOutcome", "FamOutcome", "", "cbRSDirect"
eboReg 1, "AccountID", "AccountID", "", "cbLocalVariable"

eboReg 2,"Switch_","int1","","cbRSListDirect"
eboReg 2, "Detail_0_", "Nvarchar1", "", "cbRSListDirect"
eboReg 2, "Detail_1_", "Nvarchar2", "", "cbRSListDirect"
eboReg 2, "Detail_2_", "DateTime1", "", "cbRSListDirect"
eboReg 2, "Detail_3_", "DateTime2", "", "cbRSListDirect"
eboReg 2, "Detail_4_", "Nvarchar3", "", "cbRSListDirect"
eboReg 2, "Detail_5_", "Nvarchar4", "", "cbRSListDirect"

eboReg 3,"Switch_","int1","","cbRSListDirect"
eboReg 3, "Detail_0_", "Nvarchar1", "", "cbRSListDirect"
eboReg 3, "Detail_1_", "Nvarchar2", "", "cbRSListDirect"
eboReg 3, "Detail_2_", "DateTime1", "", "cbRSListDirect"
eboReg 3, "Detail_3_", "DateTime2", "", "cbRSListDirect"
eboReg 3, "Detail_4_", "Currency1", "", "cbRSListDirect"
eboReg 3, "Detail_5_", "Nvarchar3", "", "cbRSListDirect"

eboReg 4,"Switch_","int1","","cbRSListDirect"
eboReg 4, "Detail_0_", "Nvarchar1", "", "cbRSListDirect"
eboReg 4, "Detail_1_", "Nvarchar2", "", "cbRSListDirect"
eboReg 4, "Detail_2_", "Nvarchar3", "", "cbRSListDirect"
eboReg 4, "Detail_3_", "Nvarchar4", "", "cbRSListDirect"
eboReg 4, "Detail_4_", "Nvarchar5", "", "cbRSListDirect"
eboReg 4, "Detail_5_", "Nvarchar6", "", "cbRSListDirect"

eboReg 5,"Switch_","int1","","cbRSListDirect"
eboReg 5, "Detail_0_", "Nvarchar1", "", "cbRSListDirect"
eboReg 5, "Detail_1_", "Nvarchar2", "", "cbRSListDirect"
eboReg 5, "Detail_2_", "Nvarchar3", "", "cbRSListDirect"
eboReg 5, "Detail_3_", "Nvarchar4", "", "cbRSListDirect"
eboReg 5, "Detail_4_", "Nvarchar5", "", "cbRSListDirect"
eboReg 5, "Detail_5_", "Nvarchar6", "", "cbRSListDirect"

eboReg 10,"Detail_rows","iCount","","cbLocalVariable"
eboReg 10,"Detail_cols","iCols","","cbLocalVariable"
'End

function bdOpenTitle(bdType, bdTableName, rsBD)
	eboGet 1, rsBD, nothing
	IData2d 1,3
end function

function bdOpenList(bdType, bdTableName, rsBD, rsBDList)
	dim s
	s=Clng(rsBDList("int1"))
	eboGet s+2, rsBD, rsBDList
	iCount = iCount + 1
	bdOpenList = 0
end function

response.write "<script>"&vbcrlf

Set eBD = Server.CreateObject("eB3KCommon.BillDocument")
x = eBD.bdOpen(bdid, Clng(bdType), me)
if CStr(x)="0" then err.raise 10000,"BuyReport.Load", eBD.GetLastError()
set eBD = Nothing

IData2d 0,10
eboGet 10, nothing, nothing
response.write "</script>"&vbcrlf
%>
</BODY>
<script>
IClient('data',IDataEnd());
IClient('end','');
</script>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -