📄 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>
<%

dim szSQL,szFind,rsCheck
szFind = Request("Find")
szSQL = "SELECT ID FROM [biProduct] WHERE SearchCode2='" & szFind &"'"
rsCheck=Conn.Execute(szSQL)
if rsCheck("ID")="" then err.Raise 10000,"Product","无此产品！"

'Variable Declare
dim eBI, x, biid,data0, data1,data2,data3,data4,i
i=0
biid=rsCheck("ID")
'End


'eboReg
eboReg 1, "data0","ID","","cbLocal0"
eboReg 1, "data1","Code","","cbLocal1"
eboReg 1, "data2","Title","","cbLocal2"
eboReg 1, "data3","BigInt2", "", "cbRSColorToText"
eboReg 1, "data4","BigInt3", "", "cbRSSpecToText"

'End

function cbLocal0(fun, eboitem, rs, rsList) '保存字符串
	data0=rs(eboitem.FieldName)
end function
function cbLocal1(fun, eboitem, rs, rsList) '保存字符串
	data1=rs(eboitem.FieldName)
end function
function cbLocal2(fun, eboitem, rs, rsList) '保存字符串
	data2=rs(eboitem.FieldName)
end function
function cbRSColorToText(fun, eboitem, rs, rsList) '取出颜色名
	dim szSQL,rsCheck
	szSQL="SELECT Title FROM [biColor] WHERE [InfoType]=104 AND ID=" & CStr(rs(eboitem.FieldName))
	rsCheck=Conn.Execute(szSQL)
	data3=rsCheck("Title")
	set rsCheck = nothing
end function
function cbRSSpecToText(fun, eboitem, rs, rsList) '取出规格名
	dim szSQL,rsCheck
	szSQL="SELECT Title FROM [biSpec] WHERE [InfoType]=105 AND ID=" & CStr(rs(eboitem.FieldName))
	rsCheck=Conn.Execute(szSQL)
	data4=rsCheck("Title")
	set rsCheck = nothing
end function

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)
set eBI = Nothing

response.write "</script>"&vbcrlf
%>
</BODY>
<script>
var data=new Array();
data[0]='<%=data0%>';
data[1]='<%=data1%>';
data[2]='<%=data2%>';
data[3]='<%=data3%>';
data[4]='<%=data4%>';
IClient('data',data);
IClient('end','');
</script>
</HTML>
⌨️ 快捷键说明

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