?? 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>
<%
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 + -