?? default.asp
字號:
<!-- #include virtual="/eB3KTransaction.asp" -->
<!-- #include virtual="/Server/EBO.asp" -->
<!-- #include virtual="/Server/cblib.asp" -->
<!-- #include file="../Common.asp" -->
<HTML>
<HEAD><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script src="/Client/ebComm.js"></script></HEAD>
<script src="/client/Request.js"></script>
<script src="/client/IClient.js"></script>
<BODY>
</BODY>
<%
dim i
dim tm
Response.Write "<script>" & VBCrLf
Response.Write "var data=new Array; "& VBCrLf
dim a
a=Split(GetForm("Product"),",")
For i = 0 To ubound(a)
tm=trim(a(i))
Response.Write "data[data.length]="& ProductIDToID(tm) &";"& VBCrLf'尺碼
Response.Write "data[data.length]='"& ProductIDToCode(tm) &"';"& VBCrLf'編號
Response.Write "data[data.length]='"& ProductIDToTitle(tm) &"';"& VBCrLf'名稱
Response.Write "data[data.length]='"& ProductIDToSpec(tm) &"';"& VBCrLf'尺碼
Response.Write "data[data.length]='"& ProductIDToColor(tm) &"';"& VBCrLf'色號
Response.Write "data[data.length]="& ProductIDToRate(tm) &";"& VBCrLf'稅率
Response.Write "data[data.length]="& ProductIDToPrice(tm) &";"& VBCrLf'單價
next
Response.Write "</script>" & VBCrLf
function ProductIDToRate(SearchCode2)'產品稅率
dim szSQL,rs
szSQL=" from biCorperation Where AccountID="& AccountID
rs=Conn.Execute("Select Count(*) as rc "&szSQL)
if rs("rc")=0 then
err.Raise 10000,"ProductIDToRate","帳套錯誤！"
else
set rs=nothing
rs=Conn.Execute("Select Currency1 "&szSQL)
ProductIDToRate=NullToZero(rs("Currency1"))
end if
end function
function ProductIDToID(SearchCode2)'產品ID
dim szSQL,rs
szSQL=" From biProduct Where SearchCode2='"& SearchCode2 &"'"
rs=Conn.Execute("Select Count(*) as rc "&szSQL)
if rs("rc")=0 then
err.Raise 10000,"ProductIDToID",SearchCode2&"---產品不存在或條碼錯誤！"
else
set rs=nothing
rs=Conn.Execute("Select ID "&szSQL)
ProductIDToID=rs("ID")
end if
end function
function ProductIDToCode(SearchCode2)'產品編碼
dim szSQL,rs
szSQL=" From biProduct Where SearchCode2='"& SearchCode2 &"'"
rs=Conn.Execute("Select Count(*) as rc "&szSQL)
if rs("rc")=0 then
err.Raise 10000,"ProductIDToCode",SearchCode2&"---產品不存在或條碼錯誤！"
else
set rs=nothing
rs=Conn.Execute("Select Code "&szSQL)
ProductIDToCode=rs("Code")
end if
end function
function ProductIDToTitle(SearchCode2)'產品名稱
dim szSQL,rs
szSQL=" From biProduct Where SearchCode2='"& SearchCode2 &"'"
rs=Conn.Execute("Select Count(*) as rc "&szSQL)
if rs("rc")=0 then
err.Raise 10000,"ProductIDToTitle",SearchCode2&"---產品不存在或條碼錯誤！"
else
set rs=nothing
rs=Conn.Execute("Select Title "&szSQL)
ProductIDToTitle=rs("Title")
end if
end function
function ProductIDToPrice(SearchCode2)'產品單價
dim szSQL,rs
szSQL=" From biProduct Where SearchCode2='"& SearchCode2 &"'"
rs=Conn.Execute("Select Count(*) as rc "&szSQL)
if rs("rc")=0 then
err.Raise 10000,"ProductIDToPrice",SearchCode2&"---產品不存在或條碼錯誤！"
else
set rs=nothing
rs=Conn.Execute("Select Currency1 "&szSQL)
ProductIDToPrice=NullToZero(rs("Currency1"))
end if
end function
function ProductIDToSpec(SearchCode2)'尺碼
dim szSQL,rs
szSQL=" From biProduct as bi,biSpec as bis Where bi.Bigint3=bis.ID and bi.SearchCode2='"& SearchCode2 &"'"
rs=Conn.Execute("Select Count(*) as rc "&szSQL)
if rs("rc")=0 then
ProductIDToSpec=""
else
set rs=nothing
rs=Conn.Execute("Select bis.Title as Spec "&szSQL)
ProductIDToSpec=rs("Spec")
end if
end function
function ProductIDToColor(SearchCode2)'色號
dim szSQL,rs
szSQL=" From biProduct as bi,biColor as bic Where bi.Bigint3=bic.ID and bi.SearchCode2='"& SearchCode2 &"'"
rs=Conn.Execute("Select Count(*) as rc "&szSQL)
if rs("rc")=0 then
ProductIDToColor=""
else
set rs=nothing
rs=Conn.Execute("Select bic.Title as Color "&szSQL)
ProductIDToColor=rs("Color")
end if
end function
%>
<script>
IClient('data',data);
IClient('end','');
</script>
</HTML>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -