📄 default.asp

📁 进销存软件源代码
💻 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 + -