📄 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>
<% 
Server.ScriptTimeout = 500
'Variable Declare
dim iCount,TotalCount
dim i
i=0
TotalCount=CLng(GetForm("Detail_rows"))

Response.Write "<script>" & VBCrLf	
Response.Write "var data=new Array; "& VBCrLf

For iCount=0 To TotalCount-1
    dim detail1,detail5
    detail1=GetForm("Detail_1_"&iCount)
    detail5=GetForm("Detail_5_"&iCount)
	Response.Write "data[data.length]="& ProductIDToID(detail1) &";"& VBCrLf'ID	
	Response.Write "data[data.length]='"& ProductIDToCode(detail1) &"';"& VBCrLf'编号
	Response.Write "data[data.length]='"& ProductIDToTitle(detail1) &"';"& VBCrLf'名称
	Response.Write "data[data.length]='"& ProductIDToSpec(detail1) &"';"& VBCrLf'尺码
	Response.Write "data[data.length]='"& i &"';"& VBCrLf'库存数量
	Response.Write "data[data.length]='"& detail5 &"';"& VBCrLf'实盘数量
next
Response.Write "</script>" & VBCrLf	

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 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 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
%>
</BODY>
<script>
IClient('data',data);
IClient('end','');
</script>
</HTML>
⌨️ 快捷键说明

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