📄 default.asp

📁 进销存软件源代码
💻 ASP
字号:
<!-- #include virtual="/eB3KTransaction.asp" -->
<!-- #include virtual="/Server/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 Stock,ProductCode,ProductTitle,SQLWhere
Stock=Request("Stock")
ProductCode=Request("ProductCode")
ProductTitle=Request("ProductTitle")
if len(Stock)>0 then SQLWhere=SQLWhere & " AND [bis].[ID] = "& Stock
if len(ProductCode)>0 then SQLWhere=SQLWhere & " AND [bip].[Code] like '%"& ProductCode &"%'"
if len(ProductTitle)>0 then SQLWhere=SQLWhere & " AND ([bip].[Title] like '%"& ProductTitle &"%' OR [bip].[SearchCode1] like '%"& ProductTitle &"%')"
function FormatZERO(intg)
	if len(intg)=0 or IsNumeric(intg)=False then
		FormatZERO=0
		exit function
	end if
	FormatZERO=intg
end function

function FormatNull(intg)
	if len(intg)=0 then
		FormatNull=Null
		exit function
	end if
	FormatNull=intg
end function


dim rs,i,szSQL
szSQL="Select bia.ID as ID,bis.ID as StockID,bis.Title as StockText,bip.ID as ProductID,bip.Code as ProductCode,bip.Title as ProductTitle,bia.Int3 as OneDay,bia.Currency1 as OneSaleRate,bia.Int4 as TwoDay,bia.Currency2 as TwoSaleRate,bia.Int5 as ThreeDay,bia.Currency3 as ThreeSaleRate "& _
		" From biAlertSet as bia,biProduct as bip,biStock as bis "& _
		" Where bia.Int1=bis.ID AND bia.Int2=bip.ID "&SQLWhere

Set rs = Server.CreateObject("ADODB.RecordSet")rs.open szSQL,Conn,1,1

Response.Write "<script>" & VBCrLf	
Response.Write "var data=new Array "& VBCrLf
do while not rs.EOF 
Response.Write "data[data.length]='"& FormatNull(rs("ID")) &"'"& VBCrLf
Response.Write "data[data.length]='"& FormatNull(rs("ProductID")) &"'"& VBCrLf
Response.Write "data[data.length]='"& FormatNull(rs("ProductCode")) &"'"& VBCrLf
Response.Write "data[data.length]='"& FormatNull(rs("ProductTitle")) &"'"& VBCrLf
Response.Write "data[data.length]='"& FormatZERO(rs("OneDay")) &"'"& VBCrLf
Response.Write "data[data.length]='"& FormatZERO(rs("OneSaleRate")) &"'"& VBCrLf
Response.Write "data[data.length]='"& FormatZERO(rs("TwoDay")) &"'"& VBCrLf
Response.Write "data[data.length]='"& FormatZERO(rs("TwoSaleRate")) &"'"& VBCrLf
Response.Write "data[data.length]='"& FormatZERO(rs("ThreeDay")) &"'"& VBCrLf
Response.Write "data[data.length]='"& FormatZERO(rs("ThreeSaleRate")) &"'"& VBCrLf
rs.MoveNext 
loop
Response.Write "</script>" & VBCrLf	

%>
<script>
IClient('data',data);
IClient('end','');
</script>
</HTML>
⌨️ 快捷键说明

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