📄 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><%'Variable Declaredim x, iCols, SwitchiCols = 7function cbRSProductMapping(fun, eboitem, rs, rsList)	dim szSQL,rsCheck	szSQL = "SELECT COUNT(*) AS rc FROM [biSubject] WHERE [InfoType]=10 AND ([AccountID]=(SELECT RootID FROM [biCorperation] WHERE AccountID="&AccountID&") OR AccountID="&AccountID&") AND ParentID=" & SubjectID & " AND [int4]=2 AND [bigint4]=" & SQLInputParam(rs(eboitem.FieldName))	rsCheck=Conn.Execute(szSQL)	if rsCheck("rc")>0 then		szSQL = "SELECT ID FROM [biSubject] WHERE [InfoType]=10 AND ([AccountID]=(SELECT RootID FROM [biCorperation] WHERE AccountID="&AccountID&") OR AccountID="&AccountID&") AND ParentID=" & SubjectID & " AND [int4]=2 AND [bigint4]=" & SQLInputParam(rs(eboitem.FieldName))		rsCheck=Conn.Execute(szSQL)		cbRSProductMapping=rsCheck("ID")	else		err.raise 10000, "LoadFIS","失败，请查看创建映射！"	end if	set rsCheck=nothingend functiondim szSQL,rsCheckdim SubjectIDSubjectID=Request("Subject")szSQL = "SELECT COUNT(*) AS rc FROM [biSubject] WHERE [InfoType]=10 AND ([AccountID]=(SELECT RootID FROM [biCorperation] WHERE AccountID="&AccountID&") OR AccountID="&AccountID&") AND ID="& SQLInputParam(SubjectID)rsCheck = Conn.Execute(szSQL)if rsCheck("rc")=0 then err.raise 10000, "LoadFIS","科目不存在！"szSQL = "SELECT [biSubjectType].[Type] as [Type] FROM biSubjectType, biSubject WHERE [biSubjectType].[ID] =[biSubject].[bigint1] AND ([biSubject].[AccountID]=(SELECT RootID FROM [biCorperation] WHERE [ID]=" & AccountID & ") OR [biSubject].[AccountID]="& AccountID &" ) AND [biSubject].[ID]="& SQLInputParam(SubjectID)rsCheck = Conn.Execute(szSQL)Switch = rsCheck("Type")set rsCheck=nothing'eboRegeboReg 1,"Switch_","Switch","","cbLocalVariable"eboReg 1,"Detail_0_","ProductID","","cbRSProductMapping"eboReg 1,"Detail_6_","Amount","","cbRSDirect"eboReg 2,"Detail_rows","i","","cbLocalVariable"eboReg 2,"Detail_cols","iCols","","cbLocalVariable"'Endresponse.write "<script>"&vbcrlfdim rs, iszSQL="SELECT DISTINCT [vl].[ProductID] AS [ProductID], SUM([vl].[Amount]) AS [Amount] FROM [bdFirstInStock] AS [vt], [bdFirstInStockList] AS [vl] WHERE [vt].[AccountID]="&AccountID&" AND [vt].[BillType]=18 AND [vt].[ID]=[vl].[ID] GROUP BY [vl].[ProductID]"Set rs = Server.CreateObject("ADODB.RecordSet")rs.open szSQL,Conn,1,1
IData2d 1,1i=0
Do While Not rs.EOF	eboGet 1, rs, nothing	i = i + 1	rs.MoveNextLoopSet rs = NothingIData2d 0,2eboGet 2, nothing, nothingresponse.write "</script>"&vbcrlf%></BODY><script>IClient('data',IDataEnd());IClient('end','');</script></HTML>
⌨️ 快捷键说明

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