📄 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/Request.js"></script><script src="/client/IClient.js"></script><LINK REL=stylesheet HREF="/Client/All.css" TYPE="text/css"></HEAD>
<BODY></BODY><%
Server.ScriptTimeout=150
 dim eBP,y                                                                            
 Set eBP = Server.CreateObject("ZZ.Privilege")                                    
 y=eBP.PrivilegeTest(0,Clng(bdType),8,me)                                             
 if CStr(y)<>"0" then err.raise 10000,"PrivilegeGroup.Open", eBP.GetLastError()   
 
dim szSQL,szFind,iListWidth,i,rs
iListWidth = 6 'ListWidth
szSQL = "SELECT [biSubjectType].[Type] as [Type], [biSubject].[ID] as [id], [biSubject].[Code] as [Code], [biSubject].[SearchCode2] AS [SearchCode2], [biSubjectType].[Title] AS [SubjectType], [biCurrency].[Title] AS [CurrencyType], [biSubject].[Int1] as [Int1] FROM biSubjectType, biCurrency, biSubject WHERE [biCurrency].[ID] =[biSubject].[bigint2] AND [biSubjectType].[ID] =[biSubject].[bigint1] AND ([biSubject].[AccountID]=(SELECT RootID FROM [biCorperation] WHERE [ID]=" & AccountID & ") OR [biSubject].[AccountID]="& AccountID &" ) ORDER BY Code"

'eboReg
eboReg 1, "Type_", "Type", "", "cbRSDirect"
eboReg 1, "Detail_0_", "id", "", "cbRSDirect"
eboReg 1, "Detail_1_", "Code", "", "cbRSDirect"
eboReg 1, "Detail_2_", "SearchCode2", "", "cbRSDirect"
eboReg 1, "Detail_3_", "SubjectType", "", "cbRSDirect"
eboReg 1, "Detail_4_", "CurrencyType", "", "cbRSDirect"
eboReg 1, "Detail_5_", "int1", "", "cbRSDirect"

eboReg 2, "Detail_rows", "i", "", "cbLocalVariable"
eboReg 2, "Detail_cols", "iListWidth", "", "cbLocalVariable"
'End

i = 0
Response.Write "<script>" & VBCrLf
if szSQL <> "" then
	Set rs = Server.CreateObject("ADODB.RecordSet")	rs.open szSQL,Conn,1,1
	IData2d 1,1	Do While Not rs.EOF		eboGet 1, rs, nothing
		i = i + 1
		rs.MoveNext	Loop	Set rs = Nothingend if

IData2d 0,2
eboGet 2, nothing, nothing
Response.Write "</script>" & VBCrLf
%>
<script>
IClient('data',IDataEnd());
IClient('end','');
</script>
</HTML>
⌨️ 快捷键说明

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