📄 default.asp

📁 进销存软件源代码
💻 ASP
字号:
<!-- #include virtual="/eB3KTransaction.asp" -->
<!-- #include virtual="/Server/ebo.asp" -->
<!-- #include virtual="/Server/cblib.asp" -->
<!-- #include file="../Common.asp" -->
<!-- #include file="../../Common.asp" -->
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><LINK REL=stylesheet HREF="/Client/All.css" TYPE="text/css"><script src="/Client/ebComm.js"></script></HEAD>
<script src="/client/ebo.js"></script>
<script src="/client/Request.js"></script>
<script src="/client/IClient.js"></script>
<script src="/client/grid.js"></script>
<BODY>
<div id=SelectArea></div>
<div id=PageCtrlArea></div>
</BODY><%

dim szSQL,szFind,iListWidth,ssSQL, szflag

szflag = Request("flag")
if szflag=1 then
	ssSQL="[biCorperation].[ID] IN (SELECT [biCorperation].[ID] FROM [bdUserArea] AS [vt],[bdUserAreaList] AS [vl],biCorperation,biArea WHERE [vt].[ID]=[vl].[ID] AND [vl].[int2]=2 AND	[biArea].[ID]=[vl].[ProductID] AND	[biCorperation].[BigInt1]=[biArea].[ID] AND	[vt].[bigint1]=" & Owner &")" 
else
	ssSQL="[biCorperation].[ID] IN (SELECT [biCorperation].[ID] FROM [bdUserArea] AS [vt],[bdUserAreaList] AS [vl],biCorperation,biSection WHERE [vt].[ID]=[vl].[ID] AND [vl].[int2]=1 AND	[biSection].[ID]=[vl].[ProductID] AND [biCorperation].[BigInt2]=[biSection].[ID] AND [vt].[bigint1]=" & Owner &")"
end if
iListWidth = 4 'ListWidth
szFind = Request("Find")
if AccountID<>"1" then
	szSQL = "SELECT * FROM [BaseInfo] WHERE InfoType=" & biType & "  and ParentID=" & AccountID & " AND Type=0"
else
	szSQL = "SELECT * FROM [BaseInfo] WHERE " & ssSQL
end if
if len(szFind)<>0 then szSQL = szSQL & " and Title like '%" & szFind & "%'"
szSQL = szSQL & " ORDER BY Type, ID DESC"

'eboReg
eboReg 1, "List_0_", "ID", "", "cbRSDirect"
eboReg 1, "List_1_", "Title", "", "cbRSDirect"
eboReg 1, "List_2_", "Type", "", "cbRSCorpToType"
eboReg 1, "List_3_", "ParentID", "", "cbRSCorpToText"


eboReg 2, "List_rows", "i", "", "cbLocalVariable"
eboReg 2, "List_cols", "iListWidth", "", "cbLocalVariable"
eboReg 2, "MaxPage", "iMaxPage", "", "cbLocalVariable"
'End

dim iPage,iRows,iMaxPage
iMaxPage = 0
iPage = GetLong(Request("Page"),1)	'default page pos
iRows = GetLong(Request("Rows"),10)	'default rows

dim eBI,rs
dim i,x,szTableName
Set eBI = Server.CreateObject("eB3KCommon.BaseInfo")
x = eBI.biGetDetailByType(Conn, CLng(biType), rs)
set eBI = Nothing
if x=0 then
	szSQl = ""
else
	szTableName = CStr(rs("TableName"))
end if
set rs = nothing
i = 0
Response.Write "<script>" & VBCrLf
if szSQL <> "" then
	szSQL=replace(szSQL,"[BaseInfo]","["&szTableName&"]")
	Set rs = Server.CreateObject("ADODB.RecordSet")
	rs.open szSQL,Conn,1,1
	iMaxPage = Int((rs.RecordCount+iRows-1)/iRows)
	if rs.RecordCount > 0 then 	rs.move iPage*iRows-iRows
	IData2d 1,1
	Do While Not rs.EOF And i < iRows
		eboGet 1, rs, nothing
		i = i + 1
		rs.MoveNext
	Loop
	Set rs = Nothing
end if

IData2d 0,2
eboGet 2, nothing, nothing
Response.Write "</script>" & VBCrLf
%>
<script>
requestSet('Page','<%=iPage%>');
requestSet('Rows','<%=iRows%>');
</script>
<script src="default.js"></script>
</HTML>
⌨️ 快捷键说明

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