📄 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"><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>
<script title=User>
function gridInit(t){
	t[0].text='№';
	t[1].text='类型';
	t[1].width=60;
	t[2].width=1;
	t[3].text='区域';
	t[3].width=200;
	t[4].text='组件';
	t[4].width=160;
}

function ecbDetail(eo,szEvent,x,y){
	if (szEvent=='MOUSECLICK'){
		var data=new Array();
		if (isNaN(x)) return;
		if (x<0||x>gDetail.data.length) return;
		data[0]=eo.data[x][0];
		data[1]=eo.data[x][1];
		data[2]=eo.data[x][2];
		//End
		IClient('data',data);
		IClient('end','');
	}
}
</script>
<%
dim szSQL,szFind,iListWidth
iListWidth = 4 'ListWidth
szFind = Request("Find")

szSQL = "SELECT 0 AS [AreaType], [BillType] AS [Area], [BillName] AS [Title], [ISVRFUN] AS [Module] FROM [BillDocumentType]" & _
	" UNION SELECT 1 AS [AreaType], [InfoType] AS [Area], [InfoName] AS [Title], [ISVRFUN] AS [Module] FROM [BaseInfoType]" & _
	" UNION SELECT 2 AS [AreaType], CAST([ID] AS int) AS [Area], [Title] AS [Title], [nvarchar1] AS [Module] FROM [biCustomPrivilege]"

if len(szFind)>0 then 
	szSQL="Select * From ("&szSQL&") as nv Where Title like '%"&szFind&"%' "
end if
szSQL=szSQL&" ORDER BY [AreaType], [Area]"

'eboReg
eboReg 1, "List_0_", "AreaType", "", "cbRSDirect"
eboReg 1, "List_1_", "Area", "", "cbRSDirect"
eboReg 1, "List_2_", "Title", "", "cbRSDirect"
eboReg 1, "List_3_", "Module", "", "cbRSDirect"

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"),15)	'default rows

dim rs, i
i = 0
Response.Write "<script>" & VBCrLf
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-iRowsIData2d 1,1Do While Not rs.EOF And i < iRows	eboGet 1, rs, nothing
	i = i + 1
	rs.MoveNextLoopSet rs = Nothing
IData2d 0,2
eboGet 2, nothing, nothing
Response.Write "</script>" & VBCrLf
%>
<script>
requestSet('Page','<%=iPage%>');
requestSet('Rows','<%=iRows%>');
var indata = IDataEnd();
var gDetail = new ZYDGRID(new ZYDGRIDFORIEBUG(),SelectArea,indata.item('List_rows'),indata.item('List_cols'),'100%','',0,testUndefine,testUndefine,ecbDetail);
gridInit(gDetail.title);
var gPageCtrl = new ZYDPAGECTRL(new ZYDPAGECTRLFORIEBUG(),PageCtrlArea,request('Page'),indata.item('MaxPage'));

function mydetailproc(method,ebo){
	if (method==EBO_SET){
		var i,j;
		var rows=parseInt(indata.item(ebo.serversidename+'_rows'));
		var cols=parseInt(indata.item(ebo.serversidename+'_cols'));
		ebo.id.data.length=0;
		for (i=0;i<rows;i++){
			ebo.id.data[i]=new Array();
			for (j=0;j<cols;j++)
				ebo.id.data[i][j]=indata.item(ebo.serversidename+'_'+j+'_'+i);
		}
	}
	return (true);
}
eboReg('List',gDetail,'',mydetailproc);
eboSet();
gDetail.refreshAll();
function IClientSetSize(){
	document.body.style.borderWidth=1;
	document.body.style.borderColor='#000000';
	document.body.style.borderStyle='solid';
	IClient('setSize',new Array(document.body.scrollWidth+2,document.body.scrollHeight+2));
}
IClientSetSize();
</script>
</HTML>
⌨️ 快捷键说明

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