📄 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/IServer.js"></script>
<script src="/client/grid.js"></script>

<BODY>
<div id=SelectArea></div>
<div id=PageCtrlArea></div>
<div id=bdPanel width=100 height=60 style="position:absolute; display:none; border:1 solid #000000">
<div id=bdPanelProduct><input type=button value="查看" onclick="Look()"></div>
</BODY>
<script title=User>
var iPanelx
function cbSearch(ifrid, fun, data){
	if (fun=='start')
		ifrid.document.title=getMainTitle();
}
function Look(){
	var newindow=window.open('', 'liwei','toolbar=no,directories=no menubar=no,scrollbars=yes,resizable=yes,location=no,width=780,heigth=550,left=0,top=46');
	IServer(newindow,'worker.SearchResult','id='+gDetail.data[iPanelx][0],cbSearch);
}

function gridInit(t){
	t[0].text='№';
	t[1].text='序号';
	t[1].width=1;
	t[2].text='姓名';
	t[2].width=100;
	t[3].text='性别';
	t[3].width=100;
	t[4].text='出生年月';
	t[4].width=100;
	t[5].text='电话';
	t[5].width=100;
	t[6].text='职位';
	t[6].width=100;
	t[7].text='身份证号码';
	t[7].width=100;
}

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;
		iPanelx=x
		switch(y){
			case 1:
			case 2:
			case 3:
			case 4:
			case 5:
			case 6:
			case 7:
				panelShow(eo.grid.rows(x+1).cells(y+1),bdPanel,bdPanelProduct,1);
				break;
		}
	}
}
</script>
<%

dim szSQL,szFind,iListWidth
iListWidth = 7 'ListWidth

dim Name,Sex,Age1,Age2,EngageLevel,szWhere
Name=Cstr(GetForm("Name"))
EngageLevel=GetForm("EngageLevel")
Age1=GetForm("Age1")
Age2=GetForm("Age2")

szWhere = ""

if Name<>"" OR EngageLevel<>"" then
	szWhere = szWhere & " and (" 
	if Name<>"" then
		szWhere = szWhere & "  Name LIKE '%" & Name & "%'"
		if EngageLevel<>"" then
			szWhere = szWhere & " OR EngageLevel LIKE '%" & EngageLevel & "%'"
		end if
	else
		if EngageLevel<>"" then
			szWhere = szWhere & " EngageLevel LIKE '%" & EngageLevel & "%'"
		end if
	end if
	szWhere = szWhere & ") "
end if

if isDate(Age1) then
	Age1=DateSerial(year(Age1), month(Age1), day(Age1))
	szWhere = szWhere & " AND Age>'" & Age1 & "'"
end if
if isDate(Age2) then
	Age2=DateSerial(year(Age2), month(Age2), day(Age2))
	Age2=dateadd("d",1,Age2)
	szWhere = szWhere &  "AND Age<'" & Age2 &"'"
else 
	szWhere = szWhere &  "AND Age<'" & now() &"'"
	'dateTo=DateSerial(year(now()), month(now()), day(now()))
	'dateTo=DateADD("d",1,dateTo)
	'dateTo = cdate(Request("dateTo"))
end if

szSQL = "SELECT * FROM [BillDocument] WHERE IsDeleted=0 " & szWhere & " ORDER BY ID DESC"

'eboReg
eboReg 1, "List_0_", "ID", "", "cbRSDirect"
eboReg 1, "List_1_", "Name", "", "cbRSDirect"
eboReg 1, "List_2_", "Sex", "", "cbRSSexToText"
eboReg 1, "List_3_", "Age", "", "cbRSDirect"
eboReg 1, "List_4_", "FamTelephone", "", "cbRSDirect"
eboReg 1, "List_5_", "EngageLevel", "", "cbRSDirect"
eboReg 1, "List_6_", "IDCard", "", "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"),10)	'default rows

dim eBD,rs
dim i,x,szTableName
Set eBD = Server.CreateObject("eB3KCommon.BillDocument")
x = eBD.bdGetDetailByType(Conn, CLng(bdType), rs)
set eBD = 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,"[BillDocument]","["&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 = Nothingend if

IData2d 0,2
eboGet 2, nothing, nothing
Response.Write "</script>" & VBCrLf

%>

<script>
function panelShow(idCtrl,idPanel,idChild,dir){
	var coll=idPanel.all.tags('div');
	for (i=0;i<coll.length;i++){
		if (coll(i)==idChild)
			coll(i).style.display='block';
		else
			coll(i).style.display='none';
	}
	idPanel.style.display='block';
	var rect=idCtrl.getBoundingClientRect();
	var rectPanel=idPanel.getBoundingClientRect();
	idPanel.style.left=rect.left;
	idPanel.style.top=rect.top;
	idPanel.style.left=parseInt(idPanel.style.left)+document.body.scrollLeft;
	idPanel.style.top=parseInt(idPanel.style.top)+document.body.scrollTop;

}

</script>
<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 + -