📄 default.asp

📁 进销存软件源代码
💻 ASP
字号:
<!-- #include virtual="/eB3KTransaction.asp" -->
<!-- #include virtual="/Server/ebo.asp" -->
<!-- #include virtual="/Server/cblib.asp" -->
<!-- #include virtual="/Server/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="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=160;
	t[2].text='操作员';
	t[2].width=100;
	t[3].text='组件';
	t[3].width=120;
	t[4].text='动作';
	t[4].width=120;
}

function ecbDetail(eo,szEvent,x,y){}
</script>
<%
dim dateFrom, dateTo, szSQL ,szCheck,szWhere,OwnerName,iListWidth
dateFrom=GetForm("dateFrom")
dateTo=GetForm("dateTo")
OwnerName=GetForm("owner")

if dateFrom="" and dateTo="" and OwnerName="" then
	dateFrom=Request.querystring("dateFrom")
	dateTo=Request.querystring("dateTo")
	OwnerName=Request.querystring("OwnerName")
end if

if isDate(dateFrom) then
	dateFrom=DateSerial(year(dateFrom), month(dateFrom), day(dateFrom))
else 
	'dateFrom=0
	dateFrom = DateSerial(year(now), month(now), day(now))
	dateFrom = cdate(dateFrom)
end if
if len(dateto)=0 then
	dateto=now()
end if
dateto = DateSerial(year(dateto), month(dateto), day(dateto))
dateto = DateAdd("d", 1, dateto)

szWhere="AccountID="& AccountID &" AND CreateDate<'"& dateTo &"'"
if dateFrom<>0 then szWhere=szWhere & " AND CreateDate>='"& dateFrom &"'"
if len(OwnerName)<>0 then szWhere=szWhere & " AND Owner="& OwnerName
szSQL="SELECT Int1,CreateDate,Owner,Int2,Code FROM Log WHERE "& szWhere &" ORDER BY CreateDate DESC"
iListWidth = 4 'ListWidth

'eboReg
eboReg 1, "List_0_", "CreateDate", "", "cbRSDirect"
eboReg 1, "List_1_", "Owner", "", "cbRSUserToText"
eboReg 1, "List_2_", "Int2", "", "cdRSGetbdORbiType"
eboReg 1, "List_3_", "Code", "", "cbRSEventToText"

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

function cdRSGetbdORbiType(fun, eboitem, rs, rsList)
	dim SQL,rsLib,szTableName,szField,szWhere
	if rs("Int1")=1 Then
		szTableName="BaseInfoType"
		szField="InfoName"
		szWhere="InfoType="& rs("Int2")
	elseif rs("Int1")=0 then
		szTableName="BillDocumentType"
		szField="BillName"
		szWhere="BillType="& rs("Int2")	
	end if	
	rsLib=Conn.Execute("SELECT "& szField &" FROM "& szTableName &" WHERE "& szWhere)
	cdRSGetbdORbiType=rsLib(szField)
end function

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

dim eBD,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
dim YearFrom,MonthFrom,DayFrom,YearTo,MonthTo,DayTo
YearFrom = year(dateFrom)
MonthFrom = month(dateFrom)
DayFrom = day(dateFrom)
YearTo = year(dateTo)
MonthTo = month(dateTo)
DayTo = day(dateTo)

%>
<script>
var dateFrom,dateTo,OwnerName
dateFrom=<%=YearFrom%> + "-" + <%=MonthFrom%> + "-" + <%=DayFrom%>
dateTo=<%=YearTo%> + "-" + <%=MonthTo%> + "-" + <%=DayTo%>
OwnerName='<%=OwnerName%>'
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'),dateFrom,dateTo,OwnerName);

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