📄 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="/client/grid.js"></script>
<BODY><%=szSQL%>
<div id=SelectArea></div>
<div id=PageCtrlArea></div>
</BODY>
<script title=User>
function gridInit(t){
	t[0].text='№';
	t[1].text='编号';
	t[1].width= 80;
	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;
}

function ecbDetail(eo,szEvent,x,y){}
</script>
<%

dim dateFrom, dateTo, szSQL ,szCheck,szWhere,OwnerName,iListWidth,SKqdjLx,SBh
dateFrom=GetForm("dateFrom")
dateTo=GetForm("dateTo")
SKqdjLx=GetForm("KqdjLx")
SBh=GetForm("Bh")
if isDate(dateFrom) then
	dateFrom=DateSerial(year(dateFrom), month(dateFrom), day(dateFrom))
else 
	dateFrom=0
end if
if isDate(dateTo) then
	dateTo=DateSerial(year(dateTo), month(dateTo), day(dateTo))
else 
	dateTo=DateSerial(year(now()), month(now()), day(now()))
	dateTo=DateADD("d",1,dateTo)
end if

'szWhere="AccountID="& AccountID &" AND CreateDate<'"& dateTo &"'"
szWhere="AccountID="& SKqdjLx &" AND "
if SkqdjLx="13" then
   szWhere=szWhere & " KqdjDate<'"& dateTo &"'"
end if

if SkqdjLx="14" then
   szWhere=szWhere & " Jbdate<'"& dateTo &"'"
end if

if SkqdjLx="15" then
   szWhere=szWhere & " QjDateFrom<'"& dateTo &"'"
end if

if SkqdjLx="16" then
   szWhere=szWhere & " CcDateFrom<'"& dateTo &"'"
end if

if SkqdjLx="17" then
   szWhere=szWhere & " TbDate<'"& dateTo &"'"
end if

if dateFrom<>0 then 

if SkqdjLx="13" then
   szWhere=szWhere & " AND  KqdjDateTo>='"& dateFrom &"'"
end if

if SkqdjLx="14" then
   szWhere=szWhere & " AND  Jbdate>='"& dateFrom &"'"
end if

if SkqdjLx="15" then
   szWhere=szWhere & " AND  QjDateEnd>='"& dateFrom &"'"
end if

if SkqdjLx="16" then
   szWhere=szWhere & " AND  CcDateEnd>='"& dateFrom &"'"
end if

if SkqdjLx="17" then
   szWhere=szWhere & " AND  TbDate>='"& dateFrom &"'"
end if


'szWhere=szWhere & " AND CreateDate>='"& dateFrom &"'"

end if


if len(OwnerName)<>0 then szWhere=szWhere & " AND Bh="& SBh
szSQL="SELECT * FROM biKqdj WHERE "& szWhere &" ORDER BY Bh"
iListWidth = 6 'ListWidth
'response.write szSQL
'response.write SBh
'response.end
'eboReg
eboReg 1, "List_0_", "Bh", "", "cbRSDirect"
eboReg 1, "List_1_", "Name", "", "cbRSUserToText"

if SkqdjLx="14" then
  eboReg 1, "List_2_", "Jbdate", "", "cdRSGetbdORbiType"
  eboReg 1, "List_3_", "JbTime", "", "cbRSEventToText"
  eboReg 1, "List_4_", "JbBz", "", "cbRSEventToText"
end if

if SkqdjLx="15" then
  eboReg 1, "List_2_", "QjDateFrom", "", "cdRSGetbdORbiType"
  eboReg 1, "List_3_", "QjDateEnd", "", "cbRSEventToText"
  eboReg 1, "List_4_", "QjBz", "", "cbRSEventToText"
end if

if SkqdjLx="16" then
  eboReg 1, "List_2_", "CcDateFrom", "", "cdRSGetbdORbiType"
  eboReg 1, "List_3_", "CcjDateEnd", "", "cbRSEventToText"
  eboReg 1, "List_4_", "CcBz", "", "cbRSEventToText"
end if

if SkqdjLx="17" then
  eboReg 1, "List_2_", "TbDate", "", "cdRSGetbdORbiType"
  eboReg 1, "List_3_", "TbBz", "", "cbRSEventToText"
end if

if SkqdjLx="13" then
  eboReg 1, "List_2_", "KqdjDate", "", "cdRSGetbdORbiType"
  eboReg 1, "List_3_", "KqdjDateTo", "", "cbRSEventToText"
  eboReg 1, "List_4_", "KqdjLx", "", "cbRSEventToText"
  eboReg 1, "List_5_", "KqdjLb", "", "cbRSEventToText"
end if

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
iMaxPage = 0
iPage = GetLong(Request("Page"),1)	'default page pos
iRows = GetLong(Request("Rows"),10)	'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-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

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