📄 default.asp

📁 进销存软件源代码
💻 ASP
字号:
<!-- #include virtual="/eB3KTransaction.asp" --><!-- #include virtual="/Server/ebo.asp" --><!-- #include virtual="/Server/cblib.asp" --><!-- #include file="../Common.asp" -->
<%
	dim eBP,y
	Set eBP = Server.CreateObject("NaFine.Privilege")
	y=eBP.PrivilegeTest(1,Clng(1006),8,me)
	if CStr(y)<>"0" then err.raise 10000,"User.Open", eBP.GetLastError()
dim defaultPrintRows
defaultPrintRows = 40
function GetPrintRows(iRows,defaultPrintRows)
	if iRows > defaultPrintRows then
		GetPrintRows = defaultPrintRows
	else
		GetPrintRows = iRows
	end if
end function
dim szSQL,szFind,iListWidthiListWidth = 9 'ListWidth

dim dateFrom,dateTo,szWhere
dim Name,Address,Telephone
dim szWhere1
dateFrom=GetForm("dateFrom")
dateTo=GetForm("dateTo")
Name=GetForm("Name")
Address=GetForm("Address")
Telephone=GetForm("Telephone")
szWhere=""
szWhere1=""


if isDate(dateFrom) then
	dateFrom=DateSerial(year(dateFrom), month(dateFrom), day(dateFrom))
	szWhere = szWhere &  " AND [biLeagueMessage].LeagueDate>='" & dateFrom & "'"
else 
	'dateFrom=0
	'dateFrom = cdate(Request("dateFrom"))
	szWhere = szWhere &  " "
end if
if isDate(dateTo) then
	dateTo=DateSerial(year(dateTo), month(dateTo), day(dateTo))
	szWhere = szWhere &  "AND [biLeagueMessage].LeagueDate<='" & dateTo &"'"
else 
	dateTo = dateadd("d",1,date())
	szWhere = szWhere &  "AND [biLeagueMessage].LeagueDate<='" & dateadd("d",1,date()) &"'"
end if

if Name<>"" OR Address<>"" OR Telephone<>"" then
	szWhere=szWhere & " AND ("
	szWhere1=")"
end if

if Name<>"" then
	szWhere = szWhere & " Name like '%" & Name & "%'"
end if
if Address<>"" then
	if Name<>"" then
		szWhere = szWhere & " AND Address like '%" & Address & "%'"
	else
		szWhere = szWhere & " Address like '%" & Address & "%'"
	end if
end if
if Telephone<>"" then
	if Name<>"" OR Address<>""  then
		szWhere = szWhere & " AND Telephone like '%" & Telephone & "%'"
	else
		szWhere = szWhere & " Telephone like '%" & Telephone & "%'"
	end if
end if

szWhere = szWhere & szWhere1

szSQL = "SELECT * FROM [biLeagueMessage] " &_
		"WHERE InfoType=" & biType & szWhere
%>
<script title=User>
var iPanelx
function cbSearch(ifrid, fun, data){
	if (fun=='start')
		ifrid.document.title=getMainTitle();
}

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;

}
function panelHide(){bdPanel.style.display='none';}function gridInit(t){	t[0].text='№';	t[1].text='序号';	t[1].width=1;	t[2].text='加盟时间';	t[2].width=80;	t[3].text='名称';	t[3].width=80;	t[4].text='地址';	t[4].width=150;	t[5].text='电话';	t[5].width=80;	t[5].formAlign='right';	
	t[6].text='传真';	t[6].width=80;	t[7].text='是否已经取消加盟';	t[7].width=50;	t[8].text='取消加盟时间';	t[8].width=80;	t[9].text='备注';	t[9].width=150;}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:
//				panelShow(eo.grid.rows(x+1).cells(y+1),bdPanel,bdPanelProduct,1);
//				break;
//		}//	}}</script><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>
<script src="/client/print.js"></script><%'eboRegeboReg 1, "List_0_", "ID", "", "cbRSDirect"eboReg 1, "List_1_", "LeagueDate", "", "cbRSDateToText"
eboReg 1, "List_2_", "Name", "", "cbRSDirect"
eboReg 1, "List_3_", "Address", "", "cbRSDirect"
eboReg 1, "List_4_", "Telephone", "", "cbRSDirect"
eboReg 1, "List_5_", "Fax", "", "cbRSDirect"
eboReg 1, "List_6_", "IsCancelLeague", "", "cbRSCheckToText"
eboReg 1, "List_7_", "CancelLeagueDate", "", "cbRSDirect"
eboReg 1, "List_8_", "MemoInfo", "", "cbRSDirect"
eboReg 2, "List_rows", "i", "", "cbLocalVariable"eboReg 2, "List_cols", "iListWidth", "", "cbLocalVariable"eboReg 2, "MaxPage", "iMaxPage", "", "cbLocalVariable"'Enddim iPage,iRows,iMaxPageiMaxPage = 0iPage = GetLong(Request("Page"),1)	'default page pos'iRows = GetLong(Request("Rows"),40)	'default rowsdim eBD,rsdim i,x,szTableNamei = 0Response.Write "<script>" & VBCrLf
if szSQL <> "" then	Set rs = Server.CreateObject("ADODB.RecordSet")	rs.open szSQL,Conn,1,1
	iRows = rs.RecordCount 	if iRows<=0 then		iRows = GetLong(Request("Rows"),40)	end if
	defaultPrintRows = GetPrintRows(iRows,defaultPrintRows)	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,2eboGet 2, nothing, nothingResponse.Write "</script>" & VBCrLf
%>
<BODY><div id=sTitle align=center><font size=5><b><u>加　盟　商　基　础　信　息</u></b></font></div>
<div id=sTime>查询时间：<%if len(datefrom)=0 then Response.Write "系统启用" else Response.Write FormatDateTime(datefrom,1)%>—<%=FormatDateTime(DateAdd("d",-1,dateto),1)%></div>
<div id=SelectArea></div><div id=PageCtrlArea></div><div>&nbsp;<input type=button value="预览" onClick=displayPrint(sTitle,sTime,<%=defaultPrintRows%>,1) id=button1 name=button1>　<input type=button value="打印" onClick=displayPrint(sTitle,sTime,<%=defaultPrintRows%>,0) id=button2 name=button2></div>
<div id=bdPanel width=100 height=60 style="position:absolute; display:none; border:1 solid #000000">

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