📄 default.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(1008),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,iListWidth
dim szWhere,szWhereUnion,SearchYearDate
dim szSelect,szUnion
dim SQLSearch,rsSearch,valueArray
dim strGridInit
szWhere = ""
szWhereUnion = ""
SQLSearch = ""
strGridInit = ""
set rsSearch = server.CreateObject("ADODB.recordset")
SearchYearDate = GetForm("SearchYearDate")
if SearchYearDate <> "" then
szWhere = szWhere & " Where YearDate = " & SearchYearDate
szWhereUnion = szWhereUnion & " AND YearDate = " & SearchYearDate
else
szWhere = ""
szWhereUnion = ""
end if
SQLSearch = SQLSearch & "SELECT Brand FROM biCompete"
SQLSearch = SQLSearch & szWhere & " GROUP BY Brand"
rsSearch.open SQLSearch,conn,1,1
if not rsSearch.EOF then
dim i,j,recordsetCount
dim eboRegServerName,eboRegFieldName
recordsetCount = rsSearch.RecordCount
redim valueArray(recordsetCount)
redim szUnion(recordsetCount)
redim eboRegServerName(recordsetCount)
redim eboRegFieldName(recordsetCount)
i=0
j=0
szSelect = "SELECT Area,Market"
while not rsSearch.eof
for j=0 to recordsetCount
valueArray(j) = "value" & j
eboRegServerName(j) = "List_" & j+2 & "_"
next
eboRegFieldName(i) = rsSearch("Brand")
strGridInit = strGridInit & "t[" & i+3 & "].text='" & rsSearch("Brand") & "';"
strGridInit = strGridInit & "t[" & i+3 & "].width=80;"
szSelect = szSelect & ",SUM(" & valueArray(i) & ") AS " & rsSearch("Brand")
if i=0 then
szUnion(i) = " SELECT Area,Market"
szUnion(i) = szUnion(i) & ",competeValue AS " & valueArray(i)
for j=1 to recordsetCount-1
szUnion(i) = szUnion(i) & ",0 AS " & valueArray(j)
next
else
szUnion(i) = " UNION SELECT Area,Market"
for j=0 to recordsetCount-1
if j=i then
szUnion(i) = szUnion(i) & ",competeValue AS " & valueArray(j)
else
szUnion(i) = szUnion(i) & ",0 AS " & valueArray(j)
end if
next
end if
szUnion(i) = szUnion(i) & " FROM biCompete WHERE Brand='" & rsSearch("Brand") & "'" & szWhereUnion
rsSearch.movenext
i = i + 1
wend
szSelect = szSelect & " FROM ("
end if
szSQL = ""
szSQL = szSQL & SZselect
for i=0 to recordsetCount
szSQL = szSQL & szUnion(i)
next
szSQL = szSQL & ") AS cmlSQL GROUP BY Area,Market"
iListWidth = recordsetCount + 2 'ListWidth
%>
<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=80; t[2].text='商场'; t[2].width=80; <%=strGridInit%>
}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_", "Area", "", "cbRSDirect"eboReg 1, "List_1_", "Market", "", "cbRSDirect"for j=0 to recordsetCount-1
eboReg 1, eboRegServername(j), eboRegFieldname(j), "", "cbRSDirect"
next
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 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>年度：<%=SearchYearDate%></div>
<div id=SelectArea></div><div id=PageCtrlArea></div><div> <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 + -