📄 default.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/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=1;
t[2].text='编码';
t[2].width=150;
t[3].text='名称';
t[3].width=120;
t[4].text='尺码';
t[4].width=100;
t[5].text='色号';
t[5].width=60;
t[6].text='税率';
t[6].width=40;
t[7].text='销价';
t[7].width=60;
t[7].formAlign='right';
}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; data[0]=eo.data[x][0]; //Add your code here //data[1]=eo.data[x][2]; //End IClient('data',data); IClient('end',''); }}</script><% dim eBP,y,Stock
Stock=request("Stock2")
Set eBP = Server.CreateObject("NaFine.Privilege")
y=eBP.PrivilegeTest(0,Clng(bdType),8,me)
if CStr(y)<>"0" then err.raise 10000,"BuyOrderJXB.Open", eBP.GetLastError()
dim szSQL,szFind,iListWidthiListWidth = 7 'ListWidthszSQL = "Select bi.ID as ID,bi.Code as Code,bi.Title as Title,bi.BigInt3 as BigInt3,bi.BigInt2 as BigInt2,bi.Currency3 as Currency3,bi.Currency1 as Currency1 From bdGetProductOrder as bd,bdGetProductOrderList as bdlist,biStock as bis,biProduct as bi Where bd.AuditID<>0 and bd.ID=bdlist.ID and bd.Stock=bis.ID and bdlist.ProductID=bi.ID and bd.Stock="& Stock'eboRegeboReg 1, "List_0_", "ID", "", "cbRSDirect"
eboReg 1, "List_1_", "Code", "", "cbRSDirect"
eboReg 1, "List_2_", "Title", "", "cbRSDirect"
eboReg 1, "List_3_", "BigInt3", "", "cbRSSpecToText"
eboReg 1, "List_4_", "BigInt2", "", "cbRSColorToText"
eboReg 1, "List_5_","Currency3","","cbFunCurrency"
eboReg 1, "List_6_","Currency1","","cbFunCurrency"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 posiRows = GetLong(Request("Rows"),10) 'default rowsdim eBD,rsdim i,x,szTableNameSet eBD = Server.CreateObject("eB3KCommon.BillDocument")x = eBD.bdGetDetailByType(Conn, CLng(bdType), rs)set eBD = Nothingif x=0 then szSQl = ""else szTableName = CStr(rs("TableName"))end ifset rs = nothingi = 0Response.Write "<script>" & VBCrLfif 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 ifIData2d 0,2eboGet 2, nothing, nothingResponse.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 + -