?? default.asp
字號(hào):
<!-- #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='序號(hào)';
t[1].width=1;
t[2].text='客戶';
t[2].width=200;
t[3].text='所屬單位';
t[3].width=150;
t[4].text='類型';
t[4].width=50;
}
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][1];
if (eo.data[x][3]=='1') data[2]='客戶';
if (eo.data[x][3]=='2') data[2]='大客戶';
//End
IClient('data',data);
IClient('end','');
}
}
</script>
<%
dim eBP,y
Set eBP = Server.CreateObject("NaFine.Privilege")
y=eBP.PrivilegeTest(1,Clng(biType),8,me)
if CStr(y)<>"0" then err.raise 10000,"Custom.Open", eBP.GetLastError()
dim szSQL,szFind,iListWidth, szType, ssSQL, szflag
iListWidth = 4 'ListWidth
szFind = Request("Find")
szType = Request("Type")
szflag = Request("flag")
if szflag=1 then
ssSQL="[biCorperation].[ID] IN (SELECT [biCorperation].[ID] FROM [bdUserArea] AS [vt],[bdUserAreaList] AS [vl],biCorperation,biArea WHERE [vt].[ID]=[vl].[ID] AND [vl].[int2]=2 AND [biArea].[ID]=[vl].[ProductID] AND [biCorperation].[BigInt1]=[biArea].[ID] AND [vt].[bigint1]=" & Owner &")"
else ssSQL="[biCorperation].[ID] IN (SELECT [biCorperation].[ID] FROM [bdUserArea] AS [vt],[bdUserAreaList] AS [vl],biCorperation,biSection WHERE [vt].[ID]=[vl].[ID] AND [vl].[int2]=1 AND [biSection].[ID]=[vl].[ProductID] AND [biCorperation].[BigInt2]=[biSection].[ID] AND [vt].[bigint1]=" & Owner &")"
end if
szSQL = "SELECT [BaseInfo].[ID] AS [ID],[BaseInfo].[title] AS [Title],[bicorperation].[title] AS [CorpTitle],[BaseInfo].[Type] AS [Type] FROM [BaseInfo],[bicorperation] WHERE [BaseInfo].[InfoType]="& biType &" AND [BaseInfo].[accountid]=[bicorperation].[accountid] AND [BaseInfo].[accountid]=[bicorperation].[id] AND ([bicorperation].[parentid]="& AccountID &" OR [bicorperation].[id]="& AccountID &") AND " & ssSQL
if len(szType)<>0 then szSQL = szSQL & " AND [BaseInfo].[Type]="& cint(szType)
if len(szFind)<>0 then szSQL = szSQL & " AND ([BaseInfo].[Title] like '%" & SQLInputParam(szFind) & "%' OR [BaseInfo].[SearchCode1] like '%" & SQLInputParam(szFind) & "%')"
szSQL = szSQL & " ORDER BY ID DESC"
'eboReg
eboReg 1, "List_0_", "ID", "", "cbRSDirect"
eboReg 1, "List_1_", "Title", "", "cbRSDirect"
eboReg 1, "List_2_", "CorpTitle", "", "cbRSDirect"
eboReg 1, "List_3_", "Type", "", "cbRSDirect"
eboReg 2, "List_rows", "i", "", "cbLocalVariable"
eboReg 2, "List_cols", "iListWidth", "", "cbLocalVariable"
eboReg 2, "MaxPage", "iMaxPage", "", "cbLocalVariable"
'End
dim iPage,iRows,iMaxPage
iMaxPage = 0
iPage = GetLong(Request("Page"),1) 'default page pos
iRows = GetLong(Request("Rows"),10) 'default rows
dim eBI,rs
dim i,x,szTableName
Set eBI = Server.CreateObject("eB3KCommon.BaseInfo")
x = eBI.biGetDetailByType(Conn, CLng(biType), rs)
set eBI = Nothing
if x=0 then
szSQl = ""
else
szTableName = CStr(rs("TableName"))
end if
set rs = nothing
i = 0
Response.Write "<script>" & VBCrLf
if szSQL <> "" then
szSQL=replace(szSQL,"[BaseInfo]","["&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 if
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>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -