?? 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/IServer.js"></script>
<script src="/client/grid.js"></script>
<script src="/client/cbLib.js"></script>
<BODY>
<div id=SelectArea></div>
<div id=PageCtrlArea></div>
<iframe id=bdSelectArea width=500 height=500 style="DISPLAY: none" border=0 frameborder=0 framespacing=0 marginheight=0 marginwidth=0></iframe>
<div id=bdPanel width="100" height="60" style="BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; DISPLAY: none; BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid; POSITION: absolute">
<div id=bdPanelProduct><input type=button value="刪除" onclick="panelDelete()"></div>
</div>
</BODY>
<%
'dim eBP,y
'Set eBP = Server.CreateObject("ZZ.Privilege")
'y=eBP.PrivilegeTest(0,Clng(bdType),8,me)
'if CStr(y)<>"0" then err.raise 10000,"OutStock.Open", eBP.GetLastError()
dim szSQL,szFind,iListWidth
iListWidth = 4 'ListWidth
dim SQLSelect,SQLFrom,SQLWhere,SQLOrderSQLSelect=""SQLFrom=""SQLWhere=""SQLOrder=""
SQLSelect = SQLSelect&"SELECT * "
SQLFrom=SQLFrom& " FROM [BillDocument]"
SQLWhere=SQLWhere&" WHERE AccountID=" & AccountID & " AND IsDeleted=0 AND BillType=" & bdType
SQLOrder=SQLOrder&" ORDER BY ID DESC"
'eboReg
eboReg 1, "List_0_", "ID", "", "cbRSDirect"
eboReg 1, "List_1_", "BillDate", "", "cbRSDirect"
eboReg 1, "List_2_", "nvarchar1", "", "cbRSDirect"
eboReg 1, "List_3_", "AuditID", "", "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 eBD,rs
dim i,x,szTableName
Set eBD = Server.CreateObject("eB3KCommon.BillDocument")
x = eBD.bdGetDetailByType(Conn, CLng(bdType), rs)
set eBD = Nothing
if x=0 then
szSQl = ""
else
szTableName = CStr(rs("TableName"))
end if
set rs = nothing
i = 0
dim iRecordCount ,tRcSQLSelect="SELECT COUNT(*) AS rc "szSQL=SQLSelect & SQLFrom & SQLWhereszSQL=replace(szSQL,"[BillDocument]","["&szTableName&"]")tRc=Conn.Execute(szSQL)iRecordCount=tRc("rc")SQLSelect=" SELECT TOP "& iPage*iRows & " [ID],[BillDate],[nvarchar1],[AuditID] "szSQL=SQLSelect & SQLFrom & SQLWhere & SQLOrderResponse.Write "<script>" & VBCrLfif szSQL <> "" then szSQL=replace(szSQL,"[BaseInfo]","["&szTableName&"]") Set rs = Server.CreateObject("ADODB.RecordSet") rs.open szSQL,Conn,1,1 iMaxPage = Int((iRecordCount+iRows-1)/iRows) if iRecordCount > 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%>');</script><script src="default.js"></script></HTML>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -