?? default.asp
字號(hào):
<!-- #include virtual="/eB3KTransaction.asp" --><!-- #include file="../Common.asp" --><!-- #include virtual="/Server/resProductStock.asp" --><HTML>
<HEAD><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><script src="/Client/ebComm.js"></script></HEAD>
<script src="/client/Request.js"></script>
<script src="/client/IClient.js"></script>
<BODY></BODY>
<%
dim szErrorOut,cTotalAmount
szErrorOut=""
cTotalAmount = 0
function bdAuditTitle(bdType, szTableName, rsBD)
rsBD("Cost") = cTotalAmount
rsBD("Auditor") = Owner
bdAuditTitle=0
end function
function bdAuditList(bdType, szTableName, rsBD, rsBDList)
rsBDList("AuditCost")=rsBDList("Price")
rsBDList("AuditQuantity")=rsBDList("Quantity")
rsBDList("AuditAmount")=rsBDList("AuditCost")*rsBDList("AuditQuantity")
InStock rsBD("Stock"), rsBD, rsBDList
cTotalAmount=cTotalAmount+rsBDList("Amount")
bdAuditList=0
end function
dim x,bdid,eBD
bdid=0
x=0
if IsNumeric(request("ID")) then
bdid=request("ID")
Set eBD = Server.CreateObject("eB3KCommon.BillDocument")
x = eBD.bdAudit(bdid, CLng(bdType), me)
set eBD = Nothing
end if
%>
<script>
IClient('data','<%=x%>');
IClient('end','');
</script>
</HTML>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -