?? default.asp
字號:
<!-- #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
szErrorOut=""
Function GetDateString(dateval)
GetDateString = CStr(Year(dateval)) & "-" & CStr(Month(dateval)) & "-" & CStr(Day(dateval)) & " " & CStr(Hour(dateval)) & ":" & CStr(Minute(dateval)) & ":" & CStr(Second(dateval))
End Function
function bdAuditUndoTitle(bdType, szTableName, rsBD)
rsBD("Cost") = 0
rsBD("Auditor") = Null
StockUndo rsBD
bdAuditUndoTitle=0
end function
function bdAuditUndoList(bdType, szTableName, rsBD, rsBDList)
rsBDList("AuditCost")=0
rsBDList("AuditQuantity")=0
rsBDList("AuditAmount")=0
bdAuditUndoList=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.bdAuditUndo(bdid, CLng(bdType), me)
set eBD = Nothing
end if
%>
<script>
IClient('data','<%=x%>');
IClient('end','');
</script>
</HTML>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -