⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 default.asp

📁 进销存软件源代码
💻 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,cTotalAmount
szErrorOut=""
cTotalAmount = 0

function bdAuditTitle(bdType, szTableName, rsBD)
	rsBD("Auditor") = Owner
	bdAuditTitle=0
end function

function bdAuditList(bdType, szTableName, rsBD, rsBDList)
	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>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -