📄 default.asp

📁 进销存软件源代码

💻 ASP

字号:

<!-- #include virtual="/eB3KTransaction.asp" -->
<!-- #include virtual="/Server/ebo.asp" -->
<!-- #include virtual="/Server/cblib.asp" -->
<!-- #include file="../Common.asp" -->
<HTML>
<script src="/client/Request.js"></script>
<script src="/client/IClient.js"></script>
<BODY>
<% 
'Variable Declare
dim eBI, x, biid
dim Area,Detail
	Area=Clng(GetForm("Area"))
	Detail=Clng(GetForm("Detail"))

biid=0
if IsNumeric(GetForm("ID")) then
	biid=Clng(GetForm("ID"))
end if
'End
'if Cstr(biid)="0" then 
 '   dim szSQL,rsCheck
 '   szSQL="Select Count(*) as rc From biprivilege Where InfoType=14 and Int2="&Area&" and 'Int3="&Detail
 '   rsCheck=Conn.Execute(szSQL)
  '  if rsCheck("rc")<>0 then err.raise 10000,"Priviledge.Save", "区域与权限已经存在！！！"
   ' set rsCheck=nothing
'end if
'eboReg
eboReg 1,"Name","Title","","cbRSDirectNotNullCheck"
eboReg 1,"Name","SearchCode1","","cbRSDirectPy"
eboReg 1,"Memo","MemoInfo","","cbRSDirect"
eboReg 1,"AccountID","AccountID","","cbLocalVariable"
eboReg 1,"Owner","Owner","","cbLocalVariable"

eboReg 1,"AreaType","int1","","cbRSIntNotNullCheck"
eboReg 1,"Area","int2","","cbRSIntNotNullCheck"
eboReg 1,"Detail","int3","","cbRSIntNotNullCheck"

'End

function biSave(biType, biTableName, rsBI)
	eboSet 1, rsBI, nothing
end function

Set eBI = Server.CreateObject("eB3KCommon.BaseInfo")
x = eBI.biSave(biid, CLng(biType), me)
if CStr(x)="0" then err.raise 10000,"Privilege.Save", eBI.GetLastError()
set eBI = Nothing
%>
</BODY>
<script>
var data=new Array('<%=x%>');
IClient('data',data);
IClient('end','');
</script>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -