?? default.asp
字號(hào):
<!-- #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>
<%
dim eBI, x, biid
biid=Request("ID")
function biUnDelete(biType, biTableName, rsBI)
biUnDelete=0
end function
'恢復(fù)權(quán)限的控制,用撤銷(xiāo)代替
dim testSQL,testrs
testSQL="Select Count(*) as rc From BaseInfoTypeEvent Where Object='Nafine.Privilege' and Method='biPrivilege'"
testrs=Conn.Execute(testSQL)
if testrs("rc")>0 then
dim eBP,y
Set eBP = Server.CreateObject("Nafine.Privilege")
y=eBP.PrivilegeTest(1,Clng(biType),32,me)
if CStr(y)<>"0" then err.raise 10000,"System", eBP.GetLastError()
end if
Set eBI = Server.CreateObject("eB3KCommon.BaseInfo")
x = eBI.biUnDelete(biid, CLng(biType), me)
if CStr(x)="0" then err.raise 10000,"User.UnDelete", eBI.GetLastError()
set eBI = Nothing
%>
</BODY>
<script>
var data=new Array('<%=x%>');
IClient('data',data);
IClient('end','');
</script>
</HTML>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -