📄 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,AccID

biid=0
if IsNumeric(GetForm("ID")) then
	biid=Clng(GetForm("ID"))	
end if
'End

'eboReg
eboReg 1,"Name","Title","","cbRSSearchCodeCheck"
eboReg 1,"newPassword","Nvarchar1","","cbRSDirect"
eboReg 1,"Name","SearchCode1","","cbRSDirectPy"

eboReg 1,"AccID","AccountID","","cbRSDirect"


'End

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

function cbRSSearchCodeCheck(fun, eboitem, rs, rsList)
		dim szSQL,rsCheck
		if Trim(SQLInputParam(GetForm(eboitem.ServerSideName)))="" then err.Raise 10000,"cbRSSearchCodeCheck","必填项目为空！"
		
		szSQL="SELECT COUNT(*) AS rc FROM [biUser] WHERE IsDeleted=0 AND AccountID=" & AccountID & " AND [ID] <> "&biid&" AND Title='"& Trim(SQLInputParam(GetForm(eboitem.ServerSideName)))&"'"
		rsCheck=Conn.Execute(szSQL)
		if rsCheck("rc")=0 then
			rs(eboitem.FieldName)=GetForm(eboitem.ServerSideName)
		else
		   	err.Raise 10000,"cbRSSearchCodeCheck","操作员名称重复！"
		end if	
end function

if biid<>0 then'修改
	dim szSQL,szCheck
	szSQL="SELECT COUNT(*) as rc FROM [biUser] WHERE AccountID="& AccountID &" AND ID="& biid &" AND Nvarchar1='"& CStr(GetForm("oldPassword")) &"'"
	szCheck=conn.Execute(szSQL)
	if szCheck("rc")=0 then'旧密码错误
		if Clng(Owner)=Clng(biid) then
			err.raise 10000,"User.Check", "旧密码错误！"
		else
			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),16,me)
				if CStr(y)<>"0" then err.raise 10000,"System", eBP.GetLastError()
			end if
		end if		
	end if
end if

Set eBI = Server.CreateObject("eB3KCommon.BaseInfo")
x = eBI.biSave(biid, CLng(biType), me)
if CStr(x)="0" then err.raise 10000,"User.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 + -