_lib.asp

来自「java的一个网上商店的源码,后台是Access数据库.功能还可以.界面比较简单」· ASP 代码 · 共 28 行

<!-- #include virtual="/_config/config.asp" -->
<!-- #include virtual="/_lib/_lib.asp" -->
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'	与用户管理有关的变量、函数定义
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

'--取得用户管理员的邮箱---
function getUsrManagerEmail(byref oConn)
	dim sqlt,rst,temp
	temp=""
	sqlt="select usr_email from userinfo where usr_level&" & sUser_Level & "<>0 and usr_delflag='N'"
	set rst=oConn.execute(sqlt)
	if not rst.eof then 
		do while not rst.eof 
			temp=";" & rst(0) & temp
			rst.movenext
		loop
		getUsrManagerEmail=mid(temp,2)
	else
		getUsrManagerEmail=sUsrLevel_email
	end if
	rst.close
	set rst=nothing
end function

%>