selfrights.asp

办公自动化系统 适用于办公室的各种几本功能的操作 功能比较简单

<%
Function SelfRights(ID)
	set Rstmp=server.createobject("adodb.recordset")
	Rstmp.open "Select Rights from tblUser where id="& ID, Conn, 1, 1
	if not Rstmp.eof then
		str = trim(Rstmp("Rights"))
	else
		str = ""
	end if
	Rstmp.close
	set Rstmp=nothing
	arrStr=split(str,",")
	strRights="'xxxxx'"
	for I=0 to ubound(arrStr)
		strRights=strRights &",'"& trim(arrStr(I)) &"'"
	next
	SelfRights = strRights
End Function
%>