www.pudn.com > manager050315.rar > specialpost.inc

<% 
'' PostListDetail 
'' SpecialPostList 
 
Function PostListDetail() 
	dim sSQL, crs, rs, sTemp 
	dim sPostId, sPostName, sAccountId, sEmpName 
	sSQL = "select t1.post_id, post_name, account_id, t2.name from T_SpecialPost t1" & _ 
			" left join t_employee t2 on t1.emp_serial = t2.serial" & _ 
			" order by post_id" 
 
	sTemp = "" 
	set crs = New CRecordset 
	set rs = crs.Open(dbLocal, sSQL) 
	while not rs.EOF 
		sPostId			= crs.GetValue("post_id") 
		sPostName		= crs.GetValue("post_name") 
		sAccountId		= crs.GetValue("account_id") 
		sEmpName	= crs.GetValue("name") 
		sTemp = sTemp & _ 
				"" & vbLF & _ 
				"	  " & sPostName & "" & vbLF & _ 
				"	" & sAccountId & "" & vbLF & _ 
				"	" & sEmpName & "" & vbLF & _ 
				"" & vbLF 
		rs.movenext 
	wend 
	crs.Close() 
	PostListDetail = _ 
		"" & vbLF & _ 
		"" & vbLF & _ 
		"" & vbLF & _ 
		"	" & vbLF & _ 
		"	" & vbLF & _ 
		"	" & vbLF & _ 
		"" & vbLF & _ 
		"	" & vbLF & _ 
		"	" & vbLF & _ 
		"	" & vbLF & _ 
		"" & vbLF & _ 
		"	" & vbLF & _ 
		"	" & vbLF & _ 
		"	" & vbLF & _ 
		sTemp & _ 
		"
特殊角色与用户对应表
角色名称
对应登录名
对应人员
　 系统管理员
admin
（所有知道admin密码的人）
" & vbLF 
End Function 
 
Function SpecialPostList() 
	dim sTemp, sPostId, sPostName 
	dim sSQL, crs, rs 
 
	sTemp = "" 
	sSQL = "select post_id, post_name from t_specialpost" 
	set crs = New CRecordset 
	set rs = crs.Open(dbLocal, sSQL) 
	while not rs.EOF 
		sPostId			= crs.GetValue("post_id") 
		sPostName		= crs.GetValue("post_name") 
		sTemp = sTemp & _ 
				"" & vbLF & _ 
				"" & vbLF & _ 
				"	  " & sPostName & "" & vbLF & _ 
				"" & vbLF 
		rs.movenext 
	wend 
	crs.Close() 
 
	sTemp = _ 
		"" & _ 
		"" & _ 
		"" & vbLF & _ 
		"" & vbLF & _ 
		"	" & vbLF & _ 
		"" & vbLF & _ 
			sTemp & _ 
		"" & vbLF & _ 
		"
特殊角色
  系统管理员
" 
 
	SpecialPostList = sTemp 
End Function 
 
 
Function TableLink() 
	TableLink = _ 
		"" & _ 
		"" & _  
		"	" & _ 
		"" & _ 
		"" & _ 
		"	" & _ 
		"" & _ 
		"
 " & _ 
		"		 用户管理" & _ 
		"		   " & _ 
		"		 角色管理
" 
End Function 
%>