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 & _
				"<tr height=20 bgcolor=white>" & vbLF & _
				"	<td onclick=""window.open('post_e.asp?post_id=" & sPostId & "&', '', 'width=350,height=124,top=300,left=300');"" style=""color:blue;cursor:hand"">&nbsp;<img border=0 src=""../images/bg/ar-g.gif"">&nbsp;" & sPostName & "</td>" & vbLF & _
				"	<td align=center style=""color:black"">" & sAccountId & "</td>" & vbLF & _
				"	<td align=center style=""color:black"">" & sEmpName & "</td>" & vbLF & _
				"</tr>" & vbLF
		rs.movenext
	wend
	crs.Close()
	PostListDetail = _
		"<table width=""100%"" cellspacing=1 cellpadding=2 bgcolor=#efefef style=""border-style:dotted;table-style:fixed"">" & vbLF & _
		"<tr height=25 bgcolor=white><td colspan=3 align=center style=""font-size:11pt;font-weight:600;color:navy"">特殊角色与用户对应表</td></tr>" & vbLF & _
		"<tr height=1 bgcolor=white>" & vbLF & _
		"	<td width=100></td>" & vbLF & _
		"	<td width=80></td>" & vbLF & _
		"	<td width=""*""></td></tr>" & vbLF & _
		"<tr height=25 bgcolor=white>" & vbLF & _
		"	<td align=center style=""font-weight:600"">角色名称</td>" & vbLF & _
		"	<td align=center style=""font-weight:600"">对应登录名</td>" & vbLF & _
		"	<td align=center style=""font-weight:600"">对应人员</td></tr>" & vbLF & _
		"<tr height=20 bgcolor=white style=""color:gray"">" & vbLF & _
		"	<td>　&nbsp;系统管理员</td>" & vbLF & _
		"	<td align=center>admin</td>" & vbLF & _
		"	<td align=center>（所有知道admin密码的人）</td></tr>" & vbLF & _
		sTemp & _
		"</table>" & 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 & _
				"<tr height=10><td></td></tr>" & vbLF & _
				"<tr height=20>" & vbLF & _
				"	<td id=post class=shadow2 style=""cursor:hand""" & _
							" onmouseover=""ShowPostDesp(" & sPostId & ")""" & _
							" onclick=""window.open('post_e.asp?post_id=" & sPostId & "&', '', 'width=350,height=124,top=300,left=300');"">&nbsp;<img border=0 src=""../images/bg/ar-g.gif"">&nbsp;" & sPostName & "</td>" & vbLF & _
				"</tr>" & vbLF
		rs.movenext
	wend
	crs.Close()

	sTemp = _
		"<table cellspacing=0 cellpadding=0 width=""100%"" height=400 align=center border=0 style=""table-layout:fixed"">" & _
		"<tr height=20><td style=""font-size:11pt;font-weight:600"" class=shadow1><img border=0 src=""pro.gif""><img border=0 width=3>特殊角色</td></tr>" & _
		"<tr height=15><td></td></tr>" & vbLF & _
		"<tr height=15>" & vbLF & _
		"	<td id=post class=shadow2 style=""cursor:hand""" & _
				" onmouseover=""ShowPostDesp(0)""" & _
				"style=""color:red"">&nbsp;<img border=0 src=""../images/bg/ar-g.gif"">&nbsp;系统管理员</td>" & vbLF & _
		"</tr>" & vbLF & _
			sTemp & _
		"<tr height=""*""><td></td></tr>" & vbLF & _
		"</table>"

	SpecialPostList = sTemp
End Function


Function TableLink()
	TableLink = _
		"<table width=600 cellspacing=0 cellpadding=0 border=0 align=center>" & _
		"<tr height=10>" & _ 
		"	<td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & _
		"</tr>" & _
		"<tr height=20>" & _
		"	<td width=600>&nbsp;" & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""../role/list_user.asp"">用户管理</a>" & _
		"		&nbsp;&nbsp;&nbsp;" & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""../role/list_role.asp"">角色管理</a></td>" & _
		"</tr>" & _
		"</table>"
End Function
%>