rights.asp

来自「投资管理系统, asp+ mssql server」· ASP 代码 · 共 65 行

				  <table width="72%" border="0" cellspacing="0" cellpadding="0" height="168" align="center">
					<%
					set rs1=Server.CreateObject("ADODB.RecordSet")
					
						rs1.open "select Rkey from tblUserRights where FileName like '../Project/Project.asp'",conn,1,1
						if not rs1.eof then
							rightkey=trim(rs1("Rkey"))
							if instr(r_Rights,rightkey)>=1 then
					%>
                    <tr>
                      <td align="center" valign="middle" height="68"><a href="../Project/Project.asp"><img src="../image/proj.gif" width="52" height="65" border="0"></a></td>
                    </tr>
					<%
							end if
						end if
						rs1.close

						rs1.open "select Rkey from tblUserRights where FileName like '../Attribute/Attribute.asp'",conn,1,1
						if not rs1.eof then
							rightkey=trim(rs1("Rkey"))
							if instr(r_Rights,rightkey)>=1 then					
					%>
                    <tr>
                      <td align="center" valign="middle" height="80"><a href="../Attribute/Attribute.asp"><img src="../image/att.gif" width="52" height="63" border="0"></a></td>
                    </tr>
					<%
							end if
						end if
						rs1.close

						rs1.open "select Rkey from tblUserRights where FileName like '../Unit/Unit.asp'",conn,1,1
						if not rs1.eof then
							rightkey=trim(rs1("Rkey"))
							if instr(r_Rights,rightkey)>=1 then
							%>
								<tr>
								 <td align="center" valign="middle" height="81"><a href="../Unit/Unit.asp"><img src="../image/adduser.gif" width="52" height="66" border="0"></a></td>
								</tr>
							<%		
							else
							%>
								<tr>
								 <td align="center" valign="middle" height="81"><a href=# onclick="javascript:window.open('../User/UpdatePwd.asp','UpdatePwd','top=188,left=146,width=500,height=220')"><img src="../image/adduser.gif" width="52" height="66" border="0"></a></td>
								</tr>
							<%	
							end if
						end if
						rs1.close

						rs1.open "select Rkey from tblUserRights where FileName like '../YeZhu/index.asp'",conn,1,1
						if not rs1.eof then
							rightkey=trim(rs1("Rkey"))
							if instr(r_Rights,rightkey)>=1 then					
					%>
                    <tr>
                      <td align="center" valign="middle" height="80"><a href="../YeZhu/index.asp"><img src="../image/yezhu.gif" width="52" height="63" border="0"></a></td>
                    </tr>
					<%
							end if
						end if
						rs1.close
					set rs1=nothing
					%>
                  </table>