📄 userlist.aspx

📁 一个完整的办公自动化源码,免费提供给大家下载
💻 ASPX
字号:
<%@ Page Language="VB" ContentType="text/html" %>
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<html>
<head>
<title>收件人id</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="CSS.CSS" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/javascript">
	function zscreturn(zfid,zfname)
	 {
	 if (window.opener.document.forms[0].zid) {
		 window.opener.document.forms[0].zid.value=zfid
		 }
	 if (window.opener.document.forms[0].znicename) {
		 window.opener.document.forms[0].znicename.value=zfname
		 }
	 window.close()
	 }
</script>
</head>
<form runat="server">
<input type="hidden" id="filterstr" runat="server" >
<body  bgcolor="#CCCCCC">
<table width="549" height="380" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#008080" bordercolordark="#FFFFFF">
  <tr> 
    <td valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td>
		  <asp:datagrid runat="server" ID="mygrid"
		  	 AutoGenerateColumns="false"
			 AllowPaging="true"
			 PageSize="15"
			 OnPageIndexChanged="zscpage"
			 BorderColor="#cccccc"
			 HorizontalAlign="Center"
			 Width="98%"
			>
			<headerstyle Font-Bold="true" HorizontalAlign="center" />
			<itemstyle HorizontalAlign="center" />
			<pagerstyle NextPageText="下一页"  PrevPageText="上一页" HorizontalAlign="right" />
				<columns>
					<asp:templatecolumn HeaderText="收件人ID">
						<itemtemplate>
							<a href="#" onClick="javascript:zscreturn('<%# container.dataitem("id") %>','<%# container.dataitem("orealname") %>')"><%# container.dataitem("id") %></a>
						</itemtemplate>
					</asp:templatecolumn>
				</columns>
				<columns>
					<asp:boundcolumn DataField="orealname" HeaderText="名称" />
				</columns>
				<columns>
					<asp:boundcolumn DataField="oworkroom" HeaderText="部门" />
				</columns>
			</asp:datagrid>
		  </td>
        </tr>
      </table></td>
  </tr>
</table>


<table width="549" border="0" align="left" cellpadding="0" cellspacing="0">
  <tr> 
    <td colspan="3"><table width="69%" height="22" border="0" align="left" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="23%" height="23" align="center"> 
       </td>
    <td width="31%" align="center">  </td>
    <td width="23%" align="center">  </td>
    <td width="23%" align="center">  </td>
  </tr>
</table></td>
  </tr>
  <tr> 
    <td width="29">&nbsp;</td>
    <td width="464"> 按部门 
      <asp:dropdownlist ID="zbmlist" runat="server" />
      <asp:button ID="zbmfl" runat="server" Text="分类" onclick="zscfilter" /> </td>
    <td width="56">&nbsp;</td>
  </tr>
</table>
</form>
</body>
</html>
<script language="VB" runat="server">
	sub page_load(s as object,e as eventargs)
		if not ispostback then 
			friend_list()
			bmlist()
		end if
	end sub
	sub bmlist()
		'列表框显示部门列表
		dim conn as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("office.mdb"))
		conn.open()
		dim objcmd as new oledbcommand("select * from btype",conn)
		dim objrd as oledbdatareader=objcmd.executereader()
		zbmlist.items.add("选择所有部门")
		do while objrd.read()
			zbmlist.items.add(objrd.item("btype"))
		loop
		objrd.close()
		conn.close()
	end sub
	sub friend_list()
		'为当前用户的朋友绑定数据
		dim conn as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("office.mdb"))
		conn.open()
		dim objada as new oledbdataadapter("select * from userinfo ",conn)
		dim ds as new dataset()
		objada.fill(ds,"userinfo")
		dim dt as datatable=ds.tables("userinfo")
		dim dv as new dataview(dt)
		'得到一个DataView对象，为筛选记录做准备
		dv.rowfilter=filterstr.value
		mygrid.datasource=dv
		mygrid.databind()
		conn.close()
	end sub
	sub zscpage(s as object,e as DataGridPageChangedEventArgs)
		s.currentpageindex=e.newpageindex
		friend_list()
	end sub
	sub zscfilter(s as object,e as eventargs)
		'当用户按下“分类”按钮时触发，用来对friend表进行筛选操作
		if zbmlist.selecteditem.text="选择所有部门" then
			filterstr.value=""
		else
			filterstr.value="oworkroom='" & zbmlist.selecteditem.text & "'"
		end if
		friend_list()
	end sub
</script>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -