📄 empledit.aspx

📁 一个完整的办公自动化源码,免费提供给大家下载
💻 ASPX
字号:
<%@ Page Language="VB" ContentType="text/html"  %>
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<!--#include file="../../webmaster/ckqx.aspx" -->
<html>
<head>
<title>员工列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../CSS.CSS" rel="stylesheet" type="text/css">
</head>

<body  bgcolor="#CCCCCC">
<form runat="server">
<asp:label runat="server" ID="zsortfield" Visible="false" />
<asp:label runat="server" ID="zfiltfield" Visible="false" />
<table width="549" height="24" border="0" cellpadding="0" cellspacing="0" background="../../pic/002.png">
  <tr> 
    <td><table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
            <td><font color="#FFFFFF"><strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;员工列表，按下各字段标题列进行升/降序切换</strong></font></td>
          <td>&nbsp;</td>
            <td><strong>&nbsp;</strong></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="549" height="400" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#008080" bordercolordark="#FFFFFF">
  <tr> 
    <td valign="top" bgcolor="#FFFFFF">
	<asp:datagrid runat="server" ID="mygrid"
		 DataKeyField="id" 
		 AutoGenerateColumns="false"
		 AllowPaging="true"
		 PageSize="15"
		 OnPageIndexChanged="zscpage"
		 AllowSorting="true"
		 OnSortCommand="zscsort"
		 Width="98%"
		 ItemStyle-HorizontalAlign="center"
		 HorizontalAlign="Center"
		 OnEditCommand="zscedit"
		 OnDeleteCommand="zscdel"
		>
		<headerstyle Font-Bold="true" HorizontalAlign="center" />
		<pagerstyle Mode="numericpages" PageButtonCount="5" HorizontalAlign="right" />
		<columns>
			<asp:hyperlinkcolumn DataNavigateUrlField="ID" DataTextField="name"
				 DataNavigateUrlFormatString="empl.aspx?id={0}" SortExpression ="name"
				 HeaderText ="姓名" />
		</columns>
		<columns>
			<asp:boundcolumn DataField="sex" HeaderText="性别" SortExpression="sex" />
		</columns>
		<columns>
			<asp:boundcolumn DataField="branch" HeaderText="部门" SortExpression="branch" />
		</columns>
		<columns>
			<asp:templatecolumn HeaderText="操作">
				<itemtemplate>
					<asp:linkbutton runat="server" CommandName="edit" Text="编辑" />
					<asp:linkbutton runat="server" CommandName="delete" Text="删除" />
				</itemtemplate>
			</asp:templatecolumn>
		</columns>
	</asp:datagrid>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td>
              <div align="center">按姓名查询
                <asp:textbox BorderStyle="dotted" BorderWidth="1" ID="zname" runat="server" TextMode="SingleLine" />
                <asp:button Font-Size="10" ID="zfind" runat="server" Text="查找" OnClick="zscfind" />
              </div>
            </td>
        </tr>
      </table>
      <p>&nbsp;</p>
      <p>&nbsp;</p>
      <p>&nbsp;</p>
      <p>&nbsp;</p>
      <p>&nbsp;</p></td>
  </tr>
</table>
</form>
</body>
</html>
<script language="VB" runat="server">
	sub page_load(s as object,e as eventargs)
		if not ispostback then 
			if not (checkqx("b")) then response.redirect("../../webmaster/error.aspx")
			bindlist()
		end if
	end sub
	sub bindlist()
		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 personinf",conn)
		dim ds as new dataset()
		objada.fill(ds,"personinf")
		dim dv as new dataview(ds.tables("personinf"))
		mygrid.datasource=dv
		dv.sort=zsortfield.text
		dv.rowfilter=zfiltfield.text
		mygrid.databind()
		conn.close()
	end sub
	sub zscpage(s as object,e as DataGridPageChangedEventArgs)
		s.currentpageindex=e.newpageindex
		bindlist()
	end sub
	sub zscsort(s as object,e as DataGridSortCommandEventArgs)
		if instr(zsortfield.text,"ASC")=0 then
			zsortfield.text=e.sortexpression & " ASC"
		else
			zsortfield.text=e.sortexpression & " DESC"
		end if
		bindlist()
	end sub
	sub zscfind(s as object,e as eventargs)
		if zname.text="" then
			zfiltfield.text=""
		else
			zfiltfield.text="name like '%" & zname.text & "%'"
		end if
		bindlist()
	end sub
	sub zscedit(s as object,e as DataGridCommandEventArgs)
		response.Redirect("emplmodify.aspx?id=" & s.datakeys(e.item.itemindex))
	end sub
	sub zscdel(s as object,e as DataGridCommandEventArgs)
		response.Redirect("empldel.aspx?id=" & s.datakeys(e.item.itemindex))
	end sub
</script>
⌨️ 快捷键说明

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