📄 listtel.aspx

📁 一个完整的办公自动化源码,免费提供给大家下载
💻 ASPX
字号:
<%@ Page Language="VB" ContentType="text/html" debug="true" %>
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<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">
<input type="hidden" runat="server" id="zfilter">
<input type="hidden" runat="server" id="zdelid">
<table width="549" height="22" border="0" cellpadding="0" cellspacing="0" background="../pic/002.png">
  <tr> 
    <td>
<table width="100%" height="22" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="31%"><font color="#FFFFFF"><strong>&nbsp;&nbsp;&nbsp;&nbsp;通信录列表</strong></font></td>
          <td width="44%">&nbsp;</td>
            <td width="25%"><a href="addtel.aspx"><strong><font color="#FFFFFF"><img src="../pic/inboxnonew.gif" width="16" height="16" border="0">添加</font></strong></a> 
            </td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="549" height="400" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#008080" bordercolordark="#FFFFFF">
  <tr> 
    <td width="548" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        
        <tr>
            <td> <div align="center">
                <asp:datagrid runat="server" ID="mygrid"
				  DataKeyField="tid"
				 AutoGenerateColumns="false"
				 AllowPaging="true"
				 PageSize="15"
				 OnPageIndexChanged="zscpage"
				 HorizontalAlign="Center"
				 BorderColor="#cccccc"
				 Width="98%"
				 OnEditCommand="zscedit"
				 OnDeleteCommand="zscdel"
				>
				<headerstyle HorizontalAlign="center" Font-Bold="true" />
				<itemstyle HorizontalAlign="center" />
				<pagerstyle Mode="numericpages" PageButtonCount="5" HorizontalAlign="right" />
				<columns>
                    <asp:templatecolumn HeaderText="姓名" ItemStyle-HorizontalAlign="left">
						<itemtemplate>
                        &nbsp;<img src="../pic/m_issend_1.gif" width="20" height="15">&nbsp; 
                        <a href=# onclick="window.open('moretel.aspx?tid=<%# container.dataitem("tid") %>','','scrollbars=yes,width=567,height=400')">
                        <%# container.dataitem("tname") %>
                        </a> </itemtemplate>
					</asp:templatecolumn> 
                    <asp:templatecolumn HeaderText="部门/职务" ItemStyle-HorizontalAlign="left">
						<itemtemplate>
                        &nbsp;
                        <%# container.dataitem("tbumeng") %>
                        </itemtemplate>
					</asp:templatecolumn> 
                    <asp:boundcolumn DataField="tdianhua" HeaderText="电话" /> 
                    <asp:templatecolumn HeaderText="操作" >
						<itemtemplate>
                        <asp:linkbutton runat="server" Text="编辑" CommandName="edit" />
                        <asp:linkbutton runat="server" Text="删除" CommandName="delete" />
                        </itemtemplate>
					</asp:templatecolumn> </columns>
			</asp:datagrid>姓名: 
                <asp:textbox BorderStyle="solid" BorderWidth="1" Font-Size="10" ID="zfindkey" runat="server" TextMode="SingleLine" />
                <asp:button Font-Size="10" ID="zfind" runat="server" Text="查询" OnClick="zscfind" />
              </div></td>
        </tr>
      </table>
      
    </td>
  </tr>
</table>
<asp:button runat="server" ID="zdeltrue" OnClick="zscdeltrue" text="" BackColor="#CCCCCC" BorderColor="#CCCCCC" BorderStyle="None" />
<asp:button runat="server" ID="zhidelabel" OnClick="zschidelabel" text=""  BackColor="#CCCCCC" BorderColor="#CCCCCC" BorderStyle="None" />
<asp:label runat="server" ID="showhidescript" Visible="false">
	<script language="JavaScript" type="text/javascript">
		if (confirm("真的要删除这条记录吗？"))
		 {
		 	document.forms[0].all("zdeltrue").click()
		 } else {
		 	document.forms[0].all("zhidelabel").click()
		 }
	</script>
</asp:label>
</form>
</body>
</html>
<script language="vb" runat="server">
	sub page_load(s as object,e as eventargs)
		if not ispostback then bindlist()
	end sub
	sub bindlist()
		dim oinfo()=session("lguinfo")
		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 tele where tsession='" & oinfo(0) & "' order by tid desc",conn)
		dim ds as new dataset()
		objada.fill(ds,"tele")
		dim dv as new dataview(ds.tables("tele"))
		dv.rowfilter=zfilter.value
		mygrid.datasource=dv
		mygrid.databind()
		conn.close()
	end sub
	sub zscedit(s as object,e as DataGridCommandeventargs)
		response.Redirect("modify.aspx?tid=" & s.datakeys(e.item.itemindex))
	end sub
	sub zscdel(s as object,e as DataGridCommandEventargs)
		zdelid.value=s.datakeys(e.item.itemindex)
		showhidescript.visible=true
	end sub
	sub zscdeltrue(s as object,e as eventargs)
		dim conn as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../office.mdb"))
		conn.open()
		dim objcmd as new oledbcommand("delete from tele where tid=" & zdelid.value,conn)
		objcmd.executenonquery()
		conn.close()
		showhidescript.visible=false
		bindlist()
	end sub
	sub zscpage(s as object,e as DataGridPageChangedEventargs)
		s.currentpageindex=e.newpageindex
		bindlist()
	end sub
	sub zschidelabel(s as object,e as eventargs)
		showhidescript.visible=false
	end sub	
	sub zscfind(s as object,e as eventargs)
		if zfindkey.text="" then
			zfilter.value=""
		else	
			zfilter.value="tname like '%" & zfindkey.text & "%'"
		end if
		bindlist()
	end sub
</script>
⌨️ 快捷键说明

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