📄 noteshow.aspx

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

<body  bgcolor="#CCCCCC">
<form runat="server">
<input type="hidden" id="zfilter" runat="server">
<input type="hidden" id="zdelid" runat="server">
<table width="549" height="24" border="0" cellpadding="0" cellspacing="0" background="../pic/002.png">
  <tr> 
    <td width="332"><strong>&nbsp;&nbsp;&nbsp;&nbsp;<font color="#FFFFFF">记事提醒</font></strong></td>
    <td width="61"><a href="noteadd.aspx"><strong><font color="#FFFFFF"><img src="../pic/inboxnonew.gif" width="16" height="16" border="0">&nbsp;添加</font></strong></a></td>
    <td width="144"><img src="../pic/m_issend_2.gif" width="19" height="14"><a href="noteshowontime.aspx"><strong>&nbsp;<font color="#FFFFFF">今日提醒</font></strong></a></td>
    <td width="12">&nbsp;</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"
			 HorizontalAlign="Center"
			 BorderColor="#CCCCCC"
			 Width="98%"
			 OnEditCommand="zscedit"
			 OnDeleteCommand="zscdel"
			 >
			 <headerstyle Font-Bold="true" HorizontalAlign="center" />
			 <itemstyle HorizontalAlign="center" />
			 <pagerstyle Mode="numericpages" PageButtonCount="5" HorizontalAlign="right" />
			 <columns>
			 	<asp:templatecolumn HeaderText="主题" ItemStyle-HorizontalAlign="left">
					<itemtemplate>
					&nbsp;<img src="../pic/m_news.gif">&nbsp;<a href="#" onClick='javascript:window.open("noteviwe.aspx?id=<%# container.dataitem("id") %>","_blank","scrollbars=yes,width=566,height=410")'><%# container.dataitem("mytitle") %></a>
					</itemtemplate>
				</asp:templatecolumn>
				<asp:boundcolumn DataField="mytime" HeaderText="添加时间" />
				<asp:boundcolumn DataField="showtx" HeaderText="提醒" />
				<asp:templatecolumn HeaderText="操作">
					<itemtemplate>
						<asp:linkbutton runat="server" Text="编辑" CommandName="edit" />
						&nbsp;
						<asp:linkbutton runat="server" Text="删除" CommandName="delete" />
					</itemtemplate>
				</asp:templatecolumn>
				
			 </columns>
		</asp:datagrid>
              <div align="center">主题 
                <asp:textbox BorderStyle="solid" BorderWidth="1" Font-Size="10" ID="findkey" runat="server" TextMode="SingleLine" />
                <asp:dropdownlist ID="zfindtype" runat="server">
					<asp:listitem>按主题</asp:listitem>
					<asp:listitem>按内容</asp:listitem>
				</asp:dropdownlist>
                <asp:button Font-Size="10" ID="zfind" runat="server" Text="搜索" OnClick="zscfind" />
              </div>
		</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.all("zdeltrue").click()
		 } else {
			document.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 conn as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../office.mdb"))
		conn.open()
		dim uinfo()=session("lguinfo")
		dim objada as new oledbdataadapter("select * from notebook where myid=" & uinfo(0),conn)
		dim ds as new dataset()
		objada.fill(ds,"notebook")
		dim dt as datatable=ds.tables("notebook")
		dt.columns.add(new DataColumn("showtx",gettype(string)))
		'增加新列，显示提醒列
		dim i as integer
		for i=0 to dt.rows.count-1
			if datevalue(now())=datevalue(dt.rows(i)("outtime")) then
				dt.rows(i)("showtx")="<img src='../pic/m_issend_2.gif' width='19' height='14'>"
			else
				dt.rows(i)("showtx")=""
			end if
		next
		dim dv as new dataview(dt)
		dv.rowfilter=zfilter.value
		mygrid.datasource=dv
		mygrid.databind()
		conn.close()
	end sub
	sub zscedit(s as object,e as DataGridCommandEventargs)
		response.redirect("notemodify.aspx?id=" & 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 notebook where id=" & zdelid.value,conn)
		objcmd.executenonquery()
		conn.close()
		showhidescript.visible=false
		bindlist()
	end sub
	sub zschidelabel(s as object,e as eventargs)
		showhidescript.visible=false
	end sub
	sub zscpage(s as object,e as DataGridPageChangedEventargs)
		s.currentpageindex=e.newpageindex
		bindlist()
	end sub
	sub zscfind(s as object,e as eventargs)
		if findkey.text="" then
			zfilter.value=""
		else
			if zfindtype.selecteditem.text="按主题"
				zfilter.value="mytitle like '%" & findkey.text & "%'"
			else
				zfilter.value="mycontent like '%" & findkey.text & "%'"
			end if
		end if
		mygrid.currentpageindex=0
		bindlist()
	end sub
</script>
⌨️ 快捷键说明

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