📄 newseditlist.aspx
字号:
<!--
在系统管理时，提供对新闻页的修改及删除。本页以列表的形式显示每条新闻
的标题、更新时间，对于删除操作，可以在本页中直接进行。而修改操作，本
页只是提供一个到链接newsmodify.aspx的链接，并为该链接提供一个id参数，
访id指向相应新闻的id字段。(当然DataGrid数据表也提供了修改模板，但由于
本页中对于新闻来说，需要输入较多的数据，用DataGrid数据表模板的形式来
修改数据显得不太直观。)
-->
<!--
通过本例积累的经验：
１、在DataGrid控件中使用非ButtconColumn及EditCommandColumn而使用item模板自定义控件。
2、在相应的事件中，使用DataGrid控件所设置的DataKeyField字段中的值来得到用户所选择行
中的关键字段值。
-->
<%@ Page Language="VB" ContentType="text/html" debug="true" %>
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<%@ Import Namespace="system.io" %>
<!--#include file="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">
<input type="hidden" runat="server" id="zfilter">
<input type="hidden" runat="server" id="zdelid">
<table width="549" cellpadding="0" cellspacing="0">
<tr>
<td><table width="549" height="22" border="0" cellpadding="0" cellspacing="0" background="../pic/002.png">
<tr>
<td width="222"><font color="#FFFFFF"><strong> 文章编辑列表</strong></font></td>
<td width="11"> </td>
<td width="359"><div align="right"><strong><a href="newsadd.aspx"><img src="../pic/inboxnonew.gif" width="16" height="16" border="0"><font color="#FFFFFF">继续添加</font></a> </strong></div></td>
</tr>
</table></td>
</tr>
</table>
<table width="549" height="380" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#008080" bordercolordark="#FFFFFF" bgcolor="#FFFFFF">
<tr>
<td height="99" valign="top">
<asp:datagrid runat="server" ID="mygrid"
DataKeyField="id"
AutoGenerateColumns="false"
AllowPaging="true"
PageSize="10"
OnPageIndexChanged="zscpage"
Width="98%"
BorderColor="#cccccc"
OnDeleteCommand="dodelete"
oneditcommand="doedit"
HorizontalAlign="Center"
>
<headerstyle HorizontalAlign="center" Font-Bold="true" Font-Size="12" />
<pagerstyle Mode="Numericpages" HorizontalAlign="right" PageButtonCount="10" />
<itemstyle HorizontalAlign="center" />
<columns>
<asp:templatecolumn HeaderText="标题" ItemStyle-HorizontalAlign="left">
<itemtemplate>
<img src="../pic/multipage.gif"> <%# container.dataitem("otitle") %>
</itemtemplate>
</asp:templatecolumn>
<asp:boundcolumn DataField="odate" HeaderText="日期"
ItemStyle-HorizontalAlign="center" DataFormatString="{0:d}" />
<asp:templatecolumn HeaderText="操作" ItemStyle-HorizontalAlign="center">
<itemtemplate>
<asp:linkbutton ID="zedit" CommandName="edit" runat="server" Text="编辑" /> <asp:linkbutton CommandName="delete" ID="zdel" runat="server" Text="删除" />
</itemtemplate>
</asp:templatecolumn>
</columns>
</asp:datagrid>
<asp:button runat="server" ID="zdeltrue" OnClick="zscdeltrue" text="" BackColor="#FFFFFF" BorderColor="#FFFFFF" BorderStyle="None" />
<asp:button runat="server" ID="zhidelabel" OnClick="zschidelabel" text="" BackColor="#FFFFFF" BorderColor="#FFFFFF" 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>
</td>
</tr>
</table>
<table width="549" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="89" height="16"> </td>
<td width="404"> 标题：
<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" /> </td>
<td width="56"> </td>
</tr>
</table>
</form>
</body>
</html>
<script language="VB" runat="server">
sub page_load()
if not ispostback then
if not (checkqx("c")) then response.redirect("error.aspx")
bindlist()
end if
end sub
sub bindlist()
'为DataGrid控件绑定数据
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 id,otitle,odate from news order by odate DESC",conn)
'选择新闻表(news)中相应的字段
dim ds as new dataset()
objada.fill(ds,"news")
dim dv as new dataview(ds.tables("news"))
dv.rowfilter=zfilter.value
mygrid.datasource=dv
mygrid.databind()
'绑定数据
conn.close()
end sub
sub zscpage(s as object,e as DataGridPageChangedEventArgs)
'提供对DataGrid控件的翻页功能
s.currentpageindex=e.newpageindex
bindlist()
end sub
sub dodelete(s as object,e as DataGridCommandEventArgs)
zdelid.value=s.datakeys(e.item.itemindex)
showhidescript.visible=true
'删除用户所选择的相应数据
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("select ofilename from news where id=" & zdelid.value,conn)
dim objrd as oledbdatareader=objcmd.executereader()
if objrd.read() then
'如果找到相关记录
if objrd("ofilename")<>"N/S"
'如果有附件
dim lsfile as string
lsfile=session("shareuppath") & objrd("ofilename")
if file.Exists(lsfile) then
file.delete(lsfile)
end if
end if
end if
objrd.close()
objcmd=new oledbcommand("delete from news where id=" & zdelid.value ,conn)
'为command对象设置SQL字串。
objcmd.executenonquery()
conn.close()
showhidescript.visible=false
bindlist()
end sub
sub zschidelabel(s as object,e as eventargs)
showhidescript.visible=false
end sub
sub doedit(s as object,e as DataGridCommandEventArgs)
'得到用户要编辑的数据行id字段的值，并转向到编辑新闻页(newsmodify.aspx)
dim lskey as integer=s.datakeys(e.item.itemindex)
response.redirect("newsmodify.aspx?id=" & lskey)
end sub
sub zscfind(s as object,e as eventargs)
if zfindkey.text="" then
zfilter.value=""
else
zfilter.value="otitle like '%" & zfindkey.text & "%'"
end if
bindlist()
end sub
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -