📄 admin_edit.aspx
字号:
<%@ Page Language="VB" ContentType="text/html" Debug="true" %>
<%@ Register TagPrefix="admin" TagName="menu" Src=".../lib/adminmenu.ascx" %>
<%@ import Namespace="system.data" %>
<%@ import Namespace="system.data.oledb" %>
<script runat="server">
Function getconcentgird() As System.Data.IDataReader
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=" & Server.MapPath("../data/date.mdb")
Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)
Dim queryString As String = "SELECT [corn].[corn_tittle], [corn].[corn_id] FROM [corn]"
Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
dbConnection.Open
Dim dataReader As System.Data.IDataReader = dbCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
Return dataReader
End Function
Sub Button1_Click(sender As Object, e As Eventargs)
'使用 Connection 对象打开Access 数据库
Dim objConn As New OleDbConnection()
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("../data/date.mdb")
objConn.Open()
'创建 Command 对象，并执行 SQL 的 Update 命令
Dim strSQL = "Update corn Set corn_tittle='" & txttittle.text & "', corn_img='" & _
myfile.postedfile.filename & "',corn_content='" & txtcontent.text & "', Where corn_id='" & txtid.Text
Dim objCmd As New OleDbCommand(strSQL, objConn)
objCmd.ExecuteNonQuery()
objConn.Close()
End Sub
Sub Page_Load()
Repeater1.DataSource =getconcentgird()
Repeater1.DataBind()
End Sub
</script>
<html>
<head>
<title>文章管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="../site_css.css" type="text/css" rel="stylesheet" />
</head>
<body>
<form runat="server">
<table cellspacing="0" cellpadding="0" width="100%" align="center" border="1">
<tbody>
<tr>
<td colspan="3" height="8">
</td>
</tr>
<tr>
<td valign="top" align="left" width="150">
<ADMIN:MENU id="UserControl1" runat="server"></ADMIN:MENU>
<p>
</p>
<p>
</p>
</td>
<td width="1">
</td>
<td valign="top" width="554">
<div align="center"><a href="ADMIN_MASSAGE.ASPX">新增内容</a> <a href="ADMIN_edit.ASPX">编辑内容</a> <a href="admin_addtype.aspx">新增类型</a>
<br />
<hr width="400" color="#b0c4de" />
</div>
<div align="center">
<asp:Repeater id="Repeater1" runat="server">
<itemtemplate>
<table>
<tr>
<td>
<%# container.dataitem("corn_id")%></td>
<td>
<%# container.dataitem("corn_tittle")%>
</td>
<td></td>
</tr>
</table>
</itemtemplate>
</asp:Repeater>
<p>
<hr width="400" color="#b0c4de" />
</p>
编号:<asp:TextBox ID="txtid" runat="server" />
<p>
</p>
</div>
<div align="center">
</div>
<div align="center">标题:<asp:TextBox id="txttittle" runat="server" Width="311px"></asp:TextBox>
</div>
<p align="center">
图片:
<input id="myfile" type="file" size="25" runat="server" />
</p>
<p>
</p>
<p>
</p>
<p>
</p>
<div align="left">
<br />
内容:<br />
</div>
<div align="center">
<asp:TextBox id="txtcontent" runat="server" Width="363px" TextMode="MultiLine" Height="248px"></asp:TextBox>
</div>
<div align="left">
<br />
</div>
<div align="center">
<ASP:Button id="Button1" Text="更新" Runat="Server" OnClick="Button1_Click"></ASP:Button>
</div>
</td>
</tr>
</tbody>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -