📄 admin_massage.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 Languate="VB" Runat="Server">
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 的 Insert 命令
Dim strSQL = "Insert Into corn( corn_tittle, corn_img, corn_content) Values ('" & txttittle.text & _
"', '" & myfile.postedfile.filename & "', '" & txtcontent.text & "')"
Dim objCmd As New OleDbCommand(strSQL, objConn)
objCmd.ExecuteNonQuery()
objConn.Close()
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>
<br />
<hr width="400" color="#b0c4de" />
<p><a href="admin_massage.aspx">玉米版块</a>
<a href="admin_massage2.aspx">甜豆版块</a>
<a href="admin_massage3.aspx">番茄版块</a>
<a href="admin_massage4.aspx">西菜版块</a>
<a href="admin_massage5.aspx">辣椒版块</a> </p>
<p>
</p>
</div>
<div align="center">标题:
<asp:TextBox id="txttittle" runat="server" Width="311px"></asp:TextBox>
</div>
<p>
<div align="center">
<p>
图片：<input type="file" size="25" id="myfile" runat="server" >
</p>
</div>
<div align="left">
<br />
内容:<br />
</div>
<div align="center">
<asp:TextBox id="txtcontent" runat="server" Width="363px" Height="248px" TextMode="MultiLine"></asp:TextBox>
</div>
<div align="left">
<br />
</div>
<div align="center">
<ASP:Button id="Button1" Runat="Server" Text="添加" onclick="Button1_Click"></ASP:Button>
</div>
</td>
</tr>
</tbody>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -