📄 guest.aspx
字号:
<%@ Page Language="vb" Debug="true" %>
<%@ Register TagPrefix="CC" TagName="Header" Src="Header.ascx" %>
<%@ Register TagPrefix="FF" TagName="Footer" Src="Footer.ascx" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">
Sub Page_Load(Source As Object, E As EventArgs)
Dim myConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=" & server.mappath("database\EmplDir.mdb"))
Dim myAdapter As New OleDbDataAdapter
Dim myOleDbCommandBuilder As OleDbCommandBuilder = New OleDbCommandBuilder(myAdapter)
Dim DS As DataSet = New DataSet
myAdapter.SelectCommand = new OleDbCommand("select ID, 标题, 署名, ip地址 from Guest order by id desc", myconn)
myconn.open()
myAdapter.Fill(ds, "Guest")
ml.DataSource=ds.Tables("Guest").DefaultView
ml.DataBind()
end sub
Sub Submit_Click(Source As Object, E As EventArgs)
Dim myConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=" & server.mappath("database\EmplDir.mdb"))
Dim myInsertQuery As String = "insert into guest (标题, 署名, 正文, ip地址) values ('" & title.text & "', '" & name.text & "', '" & body.text & "', '" & Request.UserHostAddress.ToString() & "')"
Dim myOleDbCommand As New OleDbCommand(myInsertQuery)
myOleDbCommand.Connection = myConn
myConn.Open()
myOleDbCommand.ExecuteNonQuery()
myOleDbCommand.Connection.Close()
Response.Redirect("guest.aspx")
end sub
</script>
<html>
<head>
<title>留言本</title>
<link href="home.css" type="text/css" rel="stylesheet" />
</head>
<body>
<CC:Header id="Header" runat="server"/>
<table align="center" width="600">
<tr valign="top" align="center">
<td>
<ASP:DataGrid id="ml" Width="580" BorderColor="black" ShowFooter="false" CellPadding="4" CellSpacing="0" Font-Name="宋体" Font-Size="9pt" HeaderStyle-BackColor="#e8f4ff" EnableViewState="false" runat="server">
<HeaderStyle backcolor="#e8f4ff"></HeaderStyle>
<Columns>
<asp:HyperLinkColumn Text="详细内容" DataNavigateUrlField="id" DataNavigateUrlFormatString="see.aspx?id={0}"></asp:HyperLinkColumn>
</Columns>
</ASP:DataGrid>
</br>
<form method="post" runat="server">
<table id="Paste_holder" runat="Server" border="0" cellspacing="1" cellpadding="0" width="100%" class="tableBorder1">
<tr>
<th background="images/bg1.gif" align=center height=25 style="font-weight:normal">
<asp:label id="EmpMonthForm_Title" runat="server">-= 我要留言 =-</asp:label></th>
</tr>
<tr><td bgcolor="#FFFFFF"><table>
<tr><td width="35%">标题:</td>
<td>
<asp:TextBox id="title" MaxLength="25" CssClass="input1" Runat="server"></asp:TextBox>
(**)
<asp:RequiredFieldValidator id="RequiredFieldValidator1" runat="server" ErrorMessage="此项不能为空" ControlToValidate="title"></asp:RequiredFieldValidator>
</td></tr>
<tr><td>署名:</td>
<td>
<asp:TextBox id="name" MaxLength="25" CssClass="input1" Runat="server"></asp:TextBox>
(**)
<asp:RequiredFieldValidator id="RequiredFieldValidator2" runat="server" ErrorMessage="此项不能为空" ControlToValidate="name"></asp:RequiredFieldValidator>
</td></tr>
<tr><td>内容:</td>
<td>
<asp:TextBox id=body TextMode="Multiline" Height="50" runat="server"></asp:TextBox>
</td></tr>
<tr><td>
<asp:button Text="提交" OnClick="Submit_Click" runat=server/></td></tr></table></td></tr>
</table></form>
</td></tr></table>
<center>
<FF:Footer id="Footer" runat="server"/></center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -