📄 add.aspx
字号:
<%@ Page Language="VB" Debug="True" %>
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<html>
<head>
<title>GuestBook</title>
</head>
<body bgcolor="#FFFFFF">
<Form runat="server">
<H2>write</H2>
<HR>
<table>
<tr>
<td>name:</td><td>
<asp:TextBox runat="server" id="BOOK_NAME" Size=20 />
</td>
</tr>
<tr>
<td>email:</td><td>
<asp:TextBox runat="server" id="BOOK_EMAIL" />
<asp:RequiredFieldValidator runat="server" Text="（必须输入字段）" ControlToValidate="BOOK_EMAIL" EnableClientScript="False" />
<asp:RegularExpressionValidator runat="server" Text="（必须含有@）" ControlToValidate="BOOK_EMAIL" ValidationExpression=".{1,}@.{3,}" EnableClientScript="False" Display="Dynamic" />
</td>
</tr>
<tr><td>subject:</td>
<td>
<asp:TextBox runat="server" id="BOOK_SUBJECT" size=50 />
<asp:RequiredFieldValidator runat="server" Text="（必要字段）" ControlToValidate="BOOK_SUBJECT" EnableClientScript="False" />
</td>
</tr>
<tr><td>words:</td>
<td>
<asp:TextBox runat="server" id="BOOK_CONTENT" TextMode="MultiLine" Rows="5" Columns="60" />
<asp:RequiredFieldValidator runat="server" ControlToValidate="BOOK_CONTENT" EnableClientScript="False" />
</td></tr>
<tr><td>emotion</td>
<td>
<asp:RadioButtonList runat="server" id="BOOK_IMG" RepeatDirection="horizontal" RepeatColumns="5">
<asp:ListItem Selected Value="1"><Img src="images/1.gif"></asp:ListItem>
<asp:ListItem Value="2"><Img src="images/2.gif"></asp:ListItem>
<asp:ListItem Value="3"><Img src="images/3.gif"></asp:ListItem>
<asp:ListItem Value="4"><Img src="images/4.gif"></asp:ListItem>
<asp:ListItem Value="5"><Img src="images/5.gif"></asp:ListItem>
<asp:ListItem Value="6"><Img src="images/6.gif"></asp:ListItem>
<asp:ListItem Value="7"><Img src="images/7.gif"></asp:ListItem>
<asp:ListItem Value="8"><Img src="images/8.gif"></asp:ListItem>
<asp:ListItem Value="9"><Img src="images/9.gif"></asp:ListItem>
<asp:ListItem Value="10"><Img src="images/10.gif"></asp:ListItem>
</asp:RadioButtonList>
</td></tr>
<tr><td ColSpan="2">
<asp:Button runat="server" Text="POST TOPIC" OnClick="SendMsg"/><a href="List.aspx">View</a></td></tr>
</table>
</Form>
</body>
</html>
<script Language="VB" runat="server">
Sub SendMsg(sender As Object, e As EventArgs)
If IsValid Then
WriteDataToDataBase()
Response.Redirect ("List.aspx")
End If
End Sub
Sub WriteDataToDataBase()
Dim Conn As OleDbConnection
Dim Cmd As OleDbCommand
Dim Provider="Provider=Microsoft.Jet.OLEDB.4.0"
Dim DataBase="Data Source="&Server.MapPath( ")#Guestbook.mdb" )
Conn = New OleDbConnection( Provider &";" &DataBase )
Conn.Open()
Dim SQL As String
SQL = "Insert Into GUEST_BOOK(BOOK_NAME, BOOK_EMAIL, BOOK_SUBJECT, BOOK_CONTENT, BOOK_IMG) Values (?, ?, ?, ?, ?)"
Cmd = New OleDbCommand( SQL, Conn )
Cmd.Parameters.Add( New OleDbParameter("BOOK_NAME", OleDbType.Char, 255))
Cmd.Parameters.Add( New OleDbParameter("BOOK_EMAIL", OleDbType.Char, 255))
Cmd.Parameters.Add( New OleDbParameter("BOOK_SUBJECT", OleDbType.Char, 255))
Cmd.Parameters.Add( New OleDbParameter("BOOK_CONTENT", OleDbType.VarChar))
Cmd.Parameters.Add( New OleDbParameter("BOOK_IMG", OleDbType.Char, 255))
Cmd.Parameters("BOOK_NAME").Value = BOOK_NAME.Text
Cmd.Parameters("BOOK_EMAIL").Value = BOOK_EMAIL.Text
Cmd.Parameters("BOOK_SUBJECT").Value = BOOK_SUBJECT.Text
Cmd.Parameters("BOOK_CONTENT").Value = BOOK_CONTENT.Text
Cmd.Parameters("BOOK_IMG").Value = BOOK_IMG.SelectedItem.Value
Cmd.ExecuteNonQuery()
Conn.Close
End Sub
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -