📄 addrecord.aspx
字号:
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Data" %>
<HTML>
<Script Language="VB" Runat="Server">
Sub Page_Init(sender As Object, e As EventArgs)
Dim I As Integer
For I = 0 To 5
ImgList.Items.Add(I)
ImgList.Items(I).Text = "<Img Src='image/img-" & I + 1 & ".gif'>"
ImgList.Items(I).Value= "image/img-" & I + 1 & ".gif"
Next
End Sub
Sub AddRecord(sender As Object, e As EventArgs)
Dim objConn As New SqlConnection()
objConn.ConnectionString = "workstation id=SONGWEI;packet size=4096;user id=sa;password=sql;data source=SONGWEI;persist se" & _
"curity info=False;initial catalog=vodweb"
objConn.Open()
Dim strSQL As String
strSQL = "Insert Into 访客留言板(留言者, 电子邮件, IP, 留言内容, 图片" & _
", 留言日期) Values ('" & UserName.Text & "', '" & Email.Text & _
"', '" & Request.UserHostAddress & "', '" & Content.Text & _
"', '" & ImgList.SelectedItem.Value & "', '" & _
FormatDateTime(System.DateTime.Now, DateFormat.ShortDate) & " " & _
FormatDateTime(System.DateTime.Now, DateFormat.ShortTime) & "')"
Dim objCmd As New SqlCommand(strSQL, objConn)
objCmd.ExecuteNonQuery()
objConn.Close()
Response.Redirect("Guestbook.aspx")
End Sub
</Script>
<Body>
<Center><Img Src="image/title.jpg"></Center>
<Form Runat="Server" ID="Form1">
<Table Border="0" Width="75%" Align="center" Cellspacing="0" CellPadding="3">
<Tr BgColor="#0084ca" Align="center">
<Td Colspan="2">
<Font Color="#ffffff">请在此输入新的留言</Font>
</Td>
</Tr>
<Tr BgColor="#d9f2ff">
<Td Width="17%">留言者：</Td>
<Td Width="83%"><Asp:TextBox Runat="Server" Id="UserName" /></Td>
</Tr>
<Tr BgColor="#d9f2ff">
<Td>邮件帐号：</Td>
<Td>
<Asp:TextBox Runat="Server" Id="Email" Columns="44" />
</Td>
</Tr>
<Tr BgColor="#d9f2ff">
<Td>选择图标：</Td>
<Td>
<Asp:RadioButtonList Runat="Server" Id="ImgList" RepeatColumns="7" RepeatDirection="Horizontal" RepeatLayout="Flow" />
</Td>
</Tr>
<Tr BgColor="#d9f2ff">
<Td>留言内容：</Td>
<Td>
<Asp:TextBox Runat="Server" Id="Content" TextMode="Multiline" Rows="4" Columns="37" />
</Td>
</Tr>
<Tr>
<Td Colspan="2" Height="40" BgColor="#ffffff" Align="center">
<Asp:LinkButton Runat="Server" Text="张贴留言" OnClick="AddRecord" ID="Linkbutton1" />
<A Href="Guestbook.aspx">回留言板</A>
</Td>
</Tr>
</Table>
</Form>
</Body>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -