⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 addrecordcayenne.aspx

📁 农业专家系统.针对无公害蔬菜的一个信息发布、病害诊断、远程诊断系统。适用于农业信息化实例应用中。
💻 ASPX
字号:
🔍 
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<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='images\face" & I + 1 & ".gif'>"
      ImgList.Items(I).Value= "images\face" & I + 1 & ".gif"
    Next
  End Sub

  Sub AddRecord(sender As Object, e As EventArgs)
    Dim objConn As New OleDbConnection()
    objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                               "Data Source=" & Server.MapPath("data\GB.mdb")
    objConn.Open()
    Dim strSQL As String
    strSQL = "Insert Into guessbookcayenne(visitor, email, IP, content, img" & _
             ", times) Values ('" & UserName.Text & "', '" & Email.Text & _
             "', '" & Request.UserHostAddress & "', '" & Content.Text & _
             "', '" & ImgList.SelectedItem.Value & "', '" & System.DateTime.Now & "')"
    Dim objCmd As New OleDbCommand(strSQL, objConn)
    objCmd.ExecuteNonQuery()
    objConn.Close()
    Response.Redirect("Guestbookcayenne.aspx")
  End Sub
</Script>
<Html>
  <Body>
    <Center><Img Src="images\logo.jpg"></Center>
    <Form Runat="Server">
      <Table Border="1" Width="800" Align="Center" Cellspacing="0" CellPadding="3">
        <Tr BgColor="#FDA805" Align="Center">
          <Td Colspan="2">
            <Font Color="#FFFFFF">请在此输入新的留言</Font>
          </Td>
        </Tr>
        <Tr >
          <Td Width="17%">留言者：</Td>
          <Td Width="83%"><Asp:TextBox Runat="Server" Id="UserName" /></Td>
        </Tr>
        <Tr>
          <Td>邮件帐号：</Td>
          <Td>
            <Asp:TextBox Runat="Server" Id="Email" Columns="44" />
          </Td>
        </Tr>
        <Tr>
          <Td>选择图标：</Td>
          <Td>
            <Asp:RadioButtonList Runat="Server" Id="ImgList" RepeatColumns="7"
                 RepeatDirection="Horizontal" RepeatLayout="Flow" />
          </Td>
        </Tr>
        <Tr>
          <Td>留言内容：</Td>
          <Td>
            <Asp:TextBox Runat="Server" Id="Content" TextMode="Multiline"
                 Rows="4" Columns="37" />
          </Td>
        </Tr>
        <Tr>
          <Td Colspan="2" Height="40" Align="Center">
            <Asp:LinkButton Runat="Server" Text="张贴留言" OnClick="AddRecord" />   
            <A Href="Guestbookcayenne.aspx">回留言板</A>
          </Td>  
        </Tr>
      </Table>  
    </Form>
  </Body>
</Html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -