ASP.NET学习笔记（1）

实验环境：.Net Framework SDK v1.1 ; SQL Server 2000

 

一、数据库调用函数

             使用如下函数可直接对数据库的表格以及数据项进行操作，简单易行。

    ImportsSystem.Data
    Imports System.Data.SqlClient

 '新增、刪除、修改資料的副程式
  Sub Edit_Data(ByVal DBName As String, ByVal SQLcmd As String)
      Dim conn_str As String = "Server=localhost;database=" & DBName & ";uid=sa;pwd=;"    
      Dim conn As SqlConnection = New SqlConnection(conn_str)
      conn.Open()
      Dim cmd As SqlCommand = New SqlCommand(SQLcmd, conn)
      cmd.ExecuteNonQuery()
      conn.Close()
  End Sub
 
  '檢查字串的函數
  Function Check_Str(ByVal str As String) As String
      Check_Str = Replace(str, "'" , "''")
  End Function 
 
  '建立DataReader物件的函數
  Function Create_Rd(ByVal DBName As String, ByVal SQLcmd As String) As SqlDataReader
      Dim conn_str As String = "Server=localhost;database=" & DBName & ";uid=sa;pwd=;"
      Dim conn As SqlConnection = New SqlConnection(conn_str)
      conn.Open()
      Dim cmd As SqlCommand = New SqlCommand (SQLcmd, conn)
      Dim rd As SqlDataReader
      Create_Rd = cmd.ExecuteReader()
  End Function
 
  '建立DataTable物件的函數
  Function Create_Table(ByVal DBName As String, ByVal SQLcmd As String, ByVal TabName As String) As DataTable
      Dim conn_str As String = "Server=localhost;database=" & DBName & ";uid=sa;pwd=;"    
      Dim conn As SqlConnection = New SqlConnection(conn_str)
      conn.Open()
      Dim myDataSet As DataSet = new DataSet()
      Dim myAdapter As SqlDataAdapter
      myAdapter = New SqlDataAdapter(SQLcmd, conn)
      myAdapter.Fill(myDataSet, TabName)
      Create_Table = myDataSet.Tables(TabName)
  End Function

     将上述函数写入模组中，在程序里可直接调用执行数据库操作，以上函数还可继续简化，有时间的话再编写，可将连接字符串以及连接过程用函数写好，在其他函数中直接调用即可。

 

二、邮件功能

     通过点击按钮实现发送邮件功能。

 Imports System.web.mail

 Dim myMail As MailMessage = New MailMessage

myMail.To = email

myMail.From = XXXXX@sohu.com

 myMail.Subject = "購物訂單!"

 myMail.BodyFormat = MailFormat.Html

mymail.body="加入html语句,实现表单的发送......."

 SmtpMail.Send(myMail)

   至此，邮件发送成功，本来想把邮件怎样发表单贴上来的，没想到被认为是编辑网页的语句，页面上的代码变成了表格，我又不知道怎样才能把它保持原样，没办法，以后再慢慢考虑这个问题。

三、DataGrid中复选框

   使用DataGrid读出所有购物车商品，添加复选框让客户选择。

      Private Sub selectAll() 

Dim oDataGridItem As DataGridItem

Dim chkExport As System.Web.UI.WebControls.CheckBox

If cmdSelectAll.Text = "全部選中"

Then For Each oDataGridItem In DataGrid1.Items

chkExport = oDataGridItem.FindControl("chkExport")

chkExport.Checked = True

Next

 cmdSelectAll.Text = "全部不選"

 Else

 For Each oDataGridItem In DataGrid1.Items

chkExport = oDataGridItem.FindControl("chkExport")

 chkExport.Checked = False Next cmdSelectAll.Text = "全部選中"

 End If

 End Sub