创建网站过程说明

创建数据库mydb和users 在VS中创建一个空网站： 创建第一个网页，命名为page1 添加一个标签 label 添加一个Gridview，并将其风格设置为简明型或传统型 双击网页空白处，显示如下： 输入“Page_Load”代码如下： Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim conn As New System.Data.SqlClient.SqlConnection '说明连接对象 Dim comm As New System.Data.SqlClient.SqlCommand ''说明命令对象 conn.ConnectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mydb;Data Source=MY\SQLEXPRESS" conn.Open() comm.Connection = conn comm.CommandText = "select * from users" Dim rd As System.Data.SqlClient.SqlDataReader rd = comm.ExecuteReader() GridView1.DataSource = rd GridView1.DataBind() End Sub 单击绿箭头按钮，即浏览该网页，结果如下： 创建第二个网页，命名为page2 在page2中添加2个label、2个textbox、、2个button： 修改以上控件的属性： 其中 textbox2： 双击button1，即“确定”按钮，输入以下代码： Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim conn As New System.Data.SqlClient.SqlConnection '说明连接对象 Dim comm As New System.Data.SqlClient.SqlCommand ''说明命令对象 conn.ConnectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mydb;Data Source=MY\SQLEXPRESS" conn.Open() comm.Connection = conn Dim t1 As String t1 = Trim(Me.TextBox1.Text) Dim t2 As String t2 = Trim(Me.TextBox2.Text) If Not (t1 <> "" And t2 <> "") Then MsgBox("用户名或密码不能为空！请重新输入", 0, "结果提示") Else comm.CommandText = "insert into users(name,pwd) values('" & t1 & "','" & t2 & "')" comm.ExecuteNonQuery() MsgBox("添加用户成功！", 0, "结果提示") End If End Sub 双击button2，即“重置”按钮，输入以下代码： Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = "" TextBox2.Text = "" End Sub 然后，保存并执行该网页： 创建第三个网页，命名为default 添加2个label、2个HyperLink： 设置属性： 保存并执行该网页： 可以用类似于page2的方法，创建page3，实现按用户名删除： 删除按钮代码如下： Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim conn As New System.Data.SqlClient.SqlConnection '说明连接对象 Dim comm As New System.Data.SqlClient.SqlCommand ''说明命令对象 conn.ConnectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mydb;Data Source=MY\SQLEXPRESS" conn.Open() comm.Connection = conn Dim t1 As String t1 = Trim(Me.TextBox1.Text) If t1 = "" Then MsgBox("用户名或密码不能为空！请重新输入", 0, "结果提示") Else comm.CommandText = "delete from users where name='" & t1 & "'" comm.ExecuteNonQuery() MsgBox("删除用户成功！", 0, "结果提示") End If End Sub