高手们，给我说一说学生学籍管理系统的登露界面怎么编写代码吧，谢谢了

Imports System.Data.SqlClient
Imports System.Data
Partial Class index
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ID As String = UserID.Text.Trim()
Dim PW As String = Pwd1.Text.Trim()
Dim Con As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("zhuceConnectionString").ConnectionString)
Dim Com As SqlCommand = New SqlCommand("Select * From Login Where UserID = '" + ID + "'", Con)
Con.Open()
Dim SqlDr As SqlDataReader = Com.ExecuteReader(CommandBehavior.CloseConnection)
If SqlDr.Read() Then
Dim a As String = SqlDr.Item("PWD").ToString.Trim()
If PW = a Then
Session("UserID") = SqlDr(0).ToString
Session("PWD") =