studentinfo.aspx.vb

利用简单框架结构vb+asp+sql,实现小型考试系统

Imports System.Data
Imports System.Data.SqlClient
Public Class studentinfo
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents Button2 As System.Web.UI.WebControls.Button
    Protected WithEvents Panel1 As System.Web.UI.WebControls.Panel
    Protected WithEvents rfvname As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents rfvschoolitem As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents rfvnumeber As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents classname As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents schoolitem As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents number As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents RegularExpressionValidator1 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents Repeater1 As System.Web.UI.WebControls.Repeater
    Protected WithEvents Panel2 As System.Web.UI.WebControls.Panel
    Protected WithEvents pwxx1 As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents Button3 As System.Web.UI.WebControls.Button
    Protected WithEvents Button4 As System.Web.UI.WebControls.Button
    Protected WithEvents Button5 As System.Web.UI.WebControls.Button
    Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region
    Dim objconn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
    Public objcomd As SqlCommand
    Public comdstr As String
    Public sturd As SqlDataReader
    Public startschoolitem, pwxx As String
    Public name(50), password(50), classitem(50) As Array
    Public schoolitem1, A As New ArrayList
    Public l, k As Integer
    Public i As Integer
    Public classitem1, name1, password1 As Array
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        Panel2.Visible = False
        If Session("AdminName") Is Nothing Then
            Response.Write("<script language='javascript'>alert('用户不存在或者权限不足,请确认已登录.');history.go(-1)</script>")
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        startschoolitem = Request.Form("schoolitem")
        l = Len(startschoolitem)
        pwxx = Request.Form("pwxx1")
        Session("classname") = Request.Form("classname")
        Session("number") = Request.Form("number")
        Randomize()
        For i = 1 To Session("number") '为用户随机生成密码

            A.Add(10 * CInt(Rnd() * pwxx) + 12345)
            schoolitem1.Add(i - 1 + startschoolitem)
            k = schoolitem1(i - 1)
            k = Len(Str(k)) - 1
            schoolitem1(i - 1) = Left(CStr(startschoolitem), l - k) + CStr(schoolitem1(i - 1)) '有序生成用户学号
        Next
        Panel1.Visible = False
        Panel2.Visible = True
    End Sub
    Dim name2, password2, classitem2, schoolitem2 As New ArrayList
    Dim c1, n1 As String
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim classname1 As String
        Dim i As Integer
        classname1 = Request("classname")

        For i = 1 To Session("number")
            name2.Add(Request("name(" & i & ")"))
            n1 = n1 & "'" & name2(i - 1) & "'" & ","
            password2.Add(Request("password(" & i & ")"))
            classitem2.Add(Request("classitem(" & i & ")"))
            c1 = c1 & "'" & classitem2(i - 1) & "'" & ","
            schoolitem2.Add(Request("schoolitem(" & i & ")"))
            ' Response.Write(password2(i - 1) & "<br>")
        Next

        'For i = 1 To Session("number")
        c1 = Left(c1, Len(c1) - 1)
        n1 = Left(n1, Len(n1) - 1)
        'Response.Write(classname1)
        'Response.End()
        If name2.Count > 0 And schoolitem2.Count > 0 Then
            comdstr = "select studentname from student where studentname in(" & n1 & ") and studentorder in(" & c1 & ")"
            'Response.Write(comdstr)
            'Response.End()
            objcomd = New SqlCommand(comdstr, objconn)
            objcomd.Connection.Open()
            sturd = objcomd.ExecuteReader
            If sturd.Read() Then
                Response.Write("<html><body>学生姓名及学号已经存在,请<a href=vbscript:history.back>返回</a>重新填写</body></html>")

                Response.End()

            Else
                objcomd.Connection.Close()
                For i = 1 To Session("number")
                    comdstr = "insert into student(id,studentname,studentpwd,studentclass,studentorder) values('" & classitem2(i - 1) & "','" & name2(i - 1) & "','" & password2(i - 1) & "','" & Session("classname") & "','" & schoolitem2(i - 1) & "')"
                    objcomd = New SqlCommand(comdstr, objconn)
                    objcomd.Connection.Open()
                    objcomd.ExecuteNonQuery()
                    objcomd.Connection.Close()
                Next

            End If
        Else
            Response.Write("<html><body>学生姓名不能为空,请<a href=vbscript:history.back>返回</a>重新填写</body></html>")
            Response.End()
        End If
        Panel1.Visible = True
        'Next
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Response.Redirect("Modifystu.aspx")
    End Sub
End Class