📄 manage.aspx
字号:
<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">
' Insert page code here
'
Sub Button3_Click(sender As Object, e As EventArgs)
dim conn as new OleDbConnection()
dim cmd as new OleDbCommand()
dim stu1 as new DataSet()
dim DtAdpt as new OleDbDataAdapter(cmd)
conn.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("Student.mdb")
conn.Open()
cmd.Connection=conn
if DropDownList1.SelectedIndex=0 then
cmd.CommandText= "select * from student1 where nameid=?"
dim pa as new OleDbParameter("@nameid",OleDbType.VarChar,10)
cmd.Parameters.Add(pa)
cmd.Parameters("@nameid").Value=textbox6.text
DtAdpt.Fill(stu1,"student1")
DataGrid1.DataSource=stu1
DataGrid1.DataBind()
conn.Close()
else
cmd.CommandText= "select * from student1 where name=?"
dim pa as new OleDbParameter("@name",OleDbType.VarChar,10)
cmd.Parameters.Add(pa)
cmd.Parameters("@name").Value=textbox6.text
DtAdpt.Fill(stu1,"student1")
DataGrid1.DataSource=stu1
DataGrid1.DataBind()
conn.Close()
end if
End Sub
Sub Button1_Click(sender As Object, e As EventArgs)
dim conn as new OleDbConnection()
dim cmd as new OleDbCommand()
dim stu1 as new DataSet()
dim DtAdpt as new OleDbDataAdapter(cmd)
conn.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("Student.mdb")
conn.Open()
cmd.Connection=conn
cmd.CommandText= "insert into student1 values(?,?,?,?,?)"
cmd.Parameters.Add(New OleDbParameter("@name",OleDbType.VarChar,10))
cmd.Parameters.Add(New OleDbParameter("@nameid",OleDbType.VarChar,10))
cmd.Parameters.Add(New OleDbParameter("@maths",OleDbType.Decimal))
cmd.Parameters.Add(New OleDbParameter("@chinese",OleDbType.Decimal))
cmd.Parameters.Add(New OleDbParameter("@english",OleDbType.Decimal))
cmd.Parameters("@name").Value=textbox1.text
cmd.Parameters("@nameid").Value=textbox2.text
cmd.Parameters("@maths").Value=CInt(textbox3.text)
cmd.Parameters("@chinese").Value=CInt(textbox4.text)
cmd.Parameters("@english").Value=CInt(textbox5.text)
cmd.ExecuteNonQuery()
conn.Close()
textbox1.text=""
textbox2.text=""
textbox3.text=""
textbox4.text=""
textbox5.text=""
End Sub
Sub Button2_Click(sender As Object, e As EventArgs)
cache.remove("name")
response.redirect("default.aspx")
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<p>
<asp:Label id="Label1" runat="server" width="285px" height="43px"><b><font size="6">成绩管理系统</font></b></asp:Label>
欢迎<%response.write(cache("name"))%>同学光临
</p>
<p>
******************************输入成绩*******************************
</p>
<p>
姓名<asp:TextBox id="TextBox1" runat="server" Width="113px"></asp:TextBox>
</p>
<p>
学号<asp:TextBox id="TextBox2" runat="server" Width="114px" Height="22px"></asp:TextBox>
</p>
<p>
数学<asp:TextBox id="TextBox3" runat="server" Width="116px"></asp:TextBox>
</p>
<p>
语文<asp:TextBox id="TextBox4" runat="server" Width="117px"></asp:TextBox>
</p>
<p>
英语<asp:TextBox id="TextBox5" runat="server" Width="117px"></asp:TextBox>
</p>
<p>
<asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="输入"></asp:Button>
<asp:Button id="Button2" onclick="Button2_Click" runat="server" Text="退出"></asp:Button>
</p>
<p>
*****************************查询成绩********************************
</p>
<p>
按<asp:DropDownList id="DropDownList1" runat="server">
<asp:ListItem Value="学号" Selected="True">学号</asp:ListItem>
<asp:ListItem Value="姓名">姓名</asp:ListItem>
</asp:DropDownList>
查询：请输入<asp:TextBox id="TextBox6" runat="server"></asp:TextBox>
<asp:Button id="Button3" onclick="Button3_Click" runat="server" Text="提交"></asp:Button>
</p>
<p>
<asp:DataGrid id="DataGrid1" runat="server"></asp:DataGrid>
</p>
<!-- Insert content here -->
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -