📄 stuinput.aspx

📁 学生成绩管理学生成绩管理
💻 ASPX
字号:
<%@ page language = "VB" debug = "true" %>
<%@ import namespace = "System.data" %>
<%@ import namespace = "System.data.oledb" %>
<script runat="server" language="vb">
Sub Btn_yes(sender as Object, e as Eventargs)
    Dim conn as new OleDbConnection()
	Dim cmd As oledbcommand
	Dim str as String
	conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
    Server.MapPath("基本信息.mdb")
	conn.open()
	str = "insert into student values(?,?,?,?,?,?)"
	cmd = new OleDbCommand(str,conn)           
	cmd.Parameters.add(new oledbparameter("@xh",oledbtype.varchar,8))
	cmd.parameters.add(new oledbparameter("@xm",oledbtype.varchar,8))
	cmd.parameters.add(new oledbparameter("@xb",oledbtype.boolean))
	cmd.parameters.add(new oledbparameter("@nl",oledbtype.decimal))
	cmd.parameters.add(new oledbparameter("@bj",oledbtype.varchar,8))
	cmd.parameters.add(new oledbparameter("@bz",oledbtype.varchar,8))
	cmd.parameters("@xh").value = request("xh")
	cmd.parameters("@xm").value = request("xm")
	if sex1.checked then
	   cmd.parameters("@xb").value = true
	else 
	   cmd.parameters("@xb").value = true
	end if
	cmd.parameters("@nl").value = CInt(request("nl"))
	cmd.parameters("@bj").value = request("bj")
	cmd.parameters("@bz").value = request("bz")
	if cmd.executeNonQuery() = 1 then
	   msg.text = "恭喜您！输入信息成功！"
	else
	   msg.text = "输入有错误！"
	end if
	conn.close()
end sub
</script>
<html>
<body><center><form runat="server" method="post"><br>
学号：<asp:TextBox runat="server" ID="xh" /><br>
<asp:RequiredFieldValidator runat="server" ControlToValidate="xh" ErrorMessage="您必须添加学号" />
<br><br>姓名：<asp:TextBox runat="server" ID="xm" /><br>
<br>性别：<asp:RadioButton runat="server" ID="sex1" GroupName="Sex" Text="男" Checked="true" />
<asp:RadioButton runat="server" ID="sex2" GroupName="Sex" Text="女" /><br><br>
年龄：<asp:TextBox runat="server" ID="nl" Text="0" /><br>
<asp:RangeValidator runat="server" ControlToValidate="nl" MaximumValue="100" MinimumValue="0" Type="Integer" ErrorMessage="所填的年龄不在10-100范围内" /><br>
专业班级：<asp:TextBox runat="server" ID="bj" /><br><br>
备注：<asp:TextBox runat="server" ID="bz" /><br><br>
<asp:Button runat="server" Text="确定" OnClick="Btn_yes" />&nbsp;&nbsp;&nbsp;
<input type="reset" value="重输" />&nbsp;&nbsp;&nbsp;<br><br><br>
<asp:Label runat="server" ID="Msg" />
</form></center>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -